Cita:
Iniciado por Insomnia 
Hola
Si en la base de datos tienes definido el campo como clave (p.e. Cod) debería darte un error al tratar de insertar un registro con el mismo Cod.
De todas formas, podrías poner parte del código donde utilizas el RecordCount para que nos hagamos una idea?
--Saludos--
Estimado.
lamentablemente lo borré porque me aburri de esa parte y seguí avanzando, pero como bien sabemos el validar entrada de datos es demasiado importante.
Dejo aqui algo del codigo en el cual el cod_agend es la clave primaria por la cual deseo consultar si ya existe antes de guardar datos en la tabla tb_agendamiento
Donde deberia ir una validacion, o mas bien de que tipo o que codigo deberia agregar antes de ese insert???
Agradecería de su experiencia y ayuda, ya que esto me esta colapsando, muchisimas gracias.
Private Sub Command1_Click()
If Label9.Caption = "" Or Label11.Caption = "" Or Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Combo2.Text = "" Or Combo3.Text = "" Or Combo4.Text = "" Or Combo5.Text = "" Then
MsgBox "Por favor ingrese todos los datos solicitados"
Else
Dim mensaje As String
mensaje = MsgBox("Esta de seguro de guardar estos datos?", 4164)
If mensaje = 6 Then
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim txtsql As String
con.Open ("dsn=bodega")
On Error Resume Next
txtsql = "INSERT INTO tb_agendamiento(cod_agend,rut_cliente,nom_cliente, dom_cliente,contacto_cliente,modelo_equipo,simcard ,dia_agend,mes_agend,año_agend,nom_usuario)Values( '" & Text4 + "','" & Text6 + "','" & Text1 + "','" & Text3 + "','" & Text5 + "','" + Label9 + "','" + Combo2.Text + "','" + Combo3.Text & "','" + Combo4.Text & "','" + Combo5.Text & "','" + Label22 + "')"
Set rs = con.Execute(txtsql)
con.Close
End If
End If
End Sub