Visual Basic - evitrar crear un mismo registor vb+acces y una busq en textbox

saludos entendido de visual basis necesito evitar que se creen extamente el mismo registro yo cree un botón que guarda los datos en un base de datos en Access pero me fije que guarda exactamente el mismo registro cada vez que presión el botón como evito que guarde exactamente los mismo datos

uso recordes addnew y finalizo con update

por otro lado para buscar utilizo un botón pero me pidieron que fuese directo a la caja de texto (txtbox)

que escriba los datos y al presionar enter,intro busque en la base de datos en access

noce como hacerlo por favor humildemente me facilitan el código o la sentencia imagino puede ser algo insignificante para alguno de ustedes estas funciones pero estoy comenzando



mucho le agradezco su ayuda


Bryan
[email protected]
[email protected]

Aca te lo dejo papa

te explico solo cambia los nombre el q dice activo fijos es nombre de la base de datos osea cambiala por el nombre de la tuya en inventario es el nombre de la base de datos cambiala por la tuya lo demas lo cambias ps y los textbox que son donde se guarda la informacion este codigo te permitira por medio donde dice

inventario.Index = "Nombre_PC"
inventario.Seek "=", Nombre_PC.Text
ese codigo dice hay que el nombre de pc sera un codigo unico como una cedula entiendes? bueno si esa cedula tu ala hora de hacer un registro se encuentra en la base de datos el sistema no deberia crear registro ya registrados ps eso es todo


Dim activofijos As Database ......... en activo fijos pones el nombre de tu base de datos
Dim inventario As Recordset ......... en inventario pones la tabla de tu base de datos
Set activofijos = OpenDatabase("C:\ActivoFijos.mdb") ...... aca la direciones tu base de datos con el data
Set inventario = activofijos.OpenRecordset("Inventario")
inventario.Index = "Nombre_PC"
inventario.Seek "=", Nombre_PC.Text
If inventario.NoMatch Then
inventario.AddNew 'capturando los datos del modulo

inventario.Fields("Nombre_PC") = Nombre_PC.Text
inventario.Fields("Departamento") = Departamento.Text
inventario.Fields("CPU_Marca") = CPU_Marca.Text
inventario.Fields("CPU_Modelo") = CPU_Modelo.Text
inventario.Fields("CPU_Serial") = CPU_Serial.Text
inventario.Fields("CPU_Activo") = CPU_Activo.Text
inventario.Fields("CPU_IP") = CPU_IP.Text
inventario.Fields("Monitor_Marca") = Monitor_Marca.Text
inventario.Fields("Monitor_Modelo") = Monitor_Modelo.Text
inventario.Fields("Monitor_Serial") = Monitor_Serial.Text
inventario.Fields("Monitor_Activo") = Monitor_Activo.Text
inventario.Fields("Monitor_Pulgada") = Monitor_Pulgada.Text
inventario.Fields("Impresora_Marca") = Impresora_Marca.Text
inventario.Fields("Impresora_Modelo") = Impresora_Modelo.Text
inventario.Fields("Impresora_Serial") = Impresora_Serial.Text
inventario.Fields("Impresora_Activo") = Impresora_Activo.Text
inventario.Fields("N") = N.Text
inventario.Fields("piso") = Piso.Text
inventario.Fields("Fecha") = Fecha.Value
inventario.Update
Else: I = MsgBox("Este Registro Ya Existe", vbYes, ("Inventario"))

End If 'verificando los campos'

Nombre_PC.Text = ""
Departamento.Text = ""
CPU_Marca.Text = ""
CPU_Modelo.Text = ""
CPU_Serial.Text = ""
CPU_Activo.Text = ""
CPU_IP.Text = ""
Monitor_Marca.Text = ""
Monitor_Modelo.Text = ""
Monitor_Serial.Text = ""
Monitor_Activo.Text = ""
Monitor_Pulgada.Text = ""
Impresora_Marca.Text = ""
Impresora_Modelo.Text = ""
Impresora_Serial.Text = ""
Impresora_Activo.Text = ""
N.Text = ""
Piso.Text = ""


'cerrando los archivos

inventario.Close ...... Cierra
activofijos.Close ........ Cierra base de datos
End If
End Sub

Hey ahora yo necesito tu ayuda como

ago para crear el mismo registro? pasame ese codigo

EXELENTE AMIGO SE ENTIENDE PERFECTAMENTE MUY BIEN EXPLICADO OJALA TUVIERA UN TUTOR CON ESE NIVEL A QUIEN PREGUTARLE TODAS MIS DUDAS AL RESPECTO MUCHAS GRACIAS.