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

Life is soft - evento anual de software empresarial
   
Vista:

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

Publicado por Bryan inelcore@live.com (4 intervenciones) el 26/05/2012 19:14:22
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
inelcore@live.com
electrochot@gmail.com
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

evitrar crear un mismo registor vb acces y una busq en textbox

Publicado por jose manuel boquense.94@hotmail.com (25 intervenciones) el 29/05/2012 15:46:28
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

evitrar crear un mismo registor vb acces y una busq en textbox

Publicado por jose manuel boquense.94@hotmail.com (25 intervenciones) el 29/05/2012 15:52:58
Hey ahora yo necesito tu ayuda como

ago para crear el mismo registro? pasame ese codigo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

GRACIAS

Publicado por Bryan inelcore@live.com (4 intervenciones) el 30/05/2012 23:17:35
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar