Actualidades

Código Visual Basic
RUTINA PARA BUSCAR UN REGISTRO
Private Sub CmdBuscar_Click()
If Me.textcodigo <> "" Then
Dim dbs As Database
Dim reg As Recordset
Set dbs =DBEngine.Workspaces(0).OpenDatabase("c:\INVENTARIOFERRETERIA\INVENTARIO.mdb")
Set reg = dbs.OpenRecordset("MATERIALES", dbOpenTable)
With reg
.Index = "PRIMARYkey"
.Seek "=",Me.textcodigo
For c = 1 To 2
Me.Label(c).Visible = True
Next
Me.Cmdeliminar.Visible = True
Me.cmdgrabar.Visible = TrueMe.Textdescripcion.Visible = True
Me.Textexistencia.Visible = True
If Not .NoMatch Then
Me.textcodigo.Locked = True
Me.Textdescripcion =!descripcion
Me.Textexistencia = !existencia
Me.cmdgrabar.Enabled = True
Me.Cmdeliminar.Enabled = True
Me.Textdescripcion.Locked = FalseElse
If MsgBox("CODIGO NO EXISTE. Desea ingresarlo?", vbInformation + vbYesNo, "INGRESO DE DATOS") = vbYes Then
Me.Textdescripcion.SetFocusMe.Textdescripcion.Locked = False
Me.Textdescripcion = ""
Me.Textexistencia = ""
Me.Textexistencia.Locked = FalseMe.cmdgrabar.Enabled = True
Else
Call Cmdcancelar_Click
Exit Sub
End If
End If
EndWith
End If
End Sub

RUTINA PARA GUARDAR UN REGISTRO
Private Sub Cmdgrabar_Click()
If Me.textcodigo = "" Or Me.Textdescripcion = "" Then
Call publicar
Exit Sub
End IfDim dbs As Database
Dim reg As Recordset
Set dbs = DBEngine.Workspaces(0).OpenDatabase("c:\INVENTARIOFERRETERIA\INVENTARIO.mdb")
Set reg = dbs.OpenRecordset("MATERIALES",...