Oooh, ok, tengo otro problemita :S:S:S
Tengo una tabla, si kiero agregar un nuevo cliente k ingreso a la empresa pongo este codigo:
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "no inserto ningun valor", , "Inicio de sesión"
Text1.SetFocus
Else
tablas.AddNew (esta linea esta en amarillo)
tablas("nombre") = Text1.Text
tablas("direccion") = Text6.Text
tablas("telefono") = Text11.Text
MsgBox "el elemento a sido agregado", , "Inicio de sesión"
tablas.Update
tablas.Close
End If
End Sub
Y EN OTRO COMANDO PARA BORRAR TENGO ESTE CODIGO:
Private Sub Command3_Click()
tablas.Delete
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Y :s =$
CON EL PARA EDITAR TENGO ESTE CODIGO:
Private Sub Command4_click()
tablas.Edit
tablas ("nombre")
tablas ("direccion")
tablas ("telefono")
tablas.Update
End sub
Intente corregirlo asi:
Private Sub Command4_Click()
tablas.Edit (esto esta en amarillo)
tablas.Edit ("nombre")
tablas.Edit ("direccion")
tablas.Edit ("telefono")
tablas.Update
end sub
GRAX DE ANTEMANO
