Ayuda con guardar Commandbutton

[Silence-night]

hola !
:D
Estoy haciendo un programa k muestra las entradas de clientes a una empresa y sus salidas, puse un commandbutton para cuando se guarde pero me sale ERROR91
Variable de tipo object o la variable de bloque With no esta establecida.

Private Sub Command2_Click()
Data1.Recordset.Update
Command2.Enabled = True
HabilitarCajas
End Sub

grax de antemano =)

[GeoAvila]

mira al parecer es un tipo de variable especifica que nece sita la base de datos por ejemplo no podes ingresar un texto donde es numero. echale una revisada a la base de datos y como tenes los campos entu programa y puede que encontres elproblema..

nos vemos.

[Silence-night]

emmm perdon :S
ske como apenas stoy aprendiendo, no entendi muy bien la respuesta o_o
:S

Cuales campos del programa ? @_@ y la base de datos pueden ser numeros no letras ?

grax de nuevo.

[GeoAvila]

mira lo que pasa es que cuando definis un campo en la tabla de la base de datos le asignas si va a ser numerico, texto o fecha, bueno partiendo de esto sabemos que donde hay texto podes ingresar lo que queras menos fotos obviamente, donde es fecha es un formato de fecha o un dato de fecha y donde tenes numerico es obvio que no vas a poder ingresar letras o signos raros...

nos vemos...

[Silence-night]

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

[OYEME]

tendrias que pasar los datos
Private Sub Command4_Click()
tablas.Edit (esto esta en amarillo)
tablas.Edit ("nombre") =text1
tablas.Edit ("direccion")=text2
tablas.Edit ("telefono")=text3
tablas.Update
end sub