25/11/2008, 09:59
|
 | | | Fecha de Ingreso: marzo-2007
Mensajes: 307
Antigüedad: 18 años, 8 meses Puntos: 17 | |
| Respuesta: Alguien que me oriente
con el mismo codigo tuyo, pruebalo asi
Private Sub agr_reg_Click()
Respuesta = MsgBox("Deseas dar de alta un nuevo registro?", vbYesNo, "REGISTRO DE ALTA")
If Respuesta = vbNo Then
Exit Sub
Else
Guardar.Enabled = True
Text1.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End If
Private Sub Guardar_Click()
With rs
.AddNew
.Fields("clave") = Val(Text1.Text)
.Fields("fecha") = Date
.Fields("formato") = Trim(Text3.Text)
.Fields("descripcion") = Trim(Text4.Text)
.Fields("lugar") = Trim(Text5.Text)
End With
rs.Update
End Sub
ahora supongo que limpias los textos para despues llenarlos, sino no tiene mucho sentido dejarlos limpios y despues grabar inmediatamente (que era lo que estabas haciendo |