Alguien que me oriente

[ariesagv]

Hola a todos
estoy haciendo un sistema, mi problema es que no puedo dar de alta, bueno es que estoy haciendo la coneccion directa y no me sale, alguien que me pueda decir en que estoy mal

Dim cn As New ADODB.Connection 'Creamos el objeto Connection.
Private WithEvents rs As ADODB.Recordset 'Creamos el Recordset con soporte de eventos.

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 = ""

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
End If

Private Sub Guardar_Click()
rs.Update
End Sub

End Sub

plis

[Kruzado]

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

[ariesagv]

Iniciado por Kruzado

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

ok. lo voy hacer lo que pasa que tengo en el menu principal donde doy de alta y en el boton guarda para confirmar la alta por eso esta asi, y tambien primero limpio mis texbox y luego pregunto si quiere dar de alta algun registro

[ariesagv]

Iniciado por Kruzado

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

Hola,mmmm no me guarda, la verdad no se si mi codigo esta bien o que esta pasando

[Kruzado]

cambia

End With
rs.Update

por

.update
end with

el update lo tienes que hacer justo despues que mueves los valores, sino lo haces en ese momento puedes perder los cambios (obvio porque no los actualizas)