Alguien mo podria ayudar a solucionar esto
Publicado por alex (3 intervenciones) el 04/09/2022 01:38:22
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
alguien me podria ayudar a arreglar mi boton guardar
Private Sub Cmd_Guardar_Click()
If IsNull(TxtIdentidad) Or IsNull(TxtNombre) _
Or IsNull(TxtNacimiento) Or IsNull(TxtDireccion) Or IsNull(TxtTelefono_Encargado) Or IsNull(TxtNombrePadre) Or IsNull(TxtEdad) Then
MsgBox "Debe completar todos los campos"
Exit Sub
End If
Dim talumnos As Recordset
Set talumnos = CurrentDb.OpenRecordset("Alumnos")
talumnos.AddNew
talumnos.Value !Numero_Identidad.Value = TxtIdentidad
talumnos.Value !Nombre.Value = TxtNombre
talumnos.Value !Fecha_Nacimiento.Value = TxtNacimiento
talumnos.Value !Direccion.Value = TxtDireccion
talumnos.Value !telefono.Value = TxtTelefono_Encargado
talumnos.Value !Nombre_Padre.Value = TxtNombrePadre
talumnos.Value !edad.Value = TxtEdad
talumnos.Update
MsgBox "Registro Guardado correctamente", vbInformation, "Alumnos"
Valora esta pregunta
0