abril 23, 2021, 12:06:13 am

Noticias:

Para hacer tu consulta: debes registrarte y hacer un nuevo tema en la sección que consideres más adecuada. Ver: Acerca de este Foro.


VB Dejar campo vacío y guardar.

Iniciado por mtz.fco, marzo 18, 2021, 07:37:42 pm

Tema anterior - Siguiente tema

mtz.fco

Buen día.

Tengo una parte del código para una BD en Access, si se llena la información general del paciente se puede guardar, si se queda cualquier campo vacío sale mensaje de que hay que llenar todos los datos.
Necesito hacer que se pueda guardar dejando vacío el campo de Apellido Materno, por ejemplo para algunos pacientes extranjeros donde sólo usan el apellido paterno.

Private Sub btnGuardar_Click()

Dim sValidacion As String
sValidacion = validarCampos

If sValidacion = "" Then

Set db = CurrentDb
If (IsNull(DLookup("[Expediente]", "Paciente", "StrComp([Expediente],'" & Format(NumeroExpediente, "0000000000") & _
"',0)=0 "))) Then

db.Execute "Insert Into Paciente(Expediente,Apellido_paterno,Apellido_materno,Nombre,Fecha_Nacimiento,Edad,Sexo,Escolaridad,EstadoCivil) " _
& "VALUES ('" & Format(NumeroExpediente, "0000000000") & "','" & Apellido_Paterno & "','" & Apellido_Materno & "','" & Nombre__s_ & "','" & Fecha_de_NAC & "'," & EDAD & ",'" & Sexo & "','" & Escolaridad & "','" & Estado_Civil & "')"
Else
db.Execute "Update Paciente set Apellido_paterno='" & Apellido_Paterno & "',Apellido_materno='" & Apellido_Materno & "',[Nombre='" & Nombre__s_ & "',Fecha_Nacimiento='" & Fecha_de_NAC & "',Edad=" & EDAD & ",Sexo='" & Sexo & "',Escolaridad='" & Escolaridad & "',EstadoCivil='" & Estado_Civil & "' Where Expediente='" & Format(NumeroExpediente, "0000000000") & "'"

End If

MsgBox "Paciente Guardado con éxito"
DoCmd.Close

Else
MsgBox "Capture los campos" & vbCrLf & sValidacion
End If
End Sub

Buscar en el Foro: