un IF para Comparar fechas
Publicado por Alejandro (13 intervenciones) el 17/10/2008 01:47:10
hola que tal tengo una duda si para hacer uan instruccion en un boton que guarda un registro, pero antes de que me lo guarde quiero que valide unas fechas
esta es la instruccion de validacion, que antes que me lo guarde cheque que no sea la misma fecha si no es asi que lo guarde.
Pense con un MySet = New ADODB.Recordset
ya que la base la tengo en SQL, espero y me puedan ayudar
If IsNull(Me.Fecha_de_primer_pago) = IsNull(Me.Fecha_de_inicio) Then
MsgBox "No ha definido una fecha del primer pago...", vbOKOnly, "SIC Prestamos Personales"
Else
-------------------------------------------------------------------------------------------------------------------------
If Me.NewRecord Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Usuario_Autorizado = Me.Usuario
End If
Fecha_de_primer_pago_Enter
Agregar_Solicitud Me.Folio_Solicitud_Presidente
Me.No__de_Grupo.SetFocus
If IsNull(DLookup("[Folio Auditoria]", "[Solicitudes]", "[Folio Auditoria] = " & Nz(Me.Folio_Solicitud_Presidente, 0) & " AND IdGrupoSolidario = " & Nz(Me.IdGrupoSolidario, 0))) Then
Me.Btn_Agregar_Solicitud_Presidente.Enabled = True
Me.Btn_Eliminar_Folio_Solicitud_Presidente.Enabled = False
Else
Me.Btn_Agregar_Solicitud_Presidente.Enabled = False
Me.Btn_Eliminar_Folio_Solicitud_Presidente.Enabled = True
End If
Me.Grupo_solidario__Subformulario_.Form.Requery
End If
esta es la instruccion de validacion, que antes que me lo guarde cheque que no sea la misma fecha si no es asi que lo guarde.
Pense con un MySet = New ADODB.Recordset
ya que la base la tengo en SQL, espero y me puedan ayudar
If IsNull(Me.Fecha_de_primer_pago) = IsNull(Me.Fecha_de_inicio) Then
MsgBox "No ha definido una fecha del primer pago...", vbOKOnly, "SIC Prestamos Personales"
Else
-------------------------------------------------------------------------------------------------------------------------
If Me.NewRecord Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Usuario_Autorizado = Me.Usuario
End If
Fecha_de_primer_pago_Enter
Agregar_Solicitud Me.Folio_Solicitud_Presidente
Me.No__de_Grupo.SetFocus
If IsNull(DLookup("[Folio Auditoria]", "[Solicitudes]", "[Folio Auditoria] = " & Nz(Me.Folio_Solicitud_Presidente, 0) & " AND IdGrupoSolidario = " & Nz(Me.IdGrupoSolidario, 0))) Then
Me.Btn_Agregar_Solicitud_Presidente.Enabled = True
Me.Btn_Eliminar_Folio_Solicitud_Presidente.Enabled = False
Else
Me.Btn_Agregar_Solicitud_Presidente.Enabled = False
Me.Btn_Eliminar_Folio_Solicitud_Presidente.Enabled = True
End If
Me.Grupo_solidario__Subformulario_.Form.Requery
End If
Valora esta pregunta


0