Hello nkengie81,

Put everything in a public Sub.When you want to validate your entries, use validationform()

Regards,

jppinto Open in New Window

you can create a separate module for these subs and functions. As long as you set them to be public you'll be able to access them from any form in the usual manner.

Although you'll probably want to modify your subs to be functions that you can pass variables into for where the code is refering to controls.


'Keep this in the forms.
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo Form_BeforeUpdate_Err

Dim result as string

result = ValidateForm(me.cboFat,me.ClosingDate,me.cboLTV,me.ActualAmount,me.cmbMtgType)

if result <> 'Success' then
    Cancel = True
    me.controls(result).setfocus
end if

Form_BeforeUpdate_Exit:
    Exit Sub
   
Form_BeforeUpdate_Err:
    MsgBox Err.Number & " - " & Err.Description
    Resume Form_BeforeUpdate_Exit
   
End Sub


'Put this in a separate module

Public Function ValidateForm(Fat,ClosingDate,LTV,ActualAmount,MtgType) as string
'Forces user to enter FAT if entry in closing date
If IsNull(Fat) And Not IsNull(ClosingDate) Then
    MsgBox "Final Action Taken is required if a Closing Date is entered,", vbCritical, "Missing Data!"
    ValidateForm = "cboFat"
    exit function
   End If

'Forces user to enter Closing Date if entry in FAT
If Not IsDate(ClosingDate) Then

    Select Case Fat
       Case 1, 2, 3, 4, 5, 7
            MsgBox "Based on your selection in the Final Action Taken," & _
            vbCrLf & "           Closing Date is a required field!", vbCritical, "Missing Data!"
            ValidateForm = "ClosingDate"
            exit function
    End Select
End If

' Forces user to enter Actual Amount if FAT = 1
If Fat = 1 And IsNull(ActualAmount) Then
    MsgBox "Based on your selection in the Final Action Taken," & _
    vbCrLf & "          Actual Amount is a required field!", vbCritical, "Missing Data!"
    ValidateForm = "ActualAmount"
    exit function
End If

If IsNull(LTV) Then

    Select Case MtgType
        Case "2 Yr ARM", "15 Yr", "20 Yr", "25 Yr", "30 Yr"
             MsgBox "The selected Mortgage Type requires a LTV selection.", vbCritical, "Missing Data!"
             ValidateForm = "cboLTV"
             exit function
    End Select
End If

ValidateForm = "Success"

End function