Saving form with required fields

[Ledmark]

Hello - I have made forms which have many required fields so when a person is filling out the forms and they get interrupted they can't save it and go back to it - they have to start over.

Is there a way to save the form with written code so that they can't print it unless all required fields are entered?

Thanks for any help.

Laura

[sierra7]

Hi Laura
You could write a function called CheckComplete that validated each of your mandatory fields and if any failed would give an error message to inform the user and prevent printing.

 
Private Function checkComplete() As Boolean
checkComplete = True
If IsNull(Me.txtField1) Or Len(Me.txtField1) < 2 Then
    checkComplete = False
    MsgBox "Field " & Me.txtField1.Name & " is incomplete", vbCritical, "Missing Data"
    Exit Function
End If
 
If IsNull(Me.txtField2) Or Len(Me.txtField2) < 20 Then
    checkComplete = False
    MsgBox "Field " & Me.txtField2.Name & " is incomplete", vbCritical, "Missing Data"
    Exit Function
End If
 
End Function
 

The above code first test that the field is not empty and then tests that the user has not entered a prefunctory value to 'cheat' the system. You can set the length to whatever suits you. You must have both checks because an empty field is Null not zero, so doesn't fail the Len() test.

You would call this function from your print button

 If checkComplete = True Then 
     DoCmd.OpenReport "ReportName".....
Else
     Exit Sub
End If
 

S7

[Ledmark]

Thank you so much for your reply and help. The following is the code I have for printing the for right now:

Private Sub Print_Recruitment_Report_Click()
On Error GoTo Err_Print_Recruitment_Report_Click

Dim stDocName As String

'MsgBox "value=" + RequestNumberTextField

stDocName = "Recruitment 52"
DoCmd.OpenReport stDocName, acNormal

Exit_Print_Recruitment_Report_Click:
Exit Sub

Err_Print_Recruitment_Report_Click:
MsgBox Err.Description
Resume Exit_Print_Recruitment_Report_Click

End Sub

Would I put this statement If checkComplete = True Then in front of my code?
I don't know quite how to put them together?

Thanks for any more help.
Laura

Hi Laura
You could write a function called CheckComplete that validated each of your mandatory fields and if any failed would give an error message to inform the user and prevent printing.

 
Private Function checkComplete() As Boolean
checkComplete = True
If IsNull(Me.txtField1) Or Len(Me.txtField1) < 2 Then
    checkComplete = False
    MsgBox "Field " & Me.txtField1.Name & " is incomplete", vbCritical, "Missing Data"
    Exit Function
End If
 
If IsNull(Me.txtField2) Or Len(Me.txtField2) < 20 Then
    checkComplete = False
    MsgBox "Field " & Me.txtField2.Name & " is incomplete", vbCritical, "Missing Data"
    Exit Function
End If
 
End Function
 

The above code first test that the field is not empty and then tests that the user has not entered a prefunctory value to 'cheat' the system. You can set the length to whatever suits you. You must have both checks because an empty field is Null not zero, so doesn't fail the Len() test.

You would call this function from your print button

 If checkComplete = True Then 
     DoCmd.OpenReport "ReportName".....
Else
     Exit Sub
End If
 

S7

[Denburt]

I would think that the following should work.

Private Sub Print_Recruitment_Report_Click()
On Error GoTo Err_Print_Recruitment_Report_Click
 
Dim stDocName As String
      If checkComplete = True Then
'MsgBox "value=" + RequestNumberTextField
 
stDocName = "Recruitment 52"
DoCmd.OpenReport stDocName, acNormal
 
      Else
           Exit Sub
      End If
 
Exit_Print_Recruitment_Report_Click:
Exit Sub
 
Err_Print_Recruitment_Report_Click:
MsgBox Err.Description
Resume Exit_Print_Recruitment_Report_Click
 
End Sub
 

[Ledmark]

Thank you so much for all your help - it is really appreciated.

I would think that the following should work.

Private Sub Print_Recruitment_Report_Click()
On Error GoTo Err_Print_Recruitment_Report_Click
 
Dim stDocName As String
      If checkComplete = True Then
'MsgBox "value=" + RequestNumberTextField
 
stDocName = "Recruitment 52"
DoCmd.OpenReport stDocName, acNormal
 
      Else
           Exit Sub
      End If
 
Exit_Print_Recruitment_Report_Click:
Exit Sub
 
Err_Print_Recruitment_Report_Click:
MsgBox Err.Description
Resume Exit_Print_Recruitment_Report_Click
 
End Sub
 

[Denburt]

Is everything working as you would like now?

If so that is awesome glad we could help nice work sierra7.

[sierra7]

Hi
Well let's hope it works OK.

What I forgot to mention was that the properties of the fields in the Table should be changed to be none mandatory.

S7

[Ledmark]

Hello again - I haven't gotten a chance to try it out yet but am wondering about the checks - do I need to write both checks for each required field? I should find someone to sit down and do it with me so I can understand what's happening. Do I put the name of the required field in where the code says Me.txtField1 or Me.txtField1.Name?

I will get this figured out and I'll let you know how it works.

Thanks so much again!

Laura

Hi
Well let's hope it works OK.

What I forgot to mention was that the properties of the fields in the Table should be changed to be none mandatory.

S7

[sierra7]

Hi again
YES, you will have to write code for each of the fields you wish to make mandatory.

YES, [txtField1] and [txtField2] represented the name of your text boxes and will have to be changed to your actual names.

NO, you don't have to do both checks if you are only checking for an entry; IsNull() will suffice.

However, users may type 'tba' (meaning 'to be advised') instead of sourcing valid data. It depends on your application and what you are trying to do.

It's quite valid to sit down with users and understand how they do the job you are trying to model in your application.

S7