Having trouble getting text box using short-date format to be identified in VB as an object. Command button uses following code to determine if date field [frmItxt_GISDone] is null. Changed name [Date_Entered] in master table and successive queries and forms as VB Editor's 'List Properties/Methods' drop-down menu forced name to be [tblMapping.Date_Entered]. Attempted several iterations of naming, code approach without success. Sure could use some help on this. Been working on it all day.
Private Sub frmIcmd_AddAddr_Click()
On Error GoTo Err_frmIcmd_AddAddr_Click
If Me!["frmItxt_GISDone"].Value Is Null Then
DisplayMsg = MsgBox("All fields must be complete before entering cross-reference addresses.", vbCritical, "DATA ENTRY PROCEDURAL ERROR.")
DoCmd.Close
GoTo Skip2
Else
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmAddADDR"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Exit_frmIcmd_AddAddr_Click:
Exit Sub
Err_frmIcmd_AddAddr_Click:
MsgBox Err.DESCRIPTION
Resume Exit_frmIcmd_AddAddr_Click
Skip2:
End Sub
Thanks in advance.
Steven
"Better to be part of the solution than part of the problem."
Private Sub frmIcmd_AddAddr_Click()
On Error GoTo Err_frmIcmd_AddAddr_Click
If Me!["frmItxt_GISDone"].Value Is Null Then
DisplayMsg = MsgBox("All fields must be complete before entering cross-reference addresses.", vbCritical, "DATA ENTRY PROCEDURAL ERROR.")
DoCmd.Close
GoTo Skip2
Else
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmAddADDR"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Exit_frmIcmd_AddAddr_Click:
Exit Sub
Err_frmIcmd_AddAddr_Click:
MsgBox Err.DESCRIPTION
Resume Exit_frmIcmd_AddAddr_Click
Skip2:
End Sub
Thanks in advance.
Steven
"Better to be part of the solution than part of the problem."