I am still pretty new to VBA and am having trouble compiling the following module. I get a "Compile Error: Invalid Qualifier" pointing to "HoldInputDate" and "HoldGLGroup" and "HoldGLGroup".....etc in the following section:
and I cannot figure out why. Here is the complete code. Could I ask another pair of eyes to take a look and offer some advice? Thank you.
Code:
.Fields("InputDate").Value = HoldInputDate.Value
.Fields("Group").Value = HoldGLGroup.Value
.Fields("Shift").Value = HoldShift.Value
.Fields("Auditedby").Value = HoldAuditedBy.Value
.Fields("AuditArea").Value = HoldArea.Value
and I cannot figure out why. Here is the complete code. Could I ask another pair of eyes to take a look and offer some advice? Thank you.
Code:
Sub UnsafeDrive()
On Error GoTo Err_Handler
Dim HoldSkipToNextRecord As String
Dim HoldInputDate As Date
Dim HoldShift As String
Dim HoldGLGroup As String
Dim HoldArea As String
Dim HoldAuditedBy As String
Dim HoldUnsafeTally As Integer
Dim HoldUnsafeID As Integer
Dim dbobject As DAO.Database
Dim UnsafeRS As DAO.Recordset
Dim strquery As String
Dim strquery1 As String
HoldInputDate = Forms!SafetyInputForm.TxtDate.Value
HoldShift = Forms!SafetyInputForm.TxtShift.Value
HoldGLGroup = Forms!SafetyInputForm.TxtGLNumber.Value
HoldArea = Forms!frmDriveAudit.txtArea.Value
HoldAuditedBy = Forms!frmDriveAudit.txtAuditedBy.Value
HoldSkipToNextRecord = "No"
Set dbobject = CurrentDb
strquery = "SELECT * FROM DriveAuditCheck "
strquery1 = "SELECT * FROM Unsafe"
Set UnsafeRS = dbobject.OpenRecordset(strquery)
With UnsafeRS
.MoveFirst
Do While Not .EOF
If IsNull(.Fields("UnsafeTally").Value) Then
.MoveNext
Else
If .Fields("Group").Value = Forms!SafetyInputForm.Controls!TxtGLNumber.Value Then
HoldUnsafeTally = .Fields("UnsafeTally").Value
HoldUnsafeID = .Fields("UnsafeID").Value
End If
If .Fields("Group").Value <> Forms!SafetyInputForm.Controls!TxtGLNumber.Value Then
HoldSkipToNextRecord = "Yes"
End If
If HoldSkipToNextRecord = "No" Then
With UnsafeRS
.MoveFirst
Do While Not .EOF
.MoveNext
Loop
If .EOF Then
.AddNew
.Fields("InputDate").Value = HoldInputDate.Value
.Fields("Group").Value = HoldGLGroup.Value
.Fields("Shift").Value = HoldShift.Value
.Fields("Auditedby").Value = HoldAuditedBy.Value
.Fields("AuditArea").Value = HoldArea.Value
.Fields("UnsafeID").Value = HoldUnsafeID
.Fields("UnsafeTally").Value = HoldUnsafeTally
.Update
HoldUnsafeTally = ""
End With
HoldSkipToNextRecord = "No"
.MoveNext
End If
End If
Loop
End With
End If
UnsafeRS.Close
Err_Handler:
'MsgBox "Error number " & Err & ": " & Error(Err)
Select Case Err
Case Is = 94
Resume Next
End Select
End Sub