Compile Error: Invalid Qualifier (1 Viewer)

Indigo

Registered User.
Local time
Today, 06:33
Joined
Nov 12, 2008
Messages
241
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:

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
 

pbaldy

Wino Moderator
Staff member
Local time
Today, 02:03
Joined
Aug 30, 2003
Messages
36,118
You don't want .Value on the end of your variables.
 

Indigo

Registered User.
Local time
Today, 06:33
Joined
Nov 12, 2008
Messages
241
Um, pardon my ignorance, but what do I want?
 

SOS

Registered Lunatic
Local time
Today, 02:03
Joined
Aug 27, 2008
Messages
3,517
CORRECTION - MISREAD THE STUFF.

.Fields("InputDate").Value = HoldInputDate
 
Last edited:

pbaldy

Wino Moderator
Staff member
Local time
Today, 02:03
Joined
Aug 30, 2003
Messages
36,118
Um, pardon my ignorance, but what do I want?

You don't want .Value, just as on your others:

.Fields("UnsafeID").Value = HoldUnsafeID
 

Users who are viewing this thread

Top Bottom