JavaToPerlNowVB
Programmer
I have this code in in my form
I get an error on the line If searchWOnumPed = WorkOrderUpdate_Text And UpdatePed Then (red color line)
it says object doesn't support this property or method
thanks
Code:
Private Sub WorkOrderUpdate_button_Click()
On Err GoTo err_WorkOrderUpdate_button_click
Dim updateQryPole As String
Dim updateQryPed, updateQrySWTGR, updateQryXFMR As String
Dim searchWOnumPole As Variant
Dim searchWOnumPed As Variant
Dim searchWOnumTrans As Variant
Dim searchWOnumSwitch As Variant
searchWOnumPole = DLookup("[WO]", "QueryMaintPole", "[WO] = WorkOrderUpdate_Text")
searchWOnumPed = DLookup("[WO]", "QueryMaintPed", "[WO] = WorkOrderUpdate_Text")
searchWOnumTrans = DLookup("[WO]", "QueryMaintXFMR", "[WO] = WorkOrderUpdate_Text")
searchWOnumSwitch = DLookup("[WO]", "QueryMaintSWTGR", "[WO] = WorkOrderUpdate_Text")
If IsNull(WorkOrderUpdate_Text) Then
MsgBox "Please enter Work Order"
Exit Sub
ElseIf IsNull(New_WorkOrder_Text) Then
MsgBox "Please enter new work order"
Exit Sub
End If
'Checking the workorder number for each table
If searchWOnumPole = WorkOrderUpdate_Text And updatePole Then
MsgBox "poleNum " & searchWOnumPole
updateQryPole = "UpdateQueryMaintPole"
DoCmd.OpenQuery updateQryPole, acViewNormal, acEdit
ElseIf IsNull(updatePole) Then
MsgBox "Please select a table to update"
Else
MsgBox "Invalid Pole number"
End If
[COLOR=red]
If searchWOnumPed = WorkOrderUpdate_Text And UpdatePed Then [/color]
MsgBox "Checking if bothConditions ard ok"
'updateQryPed = "UpdateQueryMaintPed"
'DoCmd.OpenQuery updateQryPed, acViewNormal, asEdit
ElseIf IsNull(UpdatePed) Then
MsgBox "Please select a table to update"
Else
MsgBox "Invalid Pedestrial number"
End If
'If searchWOnumSwitch Then
'updateQrySWTGR = "UpdateQueryMaintSWTGR"
'DoCmd.OpenQuery updateQrySWTGR, acViewNormal, acEdit
'End If
'If searchWOnumTrans Then
'updateQryXFMR = "UpdateQueryMaintXFMR"
'DoCmd.OpenQuery updateQryXFMR, acViewNormal, acEdit
'End If
exit_WorkOrderUpdate_button_click:
Exit Sub
err_WorkOrderUpdate_button_click:
MsgBox Err.Description
Resume exit_WorkOrderUpdate_button_click
End Sub
I get an error on the line If searchWOnumPed = WorkOrderUpdate_Text And UpdatePed Then (red color line)
it says object doesn't support this property or method
thanks