I converted a database from 97 to 2010, and i have a form that gives an option to select a ck box
here's the code, can some please help me with what i need to change. PLEASE!!!! it's driving me nuts!!!
I'm getting an error - Invalid use of property
Option Compare Database
Option Explicit
Public Sub Button135_Click()
Dim DocName As String
Dim LinkCriteria As String
On Error GoTo ErrorHandler:
DocName = "Loan Vehicle RENT"
DoCmd.OpenForm DocName, , , LinkCriteria
ExitRoutine:
Exit Sub
ErrorHandler:
MsgBox Error$()
Resume ExitRoutine
End Sub
Public Sub Command140_Click()
End Sub
Public Sub Command139_Click()
If IsNull(Controls("Unit")) Then
Beep
MsgBox "You do not have the unit master file open. Close application and reopen", _
vbCritical, "Unit"
End
ElseIf IsNull(Controls("Reason")) Then
Beep
MsgBox "You do not have the Reason for this Workorder listed.", _
vbCritical, "Unit"
End
ElseIf Controls("Mileage") < 1 Then
Controls("Mileage") = Controls("CURRENT")
End If
Forms("Company Profile").Controls("Workorder Number").Requery
Controls("Workorder Number") = Forms("Company Profile").Controls("Workorder Number") + 1
Forms("Company Profile").Controls("Workorder Number") = Forms("Company Profile").Controls("Workorder Number") + 1
DoCmd.Close acForm, "Company Profile"
DoCmd.OpenForm "Company Profile", , "", "", acFormEdit, acHidden
If Controls("NEED PM") = 2 Then
Me.PMforWO.Form.Controls("pm1 miles") = Controls("Mileage")
Me.PMforWO.Form.Controls("PM1 DATE") = Controls("Date")
ElseIf Controls("NEED PM") = 3 Then
Me.PMforWO.Form.Controls("pm1 miles") = Controls("Mileage")
Me.PMforWO.Form.Controls("PM1 DATE") = Controls("Date")
Me.PMforWO.Form.Controls("pm2 miles") = Controls("Mileage")
Me.PMforWO.Form.Controls("PM2 DATE") = Controls("Date")
End If
DoCmd.DoMenuItem 0, 0, 4, 0, 70
Forms("Unit Master Form").Controls("Miles") = Controls("Mileage")
DoCmd.SetWarnings False
Controls("Workorder Number").SetFocus
DoCmd.DoMenuItem 0, 0, 4, 0, 70
Forms("main menu").Controls("wo") = Controls("Workorder Number")
DoCmd.RepaintObject acForm, "Workorder CREATE"
If Controls("PMTYPE") <> "No" Then
DoCmd.RunSQL "INSERT INTO [Workorder Detail Parts] ( [Workorder Number], Unit, SY, [Part Number], Qty, [Part Cost], Description, [Total Amount], TAX )SELECT DISTINCTROW [Forms]![Workorder CREATE]![Workorder Number] AS [Workorder Number], [Forms]![Workorder CREATE]![UNIT] AS Unit, [pm kit].Sy, [pm kit].[Part Number], [pm kit].Qty, [pm kit].[Part Cost], [pm kit].Description, [pm kit].[Total Amount], [pm kit].TAX FROM [pm kit]WHERE ((([pm kit].[PM type])=[Forms]![Workorder CREATE]![PMTYPE]));"
If Controls("NEED PM") = 2 Then
Controls("PMTYPE") = "PM1"
ElseIf Controls("NEED PM") = 3 Then
Controls("PMTYPE") = "PM2"
End If
Else
Controls("PMTYPE") = " "
End If
DoCmd.DoMenuItem 0, 0, 4, 0, 70
DoCmd.RepaintObject acForm, "Workorder CREATE"
If Controls("Repair Site") = 1 Then
DoCmd.Close acForm, "Workorder CREATE"
DoCmd.OpenReport "Workorder work page", , "", ""
DoCmd.OpenReport "Workorder PARTS page", , "", ""
Else
DoCmd.Close acForm, "Workorder CREATE"
DoCmd.OpenReport "Workorder work page OS", , "", ""
End If
End Sub
Public Sub Command141_Click()
On Error GoTo ErrorHandler:
Undo
DoCmd.Close
ExitRoutine:
Exit Sub
ErrorHandler:
MsgBox Err().Description
Resume ExitRoutine
End Sub
Public Sub Command152_Click()
On Error GoTo ErrorHandler:
DoCmd.DoMenuItem acFormBar, acEditMenu, acSelectRecord, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, acDelete, , acMenuVer70
ExitRoutine:
Exit Sub
ErrorHandler:
MsgBox Err().Description
Resume ExitRoutine
End Sub
Public Sub Command164_Click()
Dim stDocName As String
Dim stLinkCriteria As String
If IsNull(Controls("Unit")) Then
Beep
MsgBox "You do not have the unit master file open. Close application and reopen", _
vbCritical, "Unit"
End
ElseIf IsNull(Controls("Reason")) Then
Beep
MsgBox "You do not have the Reason for this Workorder listed.", _
vbCritical, "Unit"
End
ElseIf Controls("Mileage") < 1 Then
Controls("Mileage") = Controls("CURRENT")
End If
Forms("Company Profile").Controls("Workorder Number").Requery
Controls("Workorder Number") = Forms("Company Profile").Controls("Workorder Number") + 1
Forms("Company Profile").Controls("Workorder Number") = Forms("Company Profile").Controls("Workorder Number") + 1
DoCmd.Close acForm, "Company Profile"
DoCmd.OpenForm "Company Profile", , "", "", acFormEdit, acHidden
If Controls("NEED PM") = 2 Then
Me.PMforWO.Form.Controls("pm1 miles") = Controls("Mileage")
Me.PMforWO.Form.Controls("PM1 DATE") = Controls("Date")
ElseIf Controls("NEED PM") = 3 Then
Me.PMforWO.Form.Controls("pm1 miles") = Controls("Mileage")
Me.PMforWO.Form.Controls("PM1 DATE") = Controls("Date")
Me.PMforWO.Form.Controls("pm2 miles") = Controls("Mileage")
Me.PMforWO.Form.Controls("PM2 DATE") = Controls("Date")
End If
DoCmd.RunCommand acCmdSaveRecord
Forms("Unit Master Form").Controls("Miles") = Controls("Mileage")
Forms("Unit Master Form").Controls("Hours") = Controls("Hours")
DoCmd.SetWarnings False
Controls("Workorder Number").SetFocus
DoCmd.RunCommand acCmdSaveRecord
Forms("main menu").Controls("wo") = Controls("Workorder Number")
DoCmd.RepaintObject acForm, "Workorder CREATE"
If Controls("PMTYPE") <> "No" Then
DoCmd.RunSQL "INSERT INTO [Workorder Detail Parts] ( [Workorder Number], Unit, SY, [Part Number], Qty, [Part Cost], Description, [Total Amount], TAX )SELECT DISTINCTROW [Forms]![Workorder CREATE]![Workorder Number] AS [Workorder Number], [Forms]![Workorder CREATE]![UNIT] AS Unit, [pm kit].Sy, [pm kit].[Part Number], [pm kit].Qty, [pm kit].[Part Cost], [pm kit].Description, [pm kit].[Total Amount], [pm kit].TAX FROM [pm kit]WHERE ((([pm kit].[PM type])=[Forms]![Workorder CREATE]![PMTYPE]));"
If Controls("NEED PM") = 2 Then
Controls("PMTYPE") = "PM1"
ElseIf Controls("NEED PM") = 3 Then
Controls("PMTYPE") = "PM2"
End If
Else
Controls("PMTYPE") = " "
End If
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RepaintObject acForm, "Workorder CREATE"
If Controls("Repair Site") = 1 Then
stDocName = "woinputs2"
stLinkCriteria = "[Workorder Number]=" & Controls("Workorder Number")
DoCmd.Close acForm, "Workorder CREATE"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Maximize
DoCmd.SetWarnings True
Else
stDocName = "woinputsOS"
stLinkCriteria = "[Workorder Number]=" & Controls("Workorder Number")
DoCmd.Close acForm, "Workorder CREATE"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Maximize
DoCmd.SetWarnings True
End If
End Sub
Public Sub NO_PM_GotFocus()
Controls("PMTYPE") = "NO"
End Sub
Public Sub PM1_GotFocus()
Controls = ("PMTYPE") = Controls("Kit11")
End Sub
Public Sub PM2_GotFocus()
Controls("PMTYPE") = Controls("Kit22")
End Sub