Code:
Option Compare Database
Option Explicit
Global Currentuser As String
Public Sub New_Measurement(WP)
Dim Strsql As String
Dim measurement As Integer
measurement = DLookup("[Measurement]", "Brake Lining", "[Unit Type]= '" & Forms!addreplacements.unittype & "' AND [Wheel Position]= '" & WP & "' AND [New]=True")
Strsql = "Insert into MAIN (unitnumber, Date1 ,kilometers, username, DateEntered, Item, WheelPosition, measurement) Values (" & Forms!addreplacements.Unit.Value & " , #" & (Forms!addreplacements.Done.Value) & "# , " & Forms!addreplacements.KMS.Value & " , '" & Currentuser1 & "' , #" & Now() & "#,'" & Forms!addreplacements.Thing.Value & "' , '" & WP & "', " & measurement & " )"
CurrentDb.Execute (Strsql)
End Sub
Public Sub New_Tire_Measurement(WP)
Dim Strsql As String
Dim measurement As Integer
measurement = DLookup("[Measurement]", "Tread Depth", "[Unit Type]= '" & Forms!addreplacements.unittype & "' and [Wheel Position]= '" & WP & "' and [New]=True")
Strsql = "Insert into MAIN (unitnumber, Date1 ,kilometers, username, DateEntered,Item, WheelPosition, measurement) Values (" & Forms!addreplacements.Unit.Value & " , #" & (Forms!addreplacements.Done.Value) & "# , " & Forms!addreplacements.KMS.Value & " , '" & Currentuser1 & "', #" & Now() & "# ,'" & Forms!addreplacements.Thing.Value & "' , '" & WP & "', " & measurement & " )"
CurrentDb.Execute (Strsql)
End Sub
Public Sub Add_Measurement(Item, WP, measurement)
Dim Strsql As String
Strsql = "insert into MAIN (Unitnumber,Date1, Kilometers, username, DateEntered, item, WheelPosition,measurement) values (" & Forms!AddMeasurement2.Unit.Value & ", #" & Forms!AddMeasurement2.Done.Value & " #, " & Forms!AddMeasurement2.KMS.Value & ", '" & Currentuser1 & "', #" & Now() & " #, '" & Item & "', '" & WP & "' ," & measurement & ")"
CurrentDb.Execute (Strsql)
End Sub
Public Sub Add_Measurement_update(Item, WP, measurement)
Dim Strsql As String
Strsql = "Insert into MAIN (UnitNumber,format,Date1,Kilometers,Username,DateEntered,Item,WheelPosition,Measurement) Values ( " & Forms!New_Measurement.Unit_Number.Value & ", #" & Forms!New_Measurement.Date_Done.Value & "#, " & Forms!New_Measurement.KMS.Value & ", '" & Currentuser1 & "',#" & Now() & "#, '" & Item & "','" & WP & "', " & measurement & ")"
CurrentDb.Execute (Strsql)
End Sub