Code:
mySelectQuery = ("UPDATE RF_Assign SET Gun_In = '" _
& searchGunIn & "' ,Batt_In = '" & searchGunIn _
& "' WHERE Badge = '" & strBadge & "'")
mySelectQuery = ("UPDATE RF_Assign SET Gun_In = '" _
& searchGunIn & "' ,Batt_In = '" & searchGunIn _
& "' WHERE Badge = '" & strBadge & "'")
Call chkGunIn("Gun_In", "Batt_In")
Sub chkGunIn(ByVal searchGunIn As String, ByVal strBadge As String)
Dim daGun
insertStatement = "INSERT INTO RF_Assign (Autoi, Badge, Gun_Number, Gun_Out, Gun_In, Batt_Number, Batt_Out, Batt_In) VALUES ('" + Row_count + "','" _
+ frmMain.txtBadge.Text + "','" + frmMain.TxtGun.Text + _
"','" + GOut + "','" + GIn + "','" + frmMain.txtBatt.Text +
Call chkGunIn("Gun_In", "Batt_In")
Sub chkGunIn(ByVal
Sub chkGunIn()
Dim daGun
Leave a comment: