Query Works but it keeps asking for Parameter Values (1 Viewer)

[AJohnston]

Hi All,

This code doesn't throw any errors other than popups asking for parameter values: DriverID first and then ComboID second

Private Sub cboVanNumber_AfterUpdate()

Dim ComboID As Integer
Dim strSQL As String
Dim DriverID As Integer

DriverID = Forms!frmRoute!txtDriverID
ComboID = Forms!frmRoute!cboVanNumber.Value

strSQL = "UPDATE tblVan SET tblVan.FK_ID_Driver = DriverID " & vbCrLf & _
"WHERE (((tblVan.VanNumber)=ComboID));"
DoCmd.RunSQL strSQL

End Sub


Thanks!

 

[arnelgp]

change your query to:

strSQL = "UPDATE tblVan SET tblVan.FK_ID_Driver = " & DriverID & " " & vbCrLf & _
"WHERE (((tblVan.VanNumber)=" & ComboID & "));"

 

[Gasman]

That could all go on one line?

 

[AJohnston]

Thanks, Let me try to iron out one more detail.

 

[Mike Krailo]

Forms!frmRoute!cboVanNumber.Value(1)

Forms!frmRoute!cboVanNumber.column(1)

 

[AJohnston]

change your query to:

strSQL = "UPDATE tblVan SET tblVan.FK_ID_Driver = " & DriverID & " " & vbCrLf & _
"WHERE (((tblVan.VanNumber)=" & ComboID & "));"

Thanks arnelg

 

[AJohnston]

Forms!frmRoute!cboVanNumber.column(1)

Thanks for your help! Brilliant!