Hello all,
Looked at the othe threads re listbox.
I have a simular problem see vba
I would like to resolve this but failing, can anyone help or point me to a differant thread
Looked at the othe threads re listbox.
I have a simular problem see vba
Private Sub Combo2_AfterUpdate()
Dim STRSQL As String, STRENG As String
Dim ENGNUM As Integer
Dim db As Database
Set db = CurrentDb
STRSQL = "DELETE * FROM WHAT_EQUIP;"
db.Execute STRSQL
STRSQL = "DELETE * FROM WHAT_TYPE;"
db.Execute STRSQL
STRENG = Me.Combo2.Column(3)
ENGNUM = Me.Combo2.Column(4)
'Fill Temp WHAT_EQUIP
STRSQL = "INSERT INTO WHAT_EQUIP ( TYPEID, TYPE, ENGINEER, ENGID )SELECT Engineers_Types.ID, Engineers_Types.TYPE, Engineers_Types.ENGINEER, Engineers_Types.ENGID FROM Engineers_Types WHERE ENGID = " & ENGNUM & ""
db.Execute STRSQL
'Fill Temp WHAT_TYPE
STRSQL = "INSERT INTO WHAT_TYPE ( TYPEID, TYPE, ENGID) SELECT WHAT_EQUIP.TYPEID, WHAT_EQUIP.TYPE, WHAT_EQUIP.ENGID FROM WHAT_EQUIP WHERE ENGID = " & ENGNUM & ""
db.Execute STRSQL
' setting combobox rowsource property to SELECT Engineers_Types.* FROM Engineers_Types; works fine (Set to table/query)
' setting listbox rowsource property to SELECT WHAT_TYPE.* FROM WHAT_TYPE; Does not work (Set to table/query)
Set db = Nothing
End Sub
I would like to resolve this but failing, can anyone help or point me to a differant thread