Code: Select all
SELECT tblTubeSerial.TubeSerialID, tblTubeSerial.TubeSerial, tblTubeSerial.SupplierID, tblTubeSerial.BlockID
FROM tblTubeSerial
WHERE (((tblTubeSerial.SupplierID)=[forms]![frmTubeSerial]![cmbSupplier]) AND ((tblTubeSerial.BlockID)=[forms]![frmTubeSerial]![cmbBlock])) OR (((tblTubeSerial.BlockID)=[forms]![frmTubeSerial]![cmbBlock]) AND (([Forms]![frmTubeSerial]![cmbSupplier]) Is Null)) OR (((tblTubeSerial.SupplierID)=[forms]![frmTubeSerial]![cmbSupplier]) AND (([forms]![frmTubeSerial]![cmbBlock]) Is Null)) OR ((([Forms]![frmTubeSerial]![cmbSupplier]) Is Null) AND (([forms]![frmTubeSerial]![cmbBlock]) Is Null));
Code: Select all
Private Sub cmbSupplier_AfterUpdate()
'requeries list to only show tube serials for selected supplier amongst all blocks or selected block (if already populated)
Me.lstSupplierSerials.Requery
End Sub
Private Sub cmbBlock_AfterUpdate()
'requeries list to only show tube serials for selected block
Me.lstSupplierSerials.Requery
End Sub