G
Guest
Subform in datasheet view.
"If field 1 contains no data, use field 2, else use field 1"
Field 1 is formatted for date, ie "dd-mmm-yy"
Field 2 is formatted for text
The basic program runs as follows;
Sub Combo69_AfterUpdate()
' Find the record that matches the control.
Me.RecordsetClone.FindFirst "[Machine] = '" & Me![Combo69] & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
Me.List6.RowSource = "SELECT DISTINCT [Masterlist].[Customer] FROM
[Masterlist] WHERE [Masterlist].[Machine] = '" & Combo69.Text & "';"
'Clear entry
Me![Combo69] = ""
End Sub
"If field 1 contains no data, use field 2, else use field 1"
Field 1 is formatted for date, ie "dd-mmm-yy"
Field 2 is formatted for text
The basic program runs as follows;
Sub Combo69_AfterUpdate()
' Find the record that matches the control.
Me.RecordsetClone.FindFirst "[Machine] = '" & Me![Combo69] & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
Me.List6.RowSource = "SELECT DISTINCT [Masterlist].[Customer] FROM
[Masterlist] WHERE [Masterlist].[Machine] = '" & Combo69.Text & "';"
'Clear entry
Me![Combo69] = ""
End Sub