ein nettes hallo an alle!
ich möchte an eine sub eine combobox übergeben wenn ich das mache, bekomme ich die meldung bei dem aufruf. fehler beim kompilieren erwartet =
:
:
comboDynamisch("kunde","ku_nr","Ku_name",me.comboKunde)
:
:
Sub comboDynamisch(strTbl As String, fieldNr As String, fieldName As String, box As DataCombo)
Dim rs As ADODB.Recordset
Dim sql As String
sql = "Select * from " & strTbl
Set rs = db_recordset(cn, sql)
Set Me.combo.RowSource = rs
box.ListField = "" & fieldName
box.BoundColumn = "" & fieldNr
End Sub
ich möchte an eine sub eine combobox übergeben wenn ich das mache, bekomme ich die meldung bei dem aufruf. fehler beim kompilieren erwartet =
:
:
comboDynamisch("kunde","ku_nr","Ku_name",me.comboKunde)
:
:
Sub comboDynamisch(strTbl As String, fieldNr As String, fieldName As String, box As DataCombo)
Dim rs As ADODB.Recordset
Dim sql As String
sql = "Select * from " & strTbl
Set rs = db_recordset(cn, sql)
Set Me.combo.RowSource = rs
box.ListField = "" & fieldName
box.BoundColumn = "" & fieldNr
End Sub