Hallo Leute,
ich habe mal wieder ein VBA-Problem in Access.
ich habe eine funktion
function fkt_MaschUmstellSRH(da,db,Maschine,Maschine1,Date1,Date2) as double
das "SRH" steht für einen Maschinennamen.
Wert = fkt_MaschUmstellSRH(da,db,Maschine,Maschine1,Date1,Date2) --> funktioniert
Ich habe 28 Maschinen und möchte die funktion jetzt nicht 28 mal aufrufen sondern evtl mit einer variable.
in der art
Wert = fkt_MaschUmstell & Variable & (da,db,Maschine,Maschine1,Date1,Date2)
aber so funktioniert es natürlich nicht.
habt ihr eine idee dafür?
hier noch erläuterungen
Wert Wert Typ Double
Variable, Maschine, Maschine1, Date1, Date2 vom Typ String
da, db vom Typ DAO.Database
ich habe es mit der eval()_Funktion ausprobiert, bin aber nicht zum Ziel gekommen. Hier mein eval()-Versuch
Wert = Eval("fkt_MaschUmstell" & Variable & "(" & da & ", " & db & ", " & Maschine & ", " & Maschine1 & ", " & Date1 & ", " & Date2 & ")")
dabei kommt aber der Fehler "Typen unverträglich" und "da" wird beim debuggen markiert...
also ich hab kein plan wies funktionieren soll.
Für Vorschläge wäre ich sehr dankbar.
so long,
canner |