Function error: byRef
08.02.2005 14:10:45
Lars
Kurze Info: vba nein ist übertrieben. wird immer besser...
Nun zu meinem Prob. Er meckert bei meinem funktionsaufruf, wobei der wie unten stattfindet und die funktionsköpfe ebenso dastehen. :)
Genaue Fehlermeldung:
Fehler beim Kompilieren:
Argumenttyp byRef unverträglich
und markiert dabei das kleine a im Aufruf (s.u.)
Ich sehe da sein Prob net. er will integer in die Funktion reinhaben und ich gebe ihm integer... muß wohl was grundlegendes noch nicht verstanden haben.
MfG Lars
Dim a, b, c, d As Integer
a = suche1(DatenE.ComboBox1.Text)
If a (größer) 0 Then
DatenE.TeilprojektNr.Text = a
b = suche2(DatenE.Maßnahmenblock.Text, a)
(...)
Private Function suche1(search_1 As String) As Integer
Private Function suche2(search_1 As String, TP_id As Integer) As Integer