Parameterübergabe an Funktion

05/12/2008 - 21:11 von Joerg M. | Report spam
Hi,

ich habe in dieser NG ein Problem auf Prozedruebene lösen können und wollte
es jetzt als Funktion, da ich den Code für mehrere Listenfelder in meheren
Formularen benötige.

Leider klappt es nicht.

Kann mir jemand sagen, warum?

Danke, Gruß Joerg

Private Sub befehl3_click()

Call fktLstRead(Forms!Formular1, Liste0, Text4)

End Sub

Function fktLstRead(objFrm As Form, ctlLst As Control, ctlTxt As Control)

Dim varItm As Variant
Dim varStr As String

For Each varItm In objFrm!ctlLst.ItemsSelected

varStr = ctlLst.Column(1, varItm) & "; " & varStr

'Hier Fehler: 2465 (ctllst wird nicht gefunden)

Next varItm

If Not varStr = "" Then

varStr = Left(varStr, Len(varStr) - 2)

End If

ctlTxt = varStr

End Function
 

Lesen sie die antworten

#1 Gunter Avenius
05/12/2008 - 21:28 | Warnen spam
Hallo Joerg,

Joerg M. schrieb folgendes:
ich habe in dieser NG ein Problem auf Prozedruebene lösen können und wollte
es jetzt als Funktion, da ich den Code für mehrere Listenfelder in meheren
Formularen benötige.

Leider klappt es nicht.



Probiere es so:

Function fktLstRead(ctlLst As control, ctlTxt As control)

Dim varItm As Variant
Dim varStr As String

For Each varItm In ctlLst.ItemsSelected
varStr = ctlLst.Column(1, varItm) & "; " & varStr
Next varItm

If Not varStr = "" Then
varStr = Left(varStr, Len(varStr) - 2)
End If

ctlTxt = varStr

End Function

Aufruf:
Call fktLstRead(Me!Liste2, Me!txtTextbox)

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de

Ähnliche fragen