Hallo
beim Click definierst du du die Variable btn.
Unten füllst und übergibst aber btnCl.
Da btnCl nicht definiert ist, ist es erst mal ein Variant, und der kann dann nicht als "Referenc" an ein Integer übergben werden.
entweder du definierst dann btnCl als reiner Wert an die Funktion übergeben wird, mit ByVal.
Public Function fktCreateStrg(ByVal intMsgFeedback As Integer, fldLang As String)
oder du korrigierst deine Definition von
Dim btn as Interger
zu
Dim btnCl as integer.
Ich empfehle immer im Code oben
Option Explicit
einzufügen. Somit muss man alle Variablen sauber deklarieren.
Kann auch in den Optionen eingestellt werden "Variablendekleration erforderlich", dass es automatisch kommt.
|