Hallo Leute,
habe mal wieder ein Problem, an dem ich verzweifle. ??? ???
Bitte nicht wundern, dass es keinen Sinn ergibt. Aber ich versuche etwas zu testen um es dann in den Programmablauf einzubauen.
Hier der Code:
Private Sub Befehl16_Click()
Dim tester As String
tester = "20110011"
MsgBox tester
If ((Me.Verwendungszweck Like "*Rück*") And (Me.Verwendungszweck Like "*Gebühr*")) Then
MsgBox "Jo"
ElseIf Me.Verwendungszweck Like "* & 'tester' & *" Then
MsgBox "jojojojojo"
Else
MsgBox "No"
End If
End Sub
Ich habe mein Problem im Bereich ElseIf. Ich möchte den Inhalt meines Verwendungszwecks mit dem Inhalt des Strings tester vergleichen. Dieser String wird im Verwendungszweck aber irgendwo in der Mitte sein.
Wie kann ich das lösen?
Hallo,
Du wirfst genaugenommen etwas durcheinander:
ZitatIch möchte den Inhalt meines Verwendungszwecks mit dem Inhalt des Strings tester vergleichen
müsste heißen:
Ich möchte den Inhalt des Textfeldes Verwendungszweck mit dem Inhalt dem Inhalt der String-Variablen tester vergleichen.
und dazu die Codezeile:
ElseIf Me.Verwendungszweck Like
"*" & tester & "*" Then
thx, das meinte ich und das ist die Lösung!!