Guten Tag
Ich Habe Fragen zur SELECT CASE Z.B
Sub Moni08B()
Dim WS As Workspace
Dim DB As Database, rs As Recordset
Dim StrSuch, StrSuch01, StrSuch02, StrSuch03, Msg$, Taste%
On Error Resume Next
StrSuch = Me.Entgelt06
StrSuch01 = Me.PLZ001
StrSuch02 = Me.PLZ001
StrSuch03 = "B"
If Err <> 0 Then Exit Sub
On Error GoTo 0
Set WS = DBEngine.Workspaces(0)
Set DB = WS.Databases(0)
Set rs = DB.OpenRecordset("AussengebietszuschlagUPS03B", dbOpenDynaset, dbSeeChanges)
rs.FindFirst "[Land] like'*" & StrSuch & "*' AND [Niedrig] like'*" & StrSuch01 & "*' AND [Hoch] like'*" & StrSuch02 & "*' AND [TA01] like'*" & StrSuch03 & "'"
Select Case PLZ001.Value
Case Rs![Niedrig] To Rs![Hoch]
MsgBox "Okay"
Case Else
MsgBox "Nicht OKay"
End Select
Funktioniert nicht Was Habe ich Falsch gemacht?????
Danke für Ihre Hilfe