Thema Datum  Von Nutzer Rating
Antwort
Rot Access VBA
30.07.2023 17:31:36 SOI
NotSolved
01.08.2023 20:08:46 Gast15090
NotSolved
03.08.2023 17:07:45 SOI
NotSolved
05.08.2023 21:12:42 Markusxy
NotSolved
06.08.2023 23:07:02 SOI
NotSolved

Ansicht des Beitrags:
Von:
SOI
Datum:
30.07.2023 17:31:36
Views:
308
Rating: Antwort:
  Ja
Thema:
Access VBA
Ich Brauche Hilfe z.b.
Set rs = DB.OpenRecordset("AussengebietszuschlagUPS03B", dbOpenDynaset, dbSeeChanges)
rs.FindFirst "[Land] like'*" & StrSuch & "*' AND [Niedrig] like'*" & StrSuch01 & "*' AND [Hoch] like'*" & StrSuch01 & "*' AND _
              [TA01] like'*" & StrSuch03 & "'*"
If StrSuch = rs![Land] And StrSuch01 >= rs![Niedrig] And StrSuch02 <= rs![Hoch] And StrSuch03 = rs![TA01] Then
  MsgBox "Customer name002"
Else
  MsgBox "Test007.", , "Verkäufer"
  rs.FindNext "[Land] like'*" & StrSuch & "*' AND _
               [Niedrig] like'*" & StrSuch01 & "*' AND _
               [Hoch] like'*" & StrSuch02 & "*' AND _
               [TA01] like'*" & StrSuch03 & "'"
End If
End Sub

Funtioniert nicht Was bae ich falsch gemacht?


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Access VBA
30.07.2023 17:31:36 SOI
NotSolved
01.08.2023 20:08:46 Gast15090
NotSolved
03.08.2023 17:07:45 SOI
NotSolved
05.08.2023 21:12:42 Markusxy
NotSolved
06.08.2023 23:07:02 SOI
NotSolved