Thema Datum  Von Nutzer Rating
Antwort
31.08.2012 08:59:40 Math
NotSolved
31.08.2012 13:32:04 Dekor
NotSolved
31.08.2012 19:31:03 Gast71057
NotSolved
Blau Datenfeld auf existenz Prüfen mit VBA
31.08.2012 22:01:52 Dekor
NotSolved
01.09.2012 09:45:26 Gast7491
NotSolved
01.09.2012 09:45:27 Gast72817
NotSolved
01.09.2012 12:03:30 Gast71358
NotSolved
03.09.2012 12:30:58 Dekor
NotSolved
03.09.2012 17:14:01 Gast17697
NotSolved
04.09.2012 12:38:24 Dekor
NotSolved
05.09.2012 20:38:48 Gast94556
Solved
05.09.2012 20:38:48 Gast35671
NotSolved
13.09.2012 22:55:43 Gast45630
NotSolved
17.09.2012 12:38:39 Dekor
NotSolved
18.09.2012 12:45:57 Gast2823
NotSolved

Ansicht des Beitrags:
Von:
Dekor
Datum:
31.08.2012 22:01:52
Views:
2304
Rating: Antwort:
  Ja
Thema:
Datenfeld auf existenz Prüfen mit VBA

Hallo Sady,

tschuldigung mein Fehler, ich bin von einer Excel Tabelle ausgegangen, hier mein nächster Vorschlag:

 

Sub Faktor()
   Dim rcsPlan As Recordset
   Dim eingabe As String
   Dim wert As String
   Dim DB As Database

   Set DB = CurrentDb
   Set rcsPlan = DB.OpenRecordset("MyTable")

   eingabe = InputBox("geben Sie Materialnummer ein")

   Do Until rcsPlan.eof
      wert = rcsPlan.Fields("MyFeld").Value
      If eingabe = wert Then
         'rcsPlan.Edit 
         MsgBox ("Materialnummer vorhanden")
      Else 
         MsgBox ("Materialnummer nicht vorhanden")
      End If
      rcsPlan.MoveNext
   Loop

   Set rcsPlan = Nothing
   Set DB = Nothing
End Sub

 

mit der Schleife gehst du alle Datensätze durch und prüfst mit der Eingabe, jetzt kommt aber bei jedem Datensatz die Meldung ob vorhanden oder nicht

 

Gruß Detlev


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
31.08.2012 08:59:40 Math
NotSolved
31.08.2012 13:32:04 Dekor
NotSolved
31.08.2012 19:31:03 Gast71057
NotSolved
Blau Datenfeld auf existenz Prüfen mit VBA
31.08.2012 22:01:52 Dekor
NotSolved
01.09.2012 09:45:26 Gast7491
NotSolved
01.09.2012 09:45:27 Gast72817
NotSolved
01.09.2012 12:03:30 Gast71358
NotSolved
03.09.2012 12:30:58 Dekor
NotSolved
03.09.2012 17:14:01 Gast17697
NotSolved
04.09.2012 12:38:24 Dekor
NotSolved
05.09.2012 20:38:48 Gast94556
Solved
05.09.2012 20:38:48 Gast35671
NotSolved
13.09.2012 22:55:43 Gast45630
NotSolved
17.09.2012 12:38:39 Dekor
NotSolved
18.09.2012 12:45:57 Gast2823
NotSolved