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
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
Blau Datenfeld auf existenz Prüfen mit VBA
 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:
03.09.2012 12:30:58		 Views:
2283		 Rating:
     
Antwort:
  Ja
Thema:
Datenfeld auf existenz Prüfen mit VBA

Hallo Sady,

das kann man dan so gestalten

 

Sub Faktor()
   Dim rcsPlan As Recordset
   Dim eingabe As String
   Dim wert As String
   Dim DB As Database
   Dim Vorhanden as Boolean
   
   Set DB = CurrentDb
   Set rcsPlan = DB.OpenRecordset("MyTable")
   Vorhanden = False
   
   eingabe = InputBox("geben Sie Materialnummer ein")
  
   Do Until rcsPlan.eof
      wert = rcsPlan.Fields("MyFeld").Value
      If eingabe = wert Then
         'rcsPlan.Edit
         Vorhanden = True
         ' Man kann hier auch die Schleife verlassen, ein Fundstück reicht ja
         Exit Do
      End If
      rcsPlan.MoveNext
   Loop
   If Vorhanden Then
      MsgBox ("Materialnummer vorhanden")
   Else
      MsgBox ("Materialnummer nicht vorhanden")
   End If
   Set rcsPlan = Nothing
   Set DB = Nothing
End Sub

 

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
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
Blau Datenfeld auf existenz Prüfen mit VBA
 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