Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Suchen Button mit Formel hinterlegen.
zurück: Diagramm weiter: Datensatz in Register einfügen / verschachtelte Register Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
speedy2114
Gast


Verfasst am:
22. Okt 2007, 09:51
Rufname:

Suchen Button mit Formel hinterlegen. - Suchen Button mit Formel hinterlegen.

Nach oben
       Version: Office 2003

Hallo Zusammen....

Brauche mal hilfe von schaluen Köpfen da ich auf dem Schlauch stehe und nicht weiß wo ich gerade ANfangen solll

Ich habe eine DB wo Kunden mit Versicherungsnummern sehen.

Jetzt habe ich ein Formular gestrickt wo die Daten alle hineinsollen.
Möchte das mit eienm Such/Abfragebutton machen.
In einem Feld gebe ich die Versicherungsnummer, in dem soll es auch nur möglich sein 8stellig einzugeben. Dann möchte ich auf den Button drückenund er soll mir die passenden Daten dazu raussuchen. Es sollte aber eine MsgBox aufgehen wenn die Zahl nicht in der Datenbank zu finden ist oder wenn mehr als acht stellen einegegn sind.

Danke euch schon jetzt einmal.
Pino
ACCESS-Einsteiger


Verfasst am:
22. Okt 2007, 12:25
Rufname:


AW: Suchen Button mit Formel hinterlegen. - AW: Suchen Button mit Formel hinterlegen.

Nach oben
       Version: Office 2003

Hallo Speedy,

um nur 8-stellige Werte eingeben zu können kannst du im Entwurfsmodus bei deinem Eingabefeld bei der Eigenschaft "Eingabeformat" dieses hinterlegen:
Code:
00000000;;_
Somit können nur Ziffern eingegeben werden und maximal 8 Stellen. Wird weniger eingegeben kommt allerdings eine unschöne Access Fehlermeldung
Zitat:
Für dieses Feld ist die folgende Eingabemaske eingegeben: '00000000;;_'. Der von Ihnen eigegebene Wert paßt nicht zu dieser Eingabemaske
Alternativ könntest du bei deinem Button (oder beim verlassen des Feldes) eine eigene Abfrage schreiben, die das überprüft:
Code:
    Dim vWert As Variant
    Dim x As Integer
   
    vWert = Me!Dein_EingabeFeld
    If Not IsNull(vWert) Then
        If Len(vWert) <> 8 Or Not IsNumeric(vWert) Then
            x = MsgBox("Hier kommt deine Fehlermeldung", _
                       vbCritical + vbOKOnly, "Anwendungsname")
            Exit Sub
        End If
      Else
        x = MsgBox("Hier kommt deine Fehlermeldung", vbCritical + vbOKOnly, _
                   "Anwendungsname")
        Exit Sub
    End If
Um die passenden Daten rauszusuchen kannst du folgendenden Code benutzen.
Code:
    Dim rs As Recordset
    Dim x As Integer
   
    Set rs = Me.RecordsetClone
    rs.FindFirst "Versicherungsnummer=" & Me!Dein_Eingabefeld        'Zahl
'   rs.FindFirst "Versicherungsnummer='" & Me!Dein_Eingabefeld & "'" 'Text
    If Not rs.NoMatch Then
        Me.Bookmark = rs.Bookmark
      Else
        x = MsgBox("Kein Datensatz gefunden", vbCritical + vbOKOnly, _
                   "Anwendungsname")
    End If
End Sub
Hab jetzt beide Codes nicht getestet, sollte aber so gehen.

MfG Pino
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Im Formular Wert in Tabelle suchen (Wertebereich) und Übertr 4 Kläuschen 4030 14. Nov 2006, 18:44
Kläuschen Im Formular Wert in Tabelle suchen (Wertebereich) und Übertr
Keine neuen Beiträge Access Tabellen & Abfragen: Wert in einer Tabelle mittels eines Eingabefeldes suchen 2 Gast1 783 27. Jul 2006, 11:16
Gast Wert in einer Tabelle mittels eines Eingabefeldes suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Formel in Datensatz speichern und diese berechnen 5 chrispx 3115 18. Jul 2006, 20:15
Nouba Formel in Datensatz speichern und diese berechnen
Keine neuen Beiträge Access Tabellen & Abfragen: Formel??? 1 ku 579 02. Jun 2006, 09:31
Gast Formel???
Keine neuen Beiträge Access Tabellen & Abfragen: NULL suchen und ersetzen [VBA] 2 theindeed21 1914 03. Mai 2006, 10:23
theindeed21 NULL suchen und ersetzen [VBA]
Keine neuen Beiträge Access Tabellen & Abfragen: Löschabfrage als Button 2 Freund 981 10. März 2006, 15:16
Freund Löschabfrage als Button
Keine neuen Beiträge Access Tabellen & Abfragen: Duplikate suchen 1 erwing 805 21. Jan 2006, 13:35
Wollibär Duplikate suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Warengruppen suchen 0 umbroboy 581 07. Nov 2005, 18:03
umbroboy Warengruppen suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Formel im Bezeichnungsfeld bei Abfragen? 11 Schwarzer Engel 996 15. Aug 2005, 16:50
Willi Wipp Formel im Bezeichnungsfeld bei Abfragen?
Keine neuen Beiträge Access Tabellen & Abfragen: Position eines Leerzeichen von rechts suchen - Access 2000 3 ClayPigeons 2107 11. Jan 2005, 12:53
Skogafoss Position eines Leerzeichen von rechts suchen - Access 2000
Keine neuen Beiträge Access Tabellen & Abfragen: Unternummern von Artikeln suchen/verwalten 4 umbroboy 502 22. Nov 2004, 17:49
Gast Unternummern von Artikeln suchen/verwalten
Keine neuen Beiträge Access Tabellen & Abfragen: Nach Platzhaltern (Wildcards) suchen - **** löschen 1 Gast 1281 12. Okt 2004, 11:40
Skogafoss Nach Platzhaltern (Wildcards) suchen - **** löschen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage