Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
If-Abfrage auf Textfeld?
zurück: wert aus letzten datensatz im formularfuss weiter: Schließen button Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
faBul0us
Access-Kenner aber VBA-n00b


Verfasst am:
27. Jul 2005, 14:04
Rufname:

If-Abfrage auf Textfeld? - If-Abfrage auf Textfeld?

Nach oben
       

Hallo

ich habe ein Formular mit einem Kombinationsfeld und einen Button mit dem ich einen Bericht zu dem Formular öffnen kann.
Ich möchte nun, dass wenn man in dem Pulldown Menu noch nicht ausgewählt hat und man den Bericht Button drückt, dass eine MsgBox aufgeht und einem sagt das dies nicht möglich ist und man Daten eingeben soll. Der bericht soll dann natürlich auch nicht geöffnet werden. das geht doch bestimmt über eine IF-Abfrage oder? Ich komme aber im mom nicht weiter...
diXon
Excel & VBA Profi, man lernt nie aus


Verfasst am:
27. Jul 2005, 14:11
Rufname: Florens
Wohnort: Fürth


AW: If-Abfrage auf Textfeld? - AW: If-Abfrage auf Textfeld?

Nach oben
       

Wie wäre es damit:
Code:
    If Me!DeinKombinationsfeld = Null  Then
        MsgBox "Bitte erst Auswahl im Pulldownmenü machen", _
               vbOKOnly + vbExclamation
        Exit Sub
    End If
faBul0us
Access-Kenner aber VBA-n00b


Verfasst am:
27. Jul 2005, 14:33
Rufname:

AW: If-Abfrage auf Textfeld? - AW: If-Abfrage auf Textfeld?

Nach oben
       

Hi leider habe ich deine Idee nicht umsetzen können. Es passiert gar nichts...
Code:
Private Sub Bericht_Servername_Click()
On Error GoTo Err_Bericht_Servername_Click
    Dim stDocName As String

    If [Forms]![Eintrag_Name_Abfrage]![Kombinationsfeld8] = Null Then
        MsgBox "Bitte erst Auswahl im Pulldownmenü machen", _
               vbOKOnly + vbExclamation
        Exit Sub
    End If
    stDocName = "Servername"
    DoCmd.OpenReport stDocName, acPreview

Exit_Bericht_Servername_Click:
    Exit Sub
Err_Bericht_Servername_Click:
    MsgBox Err.Description
    Resume Exit_Bericht_Servername_Click
End Sub
Hab dies bei Klicken auf den Button eingetragen!!
Habe auch NULL, "", und 0 probiert
kugelschreiber
gehört in jedes Mäppchen


Verfasst am:
27. Jul 2005, 14:47
Rufname:

AW: If-Abfrage auf Textfeld? - AW: If-Abfrage auf Textfeld?

Nach oben
       

Probier mal:
Code:
Private Sub Bericht_Servername_Click()
On Error GoTo Err_Bericht_Servername_Click
    Dim stDocName As String

    stDocName = "Servername"
    Me!Kombinationsfeld8.SetFocus
    If Me!Kombinationsfeld8.Text = "" Then
        MsgBox "Bitte erst Auswahl im Pulldownmenü machen", _
               vbOKOnly + vbExclamation
        Exit Sub
      Else
        DoCmd.OpenReport stDocName, acPreview
    End If
   
Exit_Bericht_Servername_Click:
    Exit Sub
Err_Bericht_Servername_Click:
    MsgBox Err.Description
    Resume Exit_Bericht_Servername_Click
End Sub
Florus
Access-Nichtversteher


Verfasst am:
27. Jul 2005, 14:59
Rufname:
Wohnort: NÖ / Österreich

Hi - Hi

Nach oben
       

Sollt so auch gehen:
Code:
    If IsNull(Me!DeinKombinationsfeld, "") Then
' bzw.
'    If Nz(Me!DeinKombinationsfeld, "") = "" Then
        MsgBox "Bitte Daten auswählen", vbOKOnly, "Fehler"
        Exit Sub
    End If

Liebe Grüße

Florus

_________________
Bitte um F E E D B A C K!

THX
-------------------------------------------------
faBul0us
Access-Kenner aber VBA-n00b


Verfasst am:
28. Jul 2005, 07:38
Rufname:


AW: If-Abfrage auf Textfeld? - AW: If-Abfrage auf Textfeld?

Nach oben
       

JO hammer funktioniert bestens! THX
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: Access Textfeld im Formular ändern? 1 gm 2411 19. Nov 2008, 16:36
steffen0815 Access Textfeld im Formular ändern?
Keine neuen Beiträge Access Tabellen & Abfragen: Buttonausgabe in Textfeld 10 Freak4Scud 301 08. Aug 2008, 15:36
Freak4Scud Buttonausgabe in Textfeld
Keine neuen Beiträge Access Tabellen & Abfragen: LIKE ABfrage mit Textfeld 2 Gast 697 08. Jul 2008, 11:01
Gast LIKE ABfrage mit Textfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Textfeld in Tabelle auf 10 Stellen formatieren 4 Tekton 684 24. Jun 2008, 18:04
Tekton Textfeld in Tabelle auf 10 Stellen formatieren
Keine neuen Beiträge Access Tabellen & Abfragen: Zahlenfeld für Abfrage in ein Textfeld umwandeln 2 Riccarda04 2419 15. Feb 2008, 00:24
Riccarda04 Zahlenfeld für Abfrage in ein Textfeld umwandeln
Keine neuen Beiträge Access Tabellen & Abfragen: SQL-Abfrage Zeichen aus Textfeld entnehmen 6 Dan0032 3123 13. Sep 2007, 10:16
Nouba SQL-Abfrage Zeichen aus Textfeld entnehmen
Keine neuen Beiträge Access Tabellen & Abfragen: Textfeld in Ja/Nein-Feld umwandeln -> Werte behalten 2 Banedon 1184 03. Sep 2007, 17:00
Banedon Textfeld in Ja/Nein-Feld umwandeln -> Werte behalten
Keine neuen Beiträge Access Tabellen & Abfragen: Datenblattansicht Textfeld mit Boolschem Wert umformatieren 2 Muriel 587 23. Aug 2007, 10:08
Muriel Datenblattansicht Textfeld mit Boolschem Wert umformatieren
Keine neuen Beiträge Access Tabellen & Abfragen: Textfeld umformatieren 2 Zolldi 605 05. Jul 2007, 14:39
Zolldi Textfeld umformatieren
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrageergebnis in Textfeld (Formular) ausgeben 1 martin7720 1006 22. Mai 2007, 20:12
jens05 Abfrageergebnis in Textfeld (Formular) ausgeben
Keine neuen Beiträge Access Tabellen & Abfragen: Wie kriege ich mehr als 255 Zeichen in ein Textfeld? 1 peter/marburg 3102 20. März 2007, 17:40
Thomas2007 Wie kriege ich mehr als 255 Zeichen in ein Textfeld?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage: Kriterium aus Textfeld, Problem: ... 1 Tilly 899 22. Feb 2007, 20:59
stpimi Abfrage: Kriterium aus Textfeld, Problem: ...
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA