Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Ergebnis der Abfrage in Msgbox ausgeben
zurück: Abfrage aus einer Tabelle mit Wenn funktion weiter: Datum in Textfeld ergänzen ohne Text zu überschreiben Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Müllermilch
Im Profil kannst Du frei den Rang ändern


Verfasst am:
10. Jan 2011, 23:38
Rufname:
Wohnort: Hilden

Ergebnis der Abfrage in Msgbox ausgeben - Ergebnis der Abfrage in Msgbox ausgeben

Nach oben
       Version: Office 2007

Nabend,

ich bräuchte mal eure Hilfe.
Ich habe folgende Abfrage:
Code:
Private Sub btn_Standortermittlung_Click()
    Dim eingaben As String
    Dim strSQL As String
   
    eingabe = InputBox("Bitte geben Sie die Waggonnummer ein." _
                     , "Standortermittlung")
    strSQL = "SELECT Buchungsdatum, Waggon_Nr, Ladezustand, bis" _
            & " FROM tbl_Waggonbewegungen" _
                 & " INNER JOIN tbl_Bewegungsposten" _
                 & " ON tbl_WaggonbewegungenBewegungs_ID" _
                                      & " = tbl_BewegungspostenBewegungs_Nr" _
        & " GROUP BY Buchungsdatum, Waggon_Nr, Ladezustand, bis" _
           & " WHERE Waggon_Nr = eingabe;"
    MsgBox " Der Waggon " & Waggon_Nr & " befindet sich zur Zeit in " & bis _
         & ".", vbOKOnly + vbInformation, " Aktueller Standort"
End Sub
Wie bekomme ich es hin, dass Access mir die "Waggon_Nr" und "bis" in der MsgBox ausgibt?

Danke für jeden Gedankenanstoß.
KlausMz
Moderator Access


Verfasst am:
11. Jan 2011, 00:05
Rufname:
Wohnort: Irgendwo in der Pfalz


AW: Ergebnis der Abfrage in Msgbox ausgeben - AW: Ergebnis der Abfrage in Msgbox ausgeben

Nach oben
       Version: Office 2007

Hallo,
das geht so gar nicht, man kann das Eregbnis einer Abfrage keiner MsgBox zuweisen, zumoindest so nicht. Dazu brauchst Du gar keine Abfrage. Der Befehl DLookup() ermittelt einen Wert aus einer Tabelle an Hand von Kriterien und scheint mir hier besser geeignet.

Ich tue mir da aber im Moment schwer Kriterien zu erkennen. Kannst Du das mal etwas erläutern?

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
Müllermilch
Im Profil kannst Du frei den Rang ändern


Verfasst am:
13. Jan 2011, 16:41
Rufname:
Wohnort: Hilden

AW: Ergebnis der Abfrage in Msgbox ausgeben - AW: Ergebnis der Abfrage in Msgbox ausgeben

Nach oben
       Version: Office 2007

Hi KlausMZ

es gibt eine Tabelle Bewegungsposten

Diese Tabelle enthält
- Buchungsdatum
- Waggon_Nr
- von
- bis

Ich möchte das sich beim Klick auf einen Button eine Inputbox öffnet, ich die Waggon_Nr eingebe und aus dem letzten Datensatz mit dieser Waggon_Nr der Feldwert "bis" ausgegeben wird.
Code:
Private Sub btn_Standortermittlung_Click()
    Waggon_Nr = InputBox("Waggon_Nr", "Standortermittlung")
    Waggon_Nr = dlookup()
    MsgBox " Der Waggon " & Waggon_Nr & " befindet sich zur Zeit in " & VarX _
         & ".", vbOKOnly + vbInformation, " Aktueller Standort"
End Sub

Private Function dlookup()
    Dim VarX As Variant
   
    VarX = dlookup(bis, tbl_Bewegungsposten, Waggon_Nr)
End Function
das hab ich mir mal so zusammen gebastelt, aber richtig ist das glaube ich nicht.
Willi Wipp
Moderator


Verfasst am:
16. Jan 2011, 15:31
Rufname:
Wohnort: Raum Wiesbaden

Re: Ergebnis der Abfrage in Msgbox ausgeben - Re: Ergebnis der Abfrage in Msgbox ausgeben

Nach oben
       Version: Office 2007

Hi Müllermilch,

was soll es bringen eine Funktion mit den namen einer Standard-Funktion anzulegen?
==> Du ueberschreibst die Standard-Funktion!
Code:
Private Sub btn_Standortermittlung_Click()
    Dim Waggon_Nr As String
   
    Waggon_Nr = InputBox("Waggon_Nr", "Standortermittlung")
    bis = DLookup("bis", "tbl_Bewegungsposten" _
                , "Waggon_Nr=" & Waggon_Nr)
' bzw. wenn Felddatentyp Text _
                , "Waggon_Nr='" & Waggon_Nr & "'")
    MsgBox " Der Waggon " & Waggon_Nr & " befindet sich zur Zeit in " & bis _
         & ".", vbOKOnly + vbInformation, " Aktueller Standort"
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Müllermilch
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Jan 2011, 16:42
Rufname:
Wohnort: Hilden


AW: Ergebnis der Abfrage in Msgbox ausgeben - AW: Ergebnis der Abfrage in Msgbox ausgeben

Nach oben
       Version: Office 2007

Danke Willi,

ich wusste halt nicht genau wie ich die Dlookup funktion mit dem sub verbinden kann.

ich danke für deine hilfe.
Frankieboy
Gast


Verfasst am:
04. Nov 2011, 11:31
Rufname:

AW: Ergebnis der Abfrage in Msgbox ausgeben - AW: Ergebnis der Abfrage in Msgbox ausgeben

Nach oben
       Version: Office 2007

Hallo,

ich habe für meine Zwecke den oberen Teil schon umgebaut, komme aber beim unteren Teil nicht weiter.

Ich habe eine Tabelle (T_AAP-Kennung) mit zwei Spalten "Nutzer" und "AAP"
Und ich möchte, dass in einem Eingabefenstern "AAP" eingegeben wird und dann in einer Msgbox der Text "Die Kennung "AAP" gehört dem "Nutzer""
Ich habe das mit dem Lookup noch nicht ganz verstanden. wie kann ich jetzt die msgbox auf die Tabelle verbinden?

So weit hab ich das schon mal:
Code:
Private Sub Befehl4_Click()
    Dim AAP As String
   
    AAP = InputBox("Geben Sie die AAP-Kennung ein!", "AAP-Kennung zuordnen")
    bis = DLookup("AAP", "T_AAP-Kennungen")
Danke für die Hilfe
KlausMz
Moderator Access


Verfasst am:
04. Nov 2011, 11:42
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: Ergebnis der Abfrage in Msgbox ausgeben - AW: Ergebnis der Abfrage in Msgbox ausgeben

Nach oben
       Version: Office 2007

Hallo,
versuche es mal so:
Code:
Private Sub Befehl4_Click()
    Dim AAP As String
   
    AAP = InputBox("Geben Sie die AAP-Kennung ein!", "AAP-Kennung zuordnen")
    bis = DLookup("AAP", "T_AAP-Kennungen", "AAP = '" & AAP & "'")
End Sub

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
Frankieboy
Gast


Verfasst am:
04. Nov 2011, 11:57
Rufname:

AW: Ergebnis der Abfrage in Msgbox ausgeben - AW: Ergebnis der Abfrage in Msgbox ausgeben

Nach oben
       Version: Office 2007

Hallo Klaus,

jetzt muss aber irgendwie noch ausgegeben werden, zu welchem Nutzer die AAP-Kennung gehört.
Und genau das weiß ich nicht, wie ich das hinkriegen soll Embarassed
KlausMz
Moderator Access


Verfasst am:
04. Nov 2011, 12:03
Rufname:
Wohnort: Irgendwo in der Pfalz


AW: Ergebnis der Abfrage in Msgbox ausgeben - AW: Ergebnis der Abfrage in Msgbox ausgeben

Nach oben
       Version: Office 2007

Hallo,
so vieleicht:
Code:
Private Sub Befehl4_Click()
    Dim AAP As String
   
    AAP = InputBox("Geben Sie die AAP-Kennung ein!", "AAP-Kennung zuordnen")
    Me!txtNutzer = DLookup("Nutzer", "T_AAP-Kennungen", "AAP = '" & AAP & "'")
End Sub
Wobei txtNutzer ein Formularfeld ist.
_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
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: Filter bei Abfrage 3 tivi 701 03. März 2004, 15:06
tivi Filter bei Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: [DANKE-ERLEDIGT] Join in einer Abfrage 2 Gast 803 01. März 2004, 08:36
ppc [DANKE-ERLEDIGT] Join in einer Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage aus Formular erstellen 2 frkrone 3248 12. Feb 2004, 14:22
frkrone Abfrage aus Formular erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Wie kann ich mehr als 255Felder in eine Abfrage legen? 1 D.R. 2235 12. Feb 2004, 09:05
faßnacht(IT); Wie kann ich mehr als 255Felder in eine Abfrage legen?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage verlinken 4 dfo 1326 10. Feb 2004, 22:17
Willi Wipp Abfrage verlinken
Keine neuen Beiträge Access Tabellen & Abfragen: Suche Hilfe zu SQL (DAO 351 MS) - Abfrage 3 Berny_H 1005 04. Feb 2004, 11:41
borstel Suche Hilfe zu SQL (DAO 351 MS) - Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage, die sich auf 2 Abfragen + 1 Tabelle bezieht 1 caro456 1832 27. Jan 2004, 20:03
Willi Wipp Abfrage, die sich auf 2 Abfragen + 1 Tabelle bezieht
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage von Datensätzen ohne Inhalt 3 sebwa 2053 23. Jan 2004, 23:19
Gast Abfrage von Datensätzen ohne Inhalt
Keine neuen Beiträge Access Tabellen & Abfragen: Access abfrage nach 2 parametern 1 Weedy 3466 13. Jan 2004, 00:21
reke Access abfrage nach 2 parametern
Keine neuen Beiträge Access Tabellen & Abfragen: Bestimmte Abfrage erstellen ... nur wie ? 1 studi 2219 22. Dez 2003, 20:51
reke Bestimmte Abfrage erstellen ... nur wie ?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage, ob eine Abfrage ein Ergebnis hat 3 Esdo 3934 09. Dez 2003, 15:53
Fedaykin Abfrage, ob eine Abfrage ein Ergebnis hat
Keine neuen Beiträge Access Tabellen & Abfragen: Access 97 Abfrage Duplikate 9 gast 2419 02. Dez 2003, 14:39
Kay Access 97 Abfrage Duplikate
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS