Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
In Formularen Daten aus Tabellen abrufen
zurück: Mehrfachfilter auf Listenfeld weiter: Wert aus Textfeld per Button suchen und in Listenfeld ausgeb 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
hansenm
Gast


Verfasst am:
27. Feb 2009, 12:03
Rufname:

In Formularen Daten aus Tabellen abrufen - In Formularen Daten aus Tabellen abrufen

Nach oben
       Version: Office 2k (2000)

Hallo Liebes Forum,

bei meinem Aufbau stellt sich nun ein weiteres Problem. Ich will in einem Formular Daten (Adresse, Telefonnummer etc) zu einer Kontaktperson aufrufen lassen, sobald ich den Namen der Person eingegeben habe!
Ich habe es wie folgt programmiert:
Code:
    If Not (strUnternehmen = "" Or strNachname = "" Or strVorname = "") Then
        Me!txtAdresse.SetFocus
        strSQL = "SELECT DISTINCT Adresse AS Wert " & _
                   "FROM 1Kontaktpersonen " & _
                  "WHERE Unternehmen='" & strUnternehmen & "' " & _
                    "AND Nachname='" & strNachname & "' " & _
                    "AND Vorname='" & strVorname & "';"
        recVerbindung.Open strSQL, CurrentProject.Connection, _
                           adOpenForwardOnly, adLockReadOnly
        strWert = recVerbindung!Wert
        recVerbindung.Close
        Me!txtAdresse = strWert
    End If
Aber sofern zu einer Kontaktperson ein Datenfeld leer ist, kommt folgende Meldung:
Zitat:
Laufzeitfehler 94"
Unzulässige Verwendung von Null
Könnte mir jemand den Befehl so umschreiben, dass die Zeile einfach leer bleibt und keine Fehlermeldung mehr erscheint.

Vielen Dank im Voraus

Marlon Hansen
Gast



Verfasst am:
27. Feb 2009, 12:41
Rufname:


AW: In Formularen Daten aus Tabellen abrufen - AW: In Formularen Daten aus Tabellen abrufen

Nach oben
       Version: Office 2k (2000)

Hallo,
in welcher Zeile kommt der Fehler?
Code:
    Me!txtAdresse = Nz(strWert)
Btw:
Warum ADO und nicht DAO? Warum den Wert nicht einfach per DLookUp holen?

Gruß Mike
hansenm
Gast


Verfasst am:
27. Feb 2009, 12:53
Rufname:

AW: In Formularen Daten aus Tabellen abrufen - AW: In Formularen Daten aus Tabellen abrufen

Nach oben
       Version: Office 2k (2000)

In dieser Zeile kommt der Fehler, wenn ich debuggen will:
Code:
    strWert = recVerbindung!Wert

Nachtrag: hansenm am 27. Feb 2009 um 11:55 hat folgendes geschrieben:
btw: Wie mache ich das mit DLookUp. Einer aus der IT hatte mir das vorerst so programmiert. Wäre dir dankbar, wenn du den Befehl mal schnell umschreibst bzw anpasst, so wie du dir das denkst!

Liebe Grüße
Gast



Verfasst am:
27. Feb 2009, 13:05
Rufname:

AW: In Formularen Daten aus Tabellen abrufen - AW: In Formularen Daten aus Tabellen abrufen

Nach oben
       Version: Office 2k (2000)

Hallo,
UNGETESTET:
Code:
    ' ...
    Dim Bedingung As String
   
    ' ...
    If Not (strUnternehmen = "" Or strNachname = "" Or strVorname = "") Then
        Bedingung = "Unternehmen='" & strUnternehmen & "' " & _
                "AND Nachname='" & strNachname & "' " & _
                "AND Vorname='" & strVorname & "'"
        Me!txtAdresse = Nz(DLookup("Adresse", "1Kontaktpersonen", Bedingung))
    End If
    ' ...
Ansonsten der Fehler in deinem Code:
Code:
    strWert = Nz(recVerbindung!Wert)
Aber diese Zwischenvariable ist gar nicht notwendig.

Gruß Mike
hansenm
Gast


Verfasst am:
27. Feb 2009, 13:21
Rufname:

AW: In Formularen Daten aus Tabellen abrufen - AW: In Formularen Daten aus Tabellen abrufen

Nach oben
       Version: Office 2k (2000)

danke schon einmal, aber wenn ich den code jetzt umschreibe mit nz() wird ein fehler in folgenden code angezeigt:
Code:
    recVerbindung.Open strSQL, CurrentProject.Connection, adOpenForwardOnly, _
                       adLockReadOnly
?
Gast



Verfasst am:
27. Feb 2009, 13:34
Rufname:

AW: In Formularen Daten aus Tabellen abrufen - AW: In Formularen Daten aus Tabellen abrufen

Nach oben
       Version: Office 2k (2000)

Hallo,
also ADO verweigere ich Wink .
Wie sieht es mit meinem DLookUp-Code aus?

Gruß Mike
hansenm
Gast


Verfasst am:
27. Feb 2009, 13:38
Rufname:


AW: In Formularen Daten aus Tabellen abrufen - AW: In Formularen Daten aus Tabellen abrufen

Nach oben
       Version: Office 2k (2000)

Den versuche ich gleich aus.

Gebe dir nach dem Mittag Rückmeldung.

Bis dahin...
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: 2 tabellen vergleichen 4 Lordoo88 1555 03. Jun 2004, 16:43
Lordoo88 2 tabellen vergleichen
Keine neuen Beiträge Access Tabellen & Abfragen: Änderungen an abgefragten Daten vornehmen 1 mimey 1139 28. Mai 2004, 22:06
lothi Änderungen an abgefragten Daten vornehmen
Keine neuen Beiträge Access Tabellen & Abfragen: Löschabfrage -> findet Tabellen nicht (GELÖST) 14 DAU 5674 26. Mai 2004, 13:18
DAU Löschabfrage -> findet Tabellen nicht (GELÖST)
Keine neuen Beiträge Access Tabellen & Abfragen: Frontend und Backend: kann nicht auf die Tabellen zugreifen 1 mhw 803 25. Mai 2004, 12:25
Robsl Frontend und Backend: kann nicht auf die Tabellen zugreifen
Keine neuen Beiträge Access Tabellen & Abfragen: Daten der Abfrage ausgeben 3 Papa Schlumpf 1007 24. Mai 2004, 17:34
Willi Wipp Daten der Abfrage ausgeben
Keine neuen Beiträge Access Tabellen & Abfragen: Zwei Tabellen zusammenfügen und Nullwerte überschreiben 1 m.hataj 1304 13. Mai 2004, 18:10
faßnacht(IT); Zwei Tabellen zusammenfügen und Nullwerte überschreiben
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage erstelen, die zwei tabellen vergleicht 2 pucky 802 27. Apr 2004, 10:53
ProLogistik Abfrage erstelen, die zwei tabellen vergleicht
Keine neuen Beiträge Access Tabellen & Abfragen: Abgleich von 2 tabellen in access 2003 4 Fierce 1719 16. Apr 2004, 08:27
el_gomero Abgleich von 2 tabellen in access 2003
Keine neuen Beiträge Access Tabellen & Abfragen: Pflichtfelder in formularen 2 it-link 2932 14. Apr 2004, 14:23
it-link Pflichtfelder in formularen
Keine neuen Beiträge Access Tabellen & Abfragen: nicht-atomare Daten aus EXCEL importieren 2 Panther 908 29. März 2004, 16:33
Panther nicht-atomare Daten aus EXCEL importieren
Keine neuen Beiträge Access Tabellen & Abfragen: datensatz aus mehreren Tabellen im formular anzeigen 1 SixPack 1197 29. März 2004, 10:53
Willi Wipp datensatz aus mehreren Tabellen im formular anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: neue Tabellen erzeugen; kopieren 7 DiplomandSPS 1323 25. März 2004, 10:01
fridgenep neue Tabellen erzeugen; kopieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks