Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Nicht nachvollziehbarer Fehler
zurück: Access Filmdatenbank weiter: Formular mit Daten & Maske 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
toom
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Mai 2011, 17:41
Rufname:

Nicht nachvollziehbarer Fehler - Nicht nachvollziehbarer Fehler

Nach oben
       Version: Office 2010

Ich habe eingebundenes Formular, das ich mit VBA Code binden und entbinden kann. Als Datensatzquelle habe ich eine Tabelle angegeben, die als Primary Key ein Feld hat, das EKP genannt wird.

Der UseCase sieht folgendermaßen aus: Man kann einem Kunden eine Liederadresse zuweisen. Falls er noch keine hat wird im Formular der Button "cmdNeueLieferadresse" dargestellt. Klickt der Nutzer darauf öffnet sich ein Dialog in dem der Benutzer die Lieferadresse eintragen kann. Diese neue Adresse wird anschießend in der Datenbank abgespeichert. Bis dahin funktioniert der Code einwandfrei. Leider funktioniert das aktuallisieren des Formulars nach hinzufügen einer neuen Lieferadresse nicht korrekt. Anstatt die neue Adresse anzuzeigen wird immer irgend ein Datensatz geladen. Und das obwohl ich das Formular mit dem Befehl "Me.Form.Recordset.findfirst "EKP = '" & lieferekp & "'"" nach dem Einfügen der neuen Leiferadresse in die Datenbank aktuallisiere.

Das lustige an der Sache ist auch noch, dass ich im Debugger den Code Zeile für Zeile durchgegangen bin und er eigentlich an jeder Stelle die korrekten Werte in den Variabeln speichert und eigentlich absolut korrekt arbeiten sollte. Macht das Programm aber nicht.

Hat jemand eine Idee was hier nicht funktioniert? Ich kann das Verhalten absolut _NULL_ nachvollziehen und raste noch aus...


Ich habe folgenden Code geschrieben:
Code:
Private Sub cmdNeueLieferadresse_Click()
    DoCmd.OpenForm "NeueLieferadresseDialog", acNormal, , , , acDialog, EKPL
    'Ermittelt die EKP der neuen Lieferadresse. Hab im Debugger gecheckt, dass das korrekt ausgeführt wird.
    lieferekp = DLookup("LEKP", "tblkunde", "REKP = '" & EKPL & "'")
    DVArbeitsplatzDarstellung
   
    binden
    Me.Form.Recordset.findfirst "EKP = '" & lieferekp & "'"
   
    Dim dvAnker As Integer
    dvAnker = DLookup("dvAnker", "tbladresse", "EKP = '" & lieferekp & "'")
    If dvAnker = 1 Then
        chkDVAnker.Value = True
    Else
        chkDVAnker.Value = False
    End If
   
End Sub

Public Sub binden()
    txtName1.ControlSource = "Name1"
    txtName2.ControlSource = "Name2"
    txtName3.ControlSource = "Name3"
    cmbRechtsform.ControlSource = "Rechtsform"
    txtStrasse.ControlSource = "Strasse"
    txtHausnummer.ControlSource = "Hausnummer"
    txtPLZ.ControlSource = "Plz"
    cmbLand.ControlSource = "Land"
    txtOrt.ControlSource = "Ort"
    txtLieferEKP.ControlSource = "EKP"
End Sub

'...

Public Sub DVArbeitsplatzDarstellung()
    btnDummy.SetFocus
    lblAltLieferadressen.Visible = False
    cmdNeueLieferadresse.Visible = False
    chkAbweichendeLieferadresse.Visible = False
    lblAbwLieferadresseNeuerKunde.Visible = False
    sichtbarkeitUmschatlen True
End Sub

'...

Private Sub sichtbarkeitUmschatlen(ByVal sichtbar As Boolean)
    btnDummy.SetFocus
    chkDVAnker.Visible = sichtbar
    lbldvAnker.Visible = sichtbar
    lblName1.Visible = sichtbar
    txtName1.Visible = sichtbar
    lblName2.Visible = sichtbar
    txtName2.Visible = sichtbar
    lblName3.Visible = sichtbar
    txtName3.Visible = sichtbar
    lblRechtsform.Visible = sichtbar
    cmbRechtsform.Visible = sichtbar
    lblStrasse.Visible = sichtbar
    txtStrasse.Visible = sichtbar
    lblHausnummer.Visible = sichtbar
    txtHausnummer.Visible = sichtbar
    lblPLZ.Visible = sichtbar
    txtPLZ.Visible = sichtbar
    lblLand.Visible = sichtbar
    cmbLand.Visible = sichtbar
    lblOrt.Visible = sichtbar
    txtOrt.Visible = sichtbar
    lblLieferEkp.Visible = sichtbar
    txtLieferEKP.Visible = sichtbar
End Sub
Gast



Verfasst am:
09. Mai 2011, 18:02
Rufname:

AW: Nicht nachvollziehbarer Fehler - AW: Nicht nachvollziehbarer Fehler

Nach oben
       Version: Office 2010

Hi,

sehe ich es richtig, dass du die Daten auf die dein Formular zugreift änderst, ohne es in diesem Formular zu tun, sondern in dem anderen, das sich öffnet und du direkt danach versuchst die eben eingetragenen Daten zu finden?

Habe jetzt noch nichts getestet (in 2 min Feierabend Laughing ), aber versuch mal vor dem Recordset.FindFirst ein
Code:
    Me.Requery
unterzubringen um die Daten des Formulars zu erneuern. Vielleicht hilft das ja schon!?
toom
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Mai 2011, 18:07
Rufname:


AW: Nicht nachvollziehbarer Fehler - AW: Nicht nachvollziehbarer Fehler

Nach oben
       Version: Office 2010

Tatsächlich, ein Requery hat das Problem gelöst. Besten Dank für den Tip!
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: Oracle-Tablle einbinden - Reservierter Fehler (-7748); 4 PeterPan 4664 28. Feb 2008, 19:11
Nouba Oracle-Tablle einbinden - Reservierter Fehler (-7748);
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierungsabfrage Fehler Schlüsselverletzung 0 BreakerXX 717 25. Feb 2008, 15:31
BreakerXX Aktualisierungsabfrage Fehler Schlüsselverletzung
Keine neuen Beiträge Access Tabellen & Abfragen: Fehler bei Division durch Null durch eine Null ersetzen 6 jsp 6257 25. Sep 2007, 15:50
jsp Fehler bei Division durch Null durch eine Null ersetzen
Keine neuen Beiträge Access Tabellen & Abfragen: #Fehler bei simpler Multiplikation ?! 2 hansa23r 512 18. Sep 2007, 18:12
hansa23r #Fehler bei simpler Multiplikation ?!
Keine neuen Beiträge Access Tabellen & Abfragen: Fehler Inklusionsverknüpfung 14 Joerg112 3885 02. Sep 2007, 08:37
Joerg112 Fehler Inklusionsverknüpfung
Keine neuen Beiträge Access Tabellen & Abfragen: Fehler in Abfrage, wer kann helfen? 6 Ingenieuse 612 17. Apr 2007, 16:52
Ingenieuse Fehler in Abfrage, wer kann helfen?
Keine neuen Beiträge Access Tabellen & Abfragen: Berechungsfelder in Abfrage zeigen "#Fehler" 3 sandori 614 05. Apr 2007, 10:49
sandori Berechungsfelder in Abfrage zeigen "#Fehler"
Keine neuen Beiträge Access Tabellen & Abfragen: Access97 - Import von Textdatei - Fehler mit Zeilenumbruch 1 Marc27 1128 24. Aug 2006, 17:56
Nouba Access97 - Import von Textdatei - Fehler mit Zeilenumbruch
Keine neuen Beiträge Access Tabellen & Abfragen: SQL-Abfrage DateDiff ->Finde den Fehler nicht! 1 Schorsch84 5840 24. Aug 2006, 10:24
bogumiljackson SQL-Abfrage DateDiff ->Finde den Fehler nicht!
Keine neuen Beiträge Access Tabellen & Abfragen: Fehler in Löschabfrage!! 4 BorisDieKlinge 1623 12. Apr 2006, 13:17
BorisDieKlinge Fehler in Löschabfrage!!
Keine neuen Beiträge Access Tabellen & Abfragen: Übergabe eine Variable verursacht Fehler 2 blicki 714 16. Feb 2006, 10:42
blicki Übergabe eine Variable verursacht Fehler
Keine neuen Beiträge Access Tabellen & Abfragen: Fehler bei Recordset (alterTitel: "Dipl.-Ing.") 1 Abas 615 28. Dez 2005, 13:42
jens05 Fehler bei Recordset (alterTitel: "Dipl.-Ing.")
 

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