Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Daten Automatisieren in Formularen
zurück: Daten im Endlosformular nur gefiltert aktualisierbar? weiter: Falsche Sortierung in Office2007 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Rückfrage Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Smp4000
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Aug 2008, 17:47
Rufname:

Daten Automatisieren in Formularen - Daten Automatisieren in Formularen

Nach oben
       Version: Office 2003

Hallo kann mir jemand Helfen?

und zwar hab ich 2 Tabellen einmal Kundenadressen und einmal Postleitzahlen, desweiteren hab ich ein Formular wo ich die Kundendaten Pflegen kann. Jetz geb ich einen neuen Kunden an und wenn ich zu der Spalte PLZ kom dann soll geprüfft werden ob in der Tabelle PLZ die Daten vorhanden sind. Wenn ja dann sollen die Felder (Ort, Bundesland und Vorwahl ) im Formular automatisch ausgefüllt werden. Wenn nein dann sollen die daten in der Tabelle erfasst werden.
Ich hab mir aus einem Fachbuch einen code abgeschrieben der Funktioniert auch soweit aber er übernimmt nicht die Felder Bundesland und Vorwahl. Ich hab einiges Probiert aber ich bekomm es einfach nicht hin.
JörgG
Access-Team


Verfasst am:
01. Aug 2008, 23:40
Rufname:
Wohnort: b. Dresden


AW: Daten Automatisieren in Formularen - AW: Daten Automatisieren in Formularen

Nach oben
       Version: Office 2003

Hallo,

dann zeige doch bitte den funktionierenden Teil, der sollte ja sicher ausreichen Wink

Hast Du daran gedacht, dass so manche Grossgemeinde x+50 Nester hat Embarassed , die alle die gleiche PLZ besitzen? Spätestens hier wird Dein Automatismus ins Schleudern kommen, es sollte also nur die ID aus der PLZ/Ort-Tabelle gespeichert und nicht Bundesland & Co dupliziert werden!

Wie machst Du das, mit einem Kombifeld? Mit:
Code:
    ... = Me!Kombifeld.Column(1) 'wäre die 2. Spalte!
könntest Du weitere Spalten des Kombis ansprechen.
_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
Smp4000
Im Profil kannst Du frei den Rang ändern


Verfasst am:
02. Aug 2008, 10:06
Rufname:

AW: Daten Automatisieren in Formularen - AW: Daten Automatisieren in Formularen

Nach oben
       Version: Office 2003

Hallo Jörg,

erst mal Danke für deine Antwort.
Hier mal der Code
Code:
Private Sub PLZ_Exit(Cancel As Integer)
    Dim V_Stadt As Variant
    Dim Stadt As String
    Dim PLZ As String
    Dim Conn As New ADODB.Connection
    Dim DBS As ADODB.Recordset
     
    V_Stadt = DLookup("Ort", "PLZ_Tab", "PLZ = Forms![Kontakte]![PLZ]")
    If (Not IsNull(V_Stadt)) Then
        Me![Ort] = V_Stadt
      Else
        i = InputBox("Bitte geben Sie den Ort ein!")
        Stadt = i
        PLZ = Me!PLZ
        Me!Ort = i
        Set Conn = CurrentProject.Connection
        Set DBS = New ADODB.Recordset
        DBS.Open "PLZ_Tab", Conn, adOpenKeyset, adLockOptimistic
        DBS.AddNew
        DBS!PLZ = PLZ
        DBS!Ort = Stadt
        DBS.Update
        DBS.Close
        Set DBS = Nothing
        Set Conn = Nothing
    End If
End Sub
Hier wird auch noch geprüft ob der Eintrag in der Tabelle PLZ vorhanden ist.

Schönen Tag noch

Christian
JörgG
Access-Team


Verfasst am:
02. Aug 2008, 14:44
Rufname:
Wohnort: b. Dresden

AW: Daten Automatisieren in Formularen - AW: Daten Automatisieren in Formularen

Nach oben
       Version: Office 2003

Hallo,

die PLZ_Tab besitz ein Autowert-ID (OrtID), sonst spendiere ihr noch eins. In der Kundentabelle wird das Verknüpfungsfeld OrtID (Zahl-LongInteger) ergänzt. Im Beziehungsfenster verknüpftst Du beide Tabellen:
    PLZ_Tab.OrtID 1:n Kunden_Tab.OrtID; referentielle Integrität + Aktualisierungsweitergabe
Im Formular wird die PLZ in ein Kombi umgewandelt (bzw erstelle es mit dem Assistenten neu und passe den Rest im Eigenschaftsfenster an):
  • Name: cboOrtID
  • Spaltenanzahl: 5
  • Spaltenbreiten: 0cm;2cm;4cm;4cm;2cm
  • Listenbreite: 12
  • Zeilenanzahl: 20
  • Steuerelementinhalt: OrtID
  • gebundene Spalte: 1
  • Datensatzherkunft:
    Code:
    SELECT   OrtID, PLZ, Ort, Bundesland, Vorwahl
    FROM     PLZ_Tab
    ORDER BY PLZ, Ort;
Damit hast Du die Grundlage geschaffen Duplizierungen zu unterbinden und das Problem der og Grossgemeinden. Es wird also nur noch das OrtID gespeichert. Zur Anzeige der restlichen Kombiinformationen genügen 4 ungebundene Textfelder, in deren Steuerelementinhalt, zB für TxtPlz:
Code:
=cboOrt.Column(1)
Idea Beachte, der Spaltenindex beginnt mit 0 für die 1. Spalte! Evtl ist es günstiger das Kombi auf den Ortsnamen und nicht auf die PLZ auszurichten.

Idea So können neue Kombieinträge gemacht werden DonKarl FAQ4.13 Kombinationsfeld - Eintrag hinzufügen

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
Smp4000
Im Profil kannst Du frei den Rang ändern


Verfasst am:
02. Aug 2008, 21:41
Rufname:

AW: Daten Automatisieren in Formularen - AW: Daten Automatisieren in Formularen

Nach oben
       Version: Office 2003

Hallo Jörg

irgendwie funzt das nicht

mfg

Christian
JörgG
Access-Team


Verfasst am:
03. Aug 2008, 13:35
Rufname:
Wohnort: b. Dresden


AW: Daten Automatisieren in Formularen - AW: Daten Automatisieren in Formularen

Nach oben
       Version: Office 2003

Hallo,

Embarassed naja, für eine Fehlerbeschreibung ist das etwas mager, was soll man damit machen? Very Happy

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
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 
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Formular Daten in einer Tabelle speichern? 1 Gast 1017 24. März 2005, 16:24
Willi Wipp Formular Daten in einer Tabelle speichern?
Keine neuen Beiträge Access Tabellen & Abfragen: Wichtige frage zur eingabe von daten (ohne nervige Meldunge) 2 Mod 573 18. März 2005, 11:05
Gast Wichtige frage zur eingabe von daten (ohne nervige Meldunge)
Keine neuen Beiträge Access Tabellen & Abfragen: Daten abfragen nach Buchstabenreihenfolge 2 wrengers 699 07. März 2005, 22:59
Gast Daten abfragen nach Buchstabenreihenfolge
Keine neuen Beiträge Access Tabellen & Abfragen: Summieren von gruppierten Daten 3 Thomas Theurer 1202 27. Jan 2005, 17:36
mapet Summieren von gruppierten Daten
Keine neuen Beiträge Access Tabellen & Abfragen: Anfügeabfrage: Bestätigung deaktivieren, automatisieren 1 cmaier 3622 26. Nov 2004, 14:33
Skogafoss Anfügeabfrage: Bestätigung deaktivieren, automatisieren
Keine neuen Beiträge Access Tabellen & Abfragen: Rechnung erstellen wenn alle Daten vorhanden 6 Freddy 1909 25. Nov 2004, 11:03
Freddy Rechnung erstellen wenn alle Daten vorhanden
Keine neuen Beiträge Access Tabellen & Abfragen: Komment. u Daten in zelle schreiben, Zellenausrichtung festl 2 k@lle 816 06. Okt 2004, 11:49
k@lle Komment. u Daten in zelle schreiben, Zellenausrichtung festl
Keine neuen Beiträge Access Tabellen & Abfragen: Daten Trennen 4 Oliver.Giertz 1194 02. Sep 2004, 13:05
Oliver.Giertz Daten Trennen
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus Zwischenablage anhängen 5 Elhana 1077 30. Aug 2004, 13:00
Pusteblume Daten aus Zwischenablage anhängen
Keine neuen Beiträge Access Tabellen & Abfragen: Daten suchen in ACCESS. Daten aus Tabellen suchen! 7 Gast 2093 26. Aug 2004, 13:55
Gast Daten suchen in ACCESS. Daten aus Tabellen suchen!
Keine neuen Beiträge Access Tabellen & Abfragen: logische Zuordnung der Daten / Beziehung 0 DEAthWiNg 991 14. Jul 2004, 22:07
DEAthWiNg logische Zuordnung der Daten / Beziehung
Keine neuen Beiträge Access Tabellen & Abfragen: ..und noch'n problem: mehrere daten in eine zelle über abfra 6 ralusnom 774 05. Jul 2004, 18:43
ralusnom ..und noch'n problem: mehrere daten in eine zelle über abfra
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum