linearDaten von einem UFO in ein anderes kopieren
markusp 
, Bludenz, Montag, 21. Dezember 2009, 18:48
a97 - Habe in einem Hauptformular ein Unterformular (frmVerteiler)in das ich Adressen für eine Verteilerliste eingebe. Mit einem Button öffne ich wahlweise zusätzlich ein Formular (frmAdressen) in dem immer wieder benötigte Adressen enthalten sind. Nun möchte ich wahlweise bestimmte Felder einzelner Datensätze aus "frmAdressen" nach "frmVerteiler" kopieren. Komme leider nicht weiter. Vielen Dank für Hilfe - Markus
Daten von einem UFO in ein anderes kopieren
Nun möchte ich wahlweise bestimmte Felder einzelner Datensätze aus "frmAdressen" nach "frmVerteiler" kopieren.
Dazu ist VBA nötig. Ungefähr wie folgt:
me!forms!frmAdressen.Feldname = Me!Forms!frmVerteiler.Feldname
bis denn
Martin
Daten von einem UFO in ein anderes kopieren
markusp , Montag, 28. Dezember 2009, 18:58 @ Martin Asal
Hallo Martin,
vorerst besten Dank für deine Antwort. Habe VBA so angelegt:
Private Sub Uebernehmen_Click()
Dim RS As DAO.Recordset
Me!Forms!frmHBAdressen.HBNAM = Me!Forms!frmPar13LTGListe.Nam
RS.AddNew
RS.Update
RS.Close
Forms![frmPar13LTGListe].Requery
End Sub
Es kommt leider die Fehlermeldung ".. kann das in ihrem Ausdruck angesprochene Feld 'Forms' nicht finden"
Habe alles überprüft und kann mir die Fehlermeldung nicht erklären.
Gruß Markus
Daten von einem UFO in ein anderes kopieren
Es kommt leider die Fehlermeldung ".. kann das in ihrem Ausdruck angesprochene Feld 'Forms' nicht finden"
Habe alles überprüft und kann mir die Fehlermeldung nicht erklären.
Hi,
sorry, man sollte nach einigen Gläsern Rotwein nicht mehr versuchen, intelligente Antworten zu geben ;-)
Probier mal folgendes:
Me!frmHBAdressen.Form!HBNAM = Me!frmPar13LTGListe.Form!Nam
Damit müsste stets der Wert des Feldes "HBNAM" ins Feld "Nam" kopiert weden - und zwar stets von dem Datensatz, in dem sich gerade der Cursor befindet. Die ganzen Recordset-Geschichten sind dazu gar nicht nötig.
bis denn
Martin
Daten von einem UFO in ein anderes kopieren
Hallo Martin,
besten Dank für deine Mühe. Mit einem Einzeiler ist es mir nicht gelungen. Dennoch bin ich dir dankbar für deine Antworten auf meine Fragen. Ich habe folgende Variante gewählt:
Private Sub Uebernehmen_Click()
Dim db As Database
Dim rs As Recordset
Dim frm As Form
Set db = CurrentDb()
Set rs = db.OpenRecordset("tblPar13LTG")
rs.AddNew
rs!ZL = HBZL
rs!Nam = HBNAM
rs!ZUSATZ = HBZUSATZ
rs!Strasse = HBSTRASSE
rs!Ort = HBORT
rs!Zuordnung = "B"
rs.Update
rs.Close
Set rs = Nothing
Set db = Nothing
Forms!Planbuch!frmPar13LTGListe.Form.Requery
End Sub
Beste Grüße
Markus
RSS Einträge