PDA

Vollständige Version anzeigen : Probleme mit Tabellen


Pjanthawerda
12.02.2001, 20:18
Habe eine Tabelle die Interessenten heisst und eine andere heisst Kunden. Jetzt moechte ich Werte aus der Kunden (Tabelle/Formular) in die Tabelle/Formular Interessenten kopieren. Wie kann ich das ueber einen Button machen? Der Button ist in dem Formular Interessenten und wenn man draufklickt sollen die Werte in die Tabelle Kunden kopiert werden! Danke fuer alle nuetzlichen Tips!!!!Brauche dringend eine gute Beschreibung wie das funktioniert mit dem kopieren von Werten aus einer Tabelle in eine andere!!!

Street
12.02.2001, 20:52
Hallo!

Du musst in deinem Bottom-Code "Bottom_Click" folgendes ein geben
Sub bottom_click
Dim mdb_tabelle as recordset

Set mdbtabelle=currentdb.openrecordset("Kunden",dbopendynaset)
mdbtabelle.addnew
(-) mdbtabelle("****")=me.***
usw.
mdbtabelle.update

end sub

Anstelle der ****,*** gibst du immer die Spalten bzw. Formularcontrolnamen an und die Zeile (-) gibst du so oft wie du Spalten hast ein und wenn du anschliessen auf den Bottom klickst wird der aktuelle Datensatz aus Interessenten in Kunden kopiert

Viel Glück
Street

Pjanthawerda
12.02.2001, 22:43
Hallo Street! Erstmal danke fuer Deinen Tip!
Habe das Problem aber immer noch,wegen eines Laufzeitfehlers 3001.Ich habe den Butoon erstellt und folgenden Code darunter eingegeben:
Private Sub Befehl72_Click()
Dim mdbtabelle As Recordset

Set mdbtabelle = CurrentDb.OpenRecordset("Neukunde", dbopendynaset)
mdbtabelle.AddNew

mdbtabelle("1") = Me.ID_Interessent
mdbtabelle("2") = Me.Titel
mdbtabelle("3") = Me.Vorname
mdbtabelle("4") = Me.Nachname
mdbtabelle("5") = Me.Firma
mdbtabelle("6") = Me.Anschrift
mdbtabelle("7") = Me.Zusatz
mdbtabelle("8") = Me.PLZ
mdbtabelle("9") = Me.Ort
mdbtabelle("10") = Me.Telefon
mdbtabelle("11") = Me.Mobil
mdbtabelle("12") = Me.Fax
mdbtabelle("13") = Me.Email
mdbtabelle("14") = Me.Internetadresse
mdbtabelle("15") = Me.Kontakt
mdbtabelle("16") = Me.Liegenschaft
mdbtabelle("17") = Me.Grundstück
mdbtabelle("18") = Me.ID_Interesse
mdbtabelle("19") = Me.Informationsmaterial
mdbtabelle("20") = Me.Bemerkungen
mdbtabelle("21") = Me.ID_Status

mdbtabelle.Update
End Sub

Leider haengt er sich immer an dem Befehl :
Set mdbtabelle = CurrentDb.OpenRecordset("Neukunde", dbopendynaset)
auf, weil er sagt, dass die Typen unvertrseglich seien.Ansonsten sieht man die Werte aus der ersten Tabelle,aber mit dem kopieren in die 2. Tabelle klappt es leider immer noch nicht!Vielleicht kannst du mir noch einen guten tip geben, das waere sehr nett, schoene gruesse und gute Nacht vom
Pjanthawerda

Heathen
13.02.2001, 07:15
Hi,
Du mußt lediglich Deinen Recordset so deklarieren:
Dim mdbtabelle as DAO.Recordset

Sollte klappen

Pjanthawerda
13.02.2001, 14:02
Hallo erstma'!

Leider haengt er sich immer an dem Befehl :
Set mdbtabelle = CurrentDb.OpenRecordset("Neukunde", dbopendynaset)
auf, weil er sagt, dass die Typen unvertrseglich seien.Ansonsten sieht man die Werte aus der ersten Tabelle,aber mit dem kopieren in die 2. Tabelle klappt es leider immer noch nicht!Vielleicht kannst du mir noch einen guten tip geben, das waere sehr nett.
Ich habe auch den Rat von Heather genommen,die mir sagte, dass ich in der Zeile:
Dim mdbtabelle As Recordset
lediglich haette aendern muessen:
Dim mdbtabelle As DAO.Recordset

Leider klappt das auch nicht!Ich brauche dringend Hilfe!Ich bin fuer jeden Rat und Tip dankbar!
Gruss
Pjanthawerda

Heathen
13.02.2001, 14:26
Versuch es doch mal mit codedb.Openrecordset....
Wenn das nicht hilft, dann versuch es mit
Codedb.Openrecordset("Neukunden",,adlockoptimistic)

Müßte eigentlich klappen (aber auch nur mit Dim mdbTabelle as DAO.Recordset)

Karl-Heinz
13.02.2001, 14:45
Hallo ich hab selbst fürs drucken was gemacht. (abgeschrieben)
habs für dich geändert müsste so funtioniern.
Dim db As Database
Dim mdbtabelle As Recordset

Set db = CurrentDb()
Set mdbtabelle = db.OpenRecordset("Neukunde", DB_OPEN_DYNASET)

mdbtabelle.AddNew
mdbtabelle("1") = Me.ID_Interessent
mdbtabelle("2") = Me.Titel
mdbtabelle("3") = Me.Vorname
mdbtabelle("4") = Me.Nachname
mdbtabelle("5") = Me.Firma
mdbtabelle("6") = Me.Anschrift
mdbtabelle("7") = Me.Zusatz
mdbtabelle("8") = Me.PLZ
mdbtabelle("9") = Me.Ort
mdbtabelle("10") = Me.Telefon
mdbtabelle("11") = Me.Mobil
mdbtabelle("12") = Me.Fax
mdbtabelle("13") = Me.Email
mdbtabelle("14") = Me.Internetadresse
mdbtabelle("15") = Me.Kontakt
mdbtabelle("16") = Me.Liegenschaft
mdbtabelle("17") = Me.Grundstück
mdbtabelle("18") = Me.ID_Interesse
mdbtabelle("19") = Me.Informationsmaterial
mdbtabelle("20") = Me.Bemerkungen
mdbtabelle("21") = Me.ID_Status

mdbtabelle.Update

hoffentlich klappt es!

Karl-Heinz

Pjanthawerda
13.02.2001, 16:17
Dim db As Database<--Benutzerdefinierter Typ ist nicht definiert!
Der Typ Database ist auch nicht in der Auswahl drin! Und DAO nimmt er irgendwie ueberhaupt nicht an!Ich weiss nicht mehr weiter wie ich es am geschicktesten machen soll!Wenn Euch nochmal was einfaellt waere ich Euch sehr dankbar!
Danke ihr beiden
Pjanthawerda