Datensatz per Button in einem Formular hinzufügen!! :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Access 2007] Datensatz per Button in einem Formular hinzufügen!!

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Access Hilfe

Autor

Nachricht

floberlin
Newbie
Newbie

Anmeldedatum: 08.01.2008
Beiträge: 1
Wohnort: Berlin

Verfasst am: 08.01.2008, 16:14

Hallo!!

Ich bin recht neu in dem Gebiet Access 07 und habe nun folgendes Problem:

Ich möchte in meinem Formular Einträge in Textboxen per Button "sfHinzufügen" einem Datensatz zufügen. Das Problem ist, es befinden sich auch noch andere Textboxen zu insgesamt drei datensätzen in dem Formular, welche ich aber getrennt betrachten will. Jeder Datensatz hat also seine eigenen Textboxen und seinen eigenen Button. Ich hatte mit der AddNew-Methode versucht, was aber nicht erfolgreich war.. Ich hoffe mir kann da einer weiterhelfen, wäre Euch sehr dankbar!!
Das ist mein jetziger VBA-Code:

Code:

Option Compare Database

Private Sub sfAbteilungHinzufügen_Click()
Me!a_aNummer = Me!a_aNummer.DefaultValue
Me!a_tName = Me!a_tName.DefaultValue
End Sub

Private Sub sfGebietHinzufügen_Click()
Me!g_aNummer = Me!g_aNummer.DefaultValue
Me!g_tName = Me!g_tName.DefaultValue
End Sub

Private Sub sfKlinikhinzufügen_Click()
Me!k_aKundenummer = Me!k_aKundenummer.DefaultValue
Me!kfKlinikart = Me!kfKlinikart.DefaultValue
Me!k_tName = Me!k_tName.DefaultValue
Me!k_tStraße = Me!k_tStraße.DefaultValue
Me!k_aPLZ = Me!k_aPLZ.DefaultValue
Me!k_tOrt = Me!k_tOrt.DefaultValue
Me!k_aGebietsnummer = Me!k_aGebietsnummer.DefaultValue
Me!k_hHomepage = Me!k_hHomepage.DefaultValue
End Sub

miriki
User mit gefährlichem Halbwissen

Anmeldedatum: 05.03.2007
Beiträge: 154
Wohnort: Kiel

Verfasst am: 10.01.2008, 09:08

floberlin hat Folgendes geschrieben:

Ich hatte mit der AddNew-Methode versucht, was aber nicht erfolgreich war.

Warum nicht? Was passierte? Was funktionierte nicht? In Deinem Code-Beispiel sehe ich auf alle Fälle kein AddNew.

Aber mal als Beispiel, wie man mit AddNew einen Datensatz erzeugen kann:

Code:

'dbTabelle enthält den Namen der Tabelle
'dsFeldname1, 2, ... sind die Namen der Felder des Datensatzes
'Wert1, 2, ... sind die Werte, die in den Datensatz geschrieben werden sollen
Dim DB As Database
Dim rs As Recordset
Set DB = CurrentDb()
Set rs = DB.OpenRecordset(dbTabelle, dbOpenDynaset)
With rs
.AddNew
!dsFeldname1 = Wert1
!dsFeldname2 = Wert2
' ...
.Update
.Bookmark = .LastModified
End With
rs.Close
DB.Close

Kannst ja mal versuchen, ob es so klappt...

Gruß, Michael

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Access Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Mehrere Wörter gleichzeitig in einem ...	fixtroedelfuchs	Sonstiges	0	04.07.2008, 14:57
	Einfache Email per selbsterstelltes F...	gelexpress	Microsoft Outlook Hilfe	0	01.07.2008, 14:24
	In Beziehung stehende Tabellen in ein...	kienzlw	Microsoft Access Hilfe	0	27.06.2008, 11:40
	Synchronisierung mit einem O2 XDA orbit	tomdinea	Microsoft Outlook Hilfe	1	25.06.2008, 11:59
	Formular teilweise automatisch ausfül...	ColeTrickle	Microsoft Word Hilfe	2	25.06.2008, 08:34

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht 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 posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de