Office: (Office 2010) VBA

Hallo

Ich habe eine Tabelle die nur zwei Felder enthält.
Einen pk als Autowert und einen Namen als Text.

Ich habe ein Formular angelegt mit einem Textfeld und einem Knopf.
Wenn jemand auf den Knopf drückt soll ein neuer Datensatz angelegt werden, der Inhalt des Textfeldes in das Namensfeld des neuen Datensatzes geschrieben werden und der automatisch angelegte zugehörige Primärschlüssel soll in eine VBA Variable geschrieben werden.

Bsp.:
1. Textffeld enthält: Test
2. Knopf wird gedrückt
3. Neuer Datensatz wird angelegt: ID = 10; Name = Test
4. der VBA Variablen x wird der Wert 10 zugewiesen

Ich habe es so probiert:
Dim SQL as String
SQL = "INSERT INTO tbl_Beispiel (txt_Name) VALUES ('" & Me.Eingabefeld & "')"
DoCmd.SetWarnings False
DoCmd.RunSQL SQL
fk = DLookup("Id_Beispiel", "tbl_Beispiel", "txt_Name= " & Me.Eingabefeld)

funktioniert aber leider nicht.
Kann mir jemand helfen?
Ist ein dringendes Problem.

mfg
Andahari

:)

 

Ach guck, es funktioniert nicht, und es ist ein dringendes Problem *tongue.gif*
Du hast oben beim SQL-Statement das Kriterium richtig (mit Anführungszeichen/Hochkomma) und unten beim DLookup nicht. Ich vermute mal, das wird es schon gewesen sein.
maike

 

Hallo,
ich gehe noch einen Schritt weiter und behaupte das braucht man nicht. *grins

Du erzeugst ja redundante Daten, in dem Du das Namenfeld doppelst.

Was ist denn der Hintergrund des Vorhabens ?

 

Vielen Dank für deine Antwort, ich hätte mich wohl etwas weniger drastisch ausdrücken sollen. Da stimme ich dir zu.

Dein Vorschlag löst das Problem allerdings nicht. Ich habe zuvor schon alles
mögliche ausprobiert und habe es momentan so:

Code:

Der Code läuft auch fehlerfrei durch, allerdings nimmt fk immer den Wert "1" an. Völlig unabhängig davon wie der pk für den neuen datensatz ist.

Edit: @gpswanderer
Ich möchte jedesmal wenn der Knopf gedrückt wird in einer anderen Tabelle neue Datensätze nach einem festen Muster anlegen.
Doch der pk von tbl_Beispiel muss dann in die andere Tabelle als fk eingetragen werden.
Code:

 

ID des zuletzt hinzugefügten Autowertes ermitteln
Ob das auch mit den DoCmd-Befehlen von Dir funktioniert, weiß ich nicht.

Wenn DLookup mehrere Treffer findet, nimmt es einen beliebigen, meist den ersten.
Ein Name als Kriterium ist nicht sehr selektiv, oder gibt es da keine Müllers, Schmidts Lehmanns, ...

 

Ich habe es mit CurrentDB.Execute getestet, wenn der Vergleichswert eindeutig ist, klappt es damit. Wenn allerdings, wie es jetzt aussieht, "Montag" mehrfach vorkommt, dann geht es wohl nur mit @@IDENTITY.
maike

 

Vielen Dank für die kompetente und schnelle Hilfe.
Ich habe die Lösung die von ebs17 vorgeschlagen wurde implementiert und
jetzt funktioniert es.
Besser hätte Ich es mir nicht wünschen können.
*top