Office: (Office 2000) Datensatz hinzufügen / automatisch wert zuweisen

moin moin,

ich möchte in einer Tabelle über ein Formular automatisch einen Datensatz hinzufügen und im in einem Feld direkt eine ID zuweisen.
Dann möchte ich das der Focus in diesem Formular auf das erste Feld gesetzt wird welches durch den User bearbeitet werden kann.

In diesem Formular habe ich die Eigenschaft "Anfügen zulassen" auf "Nein" gestellt.
Nun habe ich in einem Beitrag den Hinweis gefunden wie man trotzdem einen neuen Datensatz hinzufügen kann.

Code:

Ich möchte jetzt soweit gehen, dass ich dem Feld ID automatisch den Wert aus der Variablen CDAKTUELLID (typ Long) zuweise und dann den Focus in das Feld Titelnummer setze.

Nun habe ich schon probiert, die in dem Beispiel auskommentiert Zeile zu bearbeiten

Me.Recordset!ID = CDAKTUELLID

erhalte dann aber folgende Fehlermeldung:

Nullwert in Index oder primärschlüssel nicht möglich

Zuerst dachte ich das der Inhalt vorher nicht zugewiesen wurde, aber die Variable hat tatsächlich einen Inhalt vom Typ Long, das Datenfeld ist vom Typ Zahl, Long


Was mache ich falsch. Und wo muss ich dann den Focus-Befehl einsetzen, damit der User seine Eingaben tätigen kann ?

:)

 

Ich würde versuchen dieses Problem im Formular über die DefaultValue-Eigenschaft des Feldes zu lösen.
Deklariere in einem öffentlichen Modul (Kopfbereich) eine Variable Public lngWert As Long die dann aus dem Programm heraus mit dem Inhalt Deiner Berechnungsformel gefüllt werden kann. Ebenfalls im öffentlichen Modul kann dann die nachfolgende Funktion erstellt werden die Deinem Formularfeld den richtigen Inhalt zuweisen kann:
Code:

Im Formular wird die Funktion die das Ergebnis Deiner Berechnung wiedergibt in der Eigenschaft DefaultValue (Standardwert) eingetragen: =fctWert()
Evtl. könnte man die ganze Berechnung auch gleich innerhalb der Funktion vornehmen ??!

 

moin moin,

die deklarierung der Variablen und die Zuweisung eines Wertes habe ich fertig.

Wenn ich mir den Inhalt der Variablen anzeigen lasse bekomme ich eine Zahl angezeigt. Ist auch korrekt so. Ich würde jetzt gerne wissen wie ich diese Zahl dann bei Erstellung des neuen Datensatzes genau diesem Datensatz in dem Feld ID speichern bzw. eintragen kann.

Wenn ich den Button neuer Datensatz klicke wird dadurch folgendes ausgelöst.

Code:

Wo weise ich jetzt dem Feld ID die Variable zu ?

Wie gesagt: Die Zeile in dem das Hochkommata steht habe ich schon versucht zu editieren erhalte dann aber die Fehlermeldung:

Nullwert in Index oder primärschlüssel nicht möglich.
Wenn ich direkt nach den anklicken des Button eine MsgBox den Inhalt der Variablen anzeigen lasse erhalte ich auch das Ergebniss. Also schliesse ich daraus, dass die Variable ok ist.

Wo muss ich also jetzt ansetzten, damit diese Meldung nicht mehr erscheint ?

 

der jeweils aktuelle Wert der Variablen sollte bei jedem neuen Datensatz automatisch vorhanden sein. Es wird nicht notwendig sein den Wert über die Recordset-Eigenschaft des Formulars zuzuweisen - es sei denn Du füllst noch andere Felder aus.
Code:

Ansonsten sollte es ohne Recordset gehen indem man mit dem DoCmd-Objekt einfach einen NewRecord anfügt und anschliessend den Fokus auf das erste auszufüllende Feld setzt.

 

Das klappt nicht.

Ich peil es im Moment nicht. Das Problem ist noch immer da. Der Wert der in dieses Feld eingetragen werden muss wird vorher in einem anderen Formular ausgelesen und in der Variablen CDAKTUELLID hinterlegt.
Und dieser Wert MUSS in das Feld ID in der aktuellen Tabelle in einen neuen Datensatz geschrieben werden und anschliessen soll der Focus auf das nächste Datenfeld gesetzt werden damit der User eine Eingabe vornehmen kann.

Wo weise ich dem Feld ID den Inhalt CDAKTUELLID zu.
Mit dem Update kommt die Fehlermeldung wie schon beschrieben.

So habe ich das jetzt in meinem Formular eingefügt

Code:

Ich habe als Beispiel mal ne abgespeckte Datenbank angehängt.

 

jemand nen tipp welchen fehler ich da drin habe?

 

So in etwa wird ein Schuh draus:
Code:

 

Warum mache ich mir eigentlich immer das Leben (bzw. VBA Programmierung) so schwer.
Ist eigentlich recht simple. So was ähnliches hatte ich wenn ich eine neue CD anlege schon drin. Aber die Lösung in den Eigenschaften Anfügen auf Nein zu setzen und mit dem Button einen neuen Datensatz zu erzeugen gefällt mir viel besser.

Danke für die Hilfe.