Re: VB Code: Bei neuen DS vorher Autowert für diesen DS auslesen

Tech-Archive recommends: Fix windows errors by optimizing your registry

Hallo michael.hochbach@xxxxxxxxxxxxxx

quoting michael.hochbach@xxxxxxxxxxxxxx:

die ID wird benötigt für das Dateihandling, der Dateiname setzt sich
zusammen aus ID und Dateiname mit Endung.

Folgendes Problem tritt jetzt noch auf. Folgende logische
Fehlermeldung kommt beim ausführen des Codes.

Fehlermeldung 3201: Der Ds kann nicht hinzugefügt werden, da ein DS in
der Tabelle "Master" mit diesem DS in Beziehung stehen muß.

Der Button befindet sich in dem Formular wo der Master Ds angezeigt
wird, mit dem die Tbl_Dokumente in Beziehung steht.

Wenn ich das richtig verstehe, muß ich im Code noch den Hinweis auf
den DS in der Mastertabelle geben der mir ja im Formular angezeigt
wird.

Aber wie?

Viele Grüße
Patricia

Was nun, Patricia oder michael.hochbach@xxxxxxxxxxxxxxx Kannst Du bitte den Realnamen im Newsreader richtigstellen? Danke.

Wo ist denn der Code, den Du ausführst? Wäre doch noch wichtig, diesen zu sehen. Zudem ist es von Bedeutung, ob es sich um eine Access Datenbank oder um SQL Server Tabellen handelt.

Das Vorgehen sollte etwa so sein:

1. Hinzufügen des Master Datensatzes, z.B.

CurrentDB.Execute("INSERT INTO DeineTabelle(DeinFeld)" & _
" VALUES('DeinText')", dbFailOnError


2. Auslesen der vergebenen ID z.B. durch

Dim db as Database
Dim rs as Recordset
Dim lngLetzteID AS Long
set db = CurrentDB()
set rs = db.OpenRecordset("SELECT @@IDENTITY", dbOpenSnapshot)
lngLetzteID = rs(0)
rs.close
set rs = nothing
set db = nothing

3. Hinzufügen des Detail Datensatzes unter Verwendung der oben eingelesenen ID, z.B.

CurrentDB.Execute("INSERT INTO DetailTabelle(MasterID, DeinFeld)" & _
" VALUES(" & lngLetzteID & ",'DeinText')", dbFailOnError

Falls es eine SQL Server Backend ist, dann muss das SELECT @@Identity Statement als Passtrough Abfrage an den SQL Server geschickt werden, um die zuletzt vergebene ID zurückzubekommen.

HTH
Henry




--
Keine E-Mails auf Postings in NGs. Danke.
Access FAQ www.donkarl.com

.

Quantcast