duplicare record da maschera con due sottomaschere
buongiorno,
(spero sia giusto continuare questo thread)
ho seguito il vostro codice, ma io ho 3 form in cascata relative a 3 tabelle distinte, mi spiego meglio:
Tab1 -- campi -- IDcontratto (contatore chiave primaria 1 a molti legato al campo idcontratto2 della Tab2)
datacontratto
clientecontratto
Tab2 -- campi -- IDdescrizione (contatore chiave primaria 1 a molti legato al campo iddescrizione2 della Tab3)
idcontratto2 (figlia della PK precedente)
datadescrizione
notedescrizione
tab3 -- campi -- IDdettaglio (contatore chiave primaria)
iddescrizione2 (figlia della PK precedente)
dettaglioNote
Le form si chiamano Maschera1, Sottomaschera2, Sottosottomaschera3 e i campi di queste hanno lo stesso nome dei campi delle tabelle da cui hanno origine.
Ho provato e la creazione del db funziona solo quando devo duplicare le prime due tabelle, con la terza no. Provo a mandarvi uno "schema" del codice che faccio partire da Maschera1:
- Codice: Seleziona tutto
1 Dim sSQL As String
2 Dim sSQL2 As String
3 Dim db As DAO.Database
4 Dim lngIDcontratto As Long
5 Dim lngIDdescrizione As Long
6 Set db = DBEngine(0)(0)
7.........
8 'PRIMA ROUTINE WITH codice che duplica primo record
9 With Me.RecordsetClone
10 .AddNew 'Crea un nuovo record
11 .....
12 .Update
13 .Bookmark = .LastModified
14 lngIDcontratto = !IDcontratto 'PK chiave primaria della tabella1
15 ..... codice SQL che duplica i campi di Form2 '
16 db.Execute sSQL, dbFailOnError 'fin qua come da vs codice
'seconda parte routine
17 sSQL2 = "INSERT INTO tab3 (iddescrizione2, dettaglioNote) " & _
18 "SELECT " & IDdescrizione & " As NewIDdettaglio, i.dettaglioNote" & _
19 " FROM tab3 As i" & _
20 " WHERE (i.iddescrizione2 = " & Forms! Maschera1! Sottomaschera2.IDdescrizione & ");"
21 db.Execute sSQL2, dbFailOnError
22 Me.Bookmark = .LastModified
23 Me.Bookmark = .LastModified
24 End With
25 End If
26 Set db = Nothing
27 End If
Si blocca al codice della variabile sSQL2 alla riga 20 con l'errore "run time 438 proprietà o metodo non supportati dall’oggetto", e non crea i record della Sottosottomaschera3. Controllato
- Codice: Seleziona tutto
Forms! Maschera1! Sottomaschera2.IDdescrizione
, I nomi delle maschere sono giusti.
Qualcuno può aiutarmi?