[DB Access e VBA] Pulsante su una maschera che...

[Dust_79]

Ho una maschera per l'inserimento dei dati in una tabella.
Alla chiusura della maschera, però, oltre a salvare il record sulla tabella dovrei creare un altro record con determinati valori nella stessa tabella.

Come faccio?

[Sypher]

fai 2 inserimenti...non vedo il problema!

[Dust_79]

tu sottovaluti la mia ignoranza

come faccio?

[Sypher]

scusa hai la maschera fatta in VB al click sul pulsante hai detto che inserisci il record no? se sì inserisci pure l'altro! o forse non ho capito bene il porblema!

[Dust_79]

il fatto è che la maschera è stata fatta con i wizard e io in realtà non so come far inserire un record...

mi scuso ancora per l'ignoranza cronica

[Sypher]

Originariamente inviato da Dust_79
il fatto è che la maschera è stata fatta con i wizard e io in realtà non so come far inserire un record...

mi scuso ancora per l'ignoranza cronica

non riesco a capire ma la maschera è fatta con access o con vb?

p.s. se è con access non ti so aiutare!

[Dust_79]

Originariamente inviato da Sypher
non riesco a capire ma la maschera è fatta con access o con vb?

p.s. se è con access non ti so aiutare!

access!!!

ecco perchè non ci capivamo!

[webmamo]

Scusa non ho capito bene quello che devi fare!
allora stai lavorando con ACCESS (giusto?!?)
hai una maschera con le seguenti "celle"
a b c d
dove vai ad inserire i tuoi dati.

Tu vuoi che quando chiudi la maschera prima di chiudere ti metta dei valori in una o tutte le celle?

[Dust_79]

no, il problema è che oltre all'inserimento della tabella per cui è fatta, deve andare ad inserire anche un record su un'altra tabella con dei valori che decido io...

[Luciano79]

Se nella tabella c'è una chiave prova questo...

Function ChiudiMaschera()
 dim MyRec as RecordSet
 dim MyDB as Database

 set MyDB as Database
 set MyRec = MyDB.OpenRecordset(NomeTabella)

'Trovi il record corrente
 Me.TextBoxContenenteCampoChiave.SetFocus
 While MyRec.CampoChiave <> Me.TextBoxContenenteCampoChiave.Text
  MyRec.MoveNext
 Wend

'Aggiorni il record vecchio
 Me.TextCampo1.SetFocus
 MyRec![NomeCampo1]=Me.TextCampo1.Text
 Me.TextCampo2.SetFocus
 MyRec![NomeCampo2]=Me.TextCampo2.Text
 Me.TextCampo3.SetFocus
 MyRec![NomeCampo3]=Me.TextCampo3.Text
 MyRec.Update

'Aggiungi il nuovo record e lo salvi
 MyRec.AddNew
 MyRec.CampoChiave=NuovaChiave
 Me.TextCampo1.SetFocus
 MyRec![NomeCampo1]=Me.TextCampo1.Text
 Me.TextCampo2.SetFocus
 MyRec![NomeCampo2]=Me.TextCampo2.Text
 Me.TextCampo3.SetFocus
 MyRec![NomeCampo3]=Me.TextCampo3.Text
 MyRec.Update

 MyRec.Close
 MyDB.Close

 Set MyRec=Nothing
 Set MyDB=Nothing
End Function

... altrimenti è comunque simile, ma la ricerca la fai in base ai campi che vuoi tu.