Entrando a campi dei record attraverso indipendenti

Entrando a campi dei record attraverso indipendente

Posted on Mercoledì, 20 Febbraio 2008 - 13:22 | by admin |

Ci sono diversi modi per inserire un record, e il più comune è quello di ottenere attraverso una forma associata a una tabella. Un altro modo per farlo è attraverso i campi non collegati, vale a dire utilizzando un modulo con i campi non collegati indipendente al tavolo. A
immettere i dati che utilizzano il 'recordset', cioè da un codice, che nel caso di questo esempio è il seguente:

Dim db As Database
Rs As Recordset

Se MsgBox ("Ti piacerebbe scrivere?" VbYesNoCancel, "Opzioni") = vbYes Poi
"Premendo viene chiesto se per salvare il record o no, in tal caso il codice continua fino alla fine
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Dati", dbOpenTable)
'Aprire la tabella per inserire i dati registrati

rs.AddNew
rs ("name") = Me! INome
rs ("indirizzo") = Me! Imorada
rs ("età") = Me! Iidade
rs.Update 'invia i dati alla tabella
rs.Close 'cancellare i dati e chiude il recordset
Set rs = Nothing
Set db = Nothing

Me.INome = Null 'cancella i campi del modulo
Me.Imorada = Null
Me.Iidade = Null
MsgBox "Record salvato", vbInformation, "Fatto" 'messaggio di conferma di visualizzazione
Me.INome.SetFocus 'Sposta il cursore sul primo campo
Exit Sub: Else
End If