Avviare Microsoft Office Access , selezionare " Database Tools " e cliccare su " Visual Basic ". Selezionare il menu "Inserisci" , quindi fare clic su "Modulo ".
2
Copia e incolla il seguente codice nel modulo :
UpdateQuery Private Sub ( ) per
dim db As Database dim rst
come Recordset
dim sqlstring As String dim
rstCnt As Integer
Set db = CurrentDb
sqlstring = " CREATE TABLE tableToUpdate ( primo testo , ultimo testo ) "
DoCmd.SetWarnings False
DoCmd.RunSQL ( SqlString ) per
strSQL = " INSERT INTO tableToUpdate VALUES ( ' Oscar ', ' Gonzalez ') "
DoCmd.RunSQL ( strSQL ) per
strSQL =" INSERT INTO tableToUpdate VALUES ( ' Kitzia ', ' Ramos ') "
DoCmd.RunSQL ( strSQL ) per
strSQL = " INSERT INTO tableToUpdate VALUES ( ' John ', ' Smith ') "
DoCmd.RunSQL ( strSQL ) per
strSQL = " INSERT INTO tableToUpdate VALUES ( ' Anna ', ' Williams' ) "
DoCmd.RunSQL ( strSQL ) per
Set rst = db.OpenRecordset ( " SELECT * FROM tableToUpdate tableToUpdate , . " )
rst.MoveLast
rst.MoveFirst
rstCnt = 0 Per rst.RecordCount - 1
rst.Fields ( 0 ) Valore = " . Oscar "Allora
rst.Edit
rst.Fields ( 0 ) . Value =" Emilio "
rst.Update
End If
rst.MoveNext
Avanti rstCnt
End Sub
3
Premere " F5 " per eseguire la subroutine " UpdateQuery " . La subroutine crea una nuova tabella , inserisce nuove righe di dati , query la tabella creata e aggiorna il primo campo .
Programmazione © www.354353.com