Syöttäminen Tietueiden kentät itsenäisten
On olemassa useita tapoja kirjoittaa kirjaa, ja yleisin on saada läpi lomake sidottu taulukkoon. Toinen tapa tehdä tämä on kautta liity aloilla, kuten käyttämällä lomakkeen kenttiä itsenäinen liity taulukkoon. Voit
syöttää tiedot käytämme "tietuejoukon", ts. koodilla, jossa tapauksessa tämä esimerkki on seuraava:
Dim db Koska Database
Dim rs Koska RecordsetJos MsgBox ("Haluatko kirjoittaa?" VbYesNoCancel, "Asetukset") = vbYes sitten
"Painamalla kysytään tallentaa sen tai ei, jos koodia jatkuu loppuun asti
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Data", dbOpenTable)
"Avaa pöytä lisätä tietorekisteriinrs.AddNew
rs ("nimi") = Me! INome
rs ("osoite") = Me! Imorada
rs ("ikä") = Me! Iidade
rs.Update "lähettää tiedot taulukkoon
rs.Close "Tyhjennä tiedot ja sulkee tietuejoukkoa
Set rs = Nothing
Set db = NothingMe.INome = Null 'tyhjentää lomakkeen kentät
Me.Imorada = Null
Me.Iidade = Null
MsgBox "Record pelastettu", vbInformation, "Valmis" "näyttämään viestin
Me.INome.SetFocus "Siirrä kohdistin ensimmäiseen kenttään
Else: Exit Sub
End If
Lataa: Sijoita Independent
Ei kommentteja.