Mata in ett rekord områden genom oberoende

Postat onsdagen den 20 februari, 2008 - 13:22 | av admin |

Det finns flera sätt att ange en post och den vanligaste är att få via ett formulär bundet till ett bord. Ett annat sätt att göra detta är genom orelaterade fält, det vill säga använda ett formulär med fält oberoende inte är relaterade till bordet. Till
mata in data som vi använder den "postuppsättningen ', dvs genom en kod, som i fallet med detta exempel är som följer:

Dim db som databas
Dim rs Som Recordset

Om MsgBox ("Vill du skriva?" VbYesNoCancel, "Alternativ") = vbYes Sedan
"Genom att trycka på är frågan om du vill spara posten eller inte, om så koden fortsätter fram till slutet
Uppsättning db = CurrentDb ()
Set rs = db.OpenRecordset ("Data", dbOpenTable)
"Öppna tabellen för att infoga dataregistret

rs.AddNew
rs ("namn") = Me! INome
rs ("adress") = Me! Imorada
rs ("age") = Me! Iidade
rs.Update 'sänder datan till bordet
rs.Close "Clear data och stänger postuppsättningen
Set rs = Nothing
Set db = Nothing

Me.INome = Null "raderar fält i formuläret
Me.Imorada = Noll
Me.Iidade = Noll
MsgBox "Record frälst", vbInformation, "Done"-meddelande visas en bekräftelse
Me.INome.SetFocus "Flytta markören till det första fältet
Else: Exit Sub
End If