Wprowadzanie A pola rekordowe przez niezależny
Istnieje kilka sposobów, aby wprowadzić zapis, i najczęściej jest, aby za pomocą formularza związanego z tabelą. Innym sposobem na to jest za pośrednictwem niepowiązanych dziedzinach, tj. za pomocą formularza z polami niezależny niezwiązanych z tabeli. Do
wprowadzić dane nam naciśnij 'rekordów ", czyli za pomocą kodu, który w przypadku tego przykładu jest następujące:
Dim db jako bazy
Dim rs Jako RecordsetJeśli MsgBox ("Czy chcesz pisać?" VbYesNoCancel, "Opcje") = vbYes Następnie
"Poprzez naciśnięcie jest pytanie, czy zapisać rekord, czy nie, jeśli tak kod nadal do końca
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Dane", dbOpenTable)
"Otwórz tabelę, aby wstawić dane rejestracjirs.AddNew
rs ("nazwa") = Me! INome
rs ("adres") = Me! Imorada
rs ("Wiek") = Me! Iidade
rs.Update 'wysyła dane do tabeli
rs.Close "Wyczyść dane i zamyka rekordów
Set rs = Nothing
Set db = NothingMe.INome = Null "czyści pola w formularzu
Me.Imorada = Null
Me.Iidade = Null
MsgBox "zapisane Record", vbInformation, "Gotowe" 'komunikat potwierdzający wyświetlanych
Me.INome.SetFocus "Ustaw kursor na pierwszym polu
Else: Sub Wyjścia
End If
Download: Place Niezależne
Brak komentarzy.