Jak dopisać rekord w tabeli z poziomu VBA

Opublikowany przez
Odpowiedz

Można to zrobić z użyciem rekordsetu DAO. Oczywiście aby kod zadziałał potrzebna jest tabela „tbOsoby” z polami „Imie” i „Nazwisko”

Sub DodajRekord()
 
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
 
    Set db = CurrentDb
    Set rs = db.OpenRecordset("tbOsoby")
 
    rs.AddNew
    rs!Imie = "Jan"
    rs!Nazwisko = "Kowalski"
    rs.Update
 
    rs.Close
    Set rs = Nothing
    Set db = Nothing
 
End Sub

Jak dopisać rekord na formularzu z poziomu VBA?

Opublikowany przez
2

Może to być potrzebne np przy pobieraniu danych z jakiegoś pliku. Jeżeli jest w tym momencie aktywny odpowiedni formularz (czyli taki na którym są pola tekstowe o nazwach „Imie” i „Nazwisko”), to możemy od razu zapisać pobrane dane. Procedura jest wyzwalana po kliknięciu przycisku o nazwie „przyciskDopiszRekord”, który także musi się znaleźć na formularzu.

Private Sub przyciskDopiszRekord_Click()
    Dim strImie As String, strNazwisko As String
 
    'testowe pobranie danych 
    strImie = InputBox("Podaj imię")
    strNazwisko = InputBox("Podaj nazwisko")
 
    'ustawienie się na nowym rekordzie
    DoCmd.GoToRecord , , acNewRec
 
    'wpisanie wartości do pól
    Me.Imie = strImie
    Me.Nazwisko = strNazwisko
 
    'zapisanie rekordu na fm
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End Sub