udostepnione.txt

(0 KB) Pobierz
Option Compare Database

Private Sub btnAdd_Click()
    CurrentDb.Execute " INSERT INTO Klienci(imie, nazwisko, firma, miejscowosc, kodPocztowy, ulica, nrDomu, nrLokalu, telefon) VALUES('" & Me.txtImie & "', '" & Me.txtNazwisko & "', '" & Me.txtFirma & "', '" & Me.txtMsc & "', '" & Me.txtKP & "', '" & Me.txtUl & "', '" & Me.txtNrD & "', '" & Me.txtNrL & "', '" & Me.txtTel & "') "
End Sub
Zgłoś jeśli naruszono regulamin