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
NekoKasiek