Access - pobieranie danych z poprzedniego formularza .... Jak to zrobić ?

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» rulezDC 22:39 » Soulfly 22:39 » Conan Bar 22:32 » yeger 22:29 » ManiusNG 22:24 » rooter666 22:23 » DJopek 22:20 » Wedelek 22:13 » GLI 22:12 » wrrr 22:06 » Holyboy 22:06 » ngP 22:06 » Fl@sh 22:01 » rainy 22:00 » Druzil 21:53 » Irys 21:42 » cVas 21:39 » elliot_pl 21:38 » Draghmar 21:30 » Wedrowiec 21:27 Dzisiaj przeczytano 59352 postów, wczoraj 72839 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

Access - pobieranie danych z poprzedniego formularza .... Jak to zrobić ? , Rebel_1 31/05/07 13:53
Witam,
Mam taki problem. Jest sobie prosta baza danych w Accessie. Wpisuję dane osobowe i automatycznie przydziela się numer ID dla tej osoby. Co należy zrobić, żeby po kliknięciu "Dalej" czyli zamknięciu tego formularza i otworzeniu kolejnego w polu ID wpisywał się wcześniej wpisany numer?

oprogramowac przycisk.... , rulezDC 31/05/07 15:29
sa dwa wyjscia:
1. uzyc makra
2. uzyc VBA
koniec koniec koniec
1. tyle też wiem , Rebel_1 31/05/07 19:49
  ale chodzi właśnie o ten kod
  1. bardzo ci na tym dzis zalezy czy moze byc jutro z rana..... , rulezDC 31/05/07 20:57
    akurat nei mam dostepu doaccessa a zglowy za bardzo nie pamietam
    otworze jakas swoja bazke i ci dam przyklad
    koniec koniec koniec
masz tu procedurke z jednej z moich baz.....moze ci pomoze , rulezDC 1/06/07 08:58
Private Sub button_wybierz_Click()
On Error GoTo Err_button_wybierz_Click

If IsNull(Me![lista_pacjent]) Then
MsgBox "NIE WYBRAŁEŚ PACJENTA, zaznacz pacjenta na liście i naciśnij przycisk 'wybierz'"
DoCmd.GoToControl "lista_pacjent"
Else
Forms!frm_wypis_podstawowy!lista_pacjent = Me!lista_pacjent
DoCmd.Close
DoCmd.GoToControl "strona_wypis_dane_podstawowe"
Forms!frm_wypis_podstawowy!lista_pacjent.Requery
Forms!frm_wypis_podstawowy!pole_nazwisko_pacjent.Value = Forms!frm_wypis_podstawowy!lista_pacjent.Column(1)
Forms!frm_wypis_podstawowy!pole_imie_pacjent.Value = Forms!frm_wypis_podstawowy!lista_pacjent.Column(2)
Forms!frm_wypis_podstawowy!pole_pesel_pacjent.Value = Forms!frm_wypis_podstawowy!lista_pacjent.Column(3)
End If
Exit_button_wybierz_Click:
Exit Sub

Err_button_wybierz_Click:
MsgBox Err.Description
Resume Exit_button_wybierz_Click

End Sub
koniec koniec koniec