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
	» Wedelek 20:31 » Brauni 20:31 » Ament 20:30 » Dexter 20:28 » matali 20:27 » AfiP 20:25 » slanter 20:22 » nth4 20:20 » adolphik 20:19 » MARtiuS 20:18 » alkatraz 20:16 » XepeR 20:08 » Rafael_3D 20:00 » rulezDC 20:00 » DJopek 19:55 » Emios 19:54 » ulan 19:52 » siwydym 19:50 » Promilus 19:46 » myszon 19:33 Dzisiaj przeczytano 36889 postów, wczoraj 25433 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