GoldenLine
Zaloguj się
Marek Red

Marek Red Student, Wyższa
Szkoła Informatyki w
Łodzi

Temat: [Access] Numerowanie dokumentów

Mam 2 tabele
1) TDokument
- IDDokument
- Symbol
2) TZakup
- IDZakup
- FDokument
-Numer_Dok
- Data
itp ...

Mam problem jak zrobić żeby w wyniku wyboru pola kombi Dokumentu ( np RW lub MM) w polu Numer dokumentu pojawił mi się następny numer tego dokumentu np: ostatni numer RW 50 to kolejny będzie 51 ostatni numer MM 30 kolejny będzie 31

Wiem jak zrobić żeby się numerowało po dodaniu nowego rekordu ale bez wyboru z pola kombi

Kod:
Dim kolejny
kolejny = DMax("Nrumer_Dok", "TZakup")
kolejny = kolejny + 1
Me![Nr_Dok] = kolejny
Link do wypowiedziLink
Monika A.

Monika A. programista

Temat: [Access] Numerowanie dokumentów

Marek Red:
Mam 2 tabele
1) TDokument
- IDDokument
- Symbol
2) TZakup
- IDZakup
- FDokument
-Numer_Dok
- Data
itp ...

Mam problem jak zrobić żeby w wyniku wyboru pola kombi Dokumentu ( np RW lub MM) w polu Numer dokumentu pojawił mi się następny numer tego dokumentu np: ostatni numer RW 50 to kolejny będzie 51 ostatni numer MM 30 kolejny będzie 31

Wiem jak zrobić żeby się numerowało po dodaniu nowego rekordu ale bez wyboru z pola kombi

Kod:
Dim kolejny
kolejny = DMax("Nrumer_Dok", "TZakup")
kolejny = kolejny + 1
Me![Nr_Dok] = kolejny

funkcja DMax ma jeszcze jeden opcjonalny argument :)

http://office.microsoft.com/pl-pl/access/HA01228826104...

Pozdrawiam,
Monika
Link do wypowiedziLink

konto usunięte

Temat: [Access] Numerowanie dokumentów

kobieta i zna się na bazach danych - świat się zmienia :)

ale to dobrze, strasznie nudno tu było ;)
Link do wypowiedziLink
Marek Red

Marek Red Student, Wyższa
Szkoła Informatyki w
Łodzi

Temat: [Access] Numerowanie dokumentów

Wstawiam do BeforeInsert Formularza FZakup
Dim kolejny
kolejny = DMax("[Numer_Dok]", "TZakup","[FDokument]='MM'")
kolejny = kolejny + 1
Me![Nr_Dok] = kolejny
no tak zliczy mi wszystkie dokumenty MM ale już ie zrobi numeracji dla dokumentów RW w wyborze pola kombi
Link do wypowiedziLink
Marek Red

Marek Red Student, Wyższa
Szkoła Informatyki w
Łodzi

Temat: [Access] Numerowanie dokumentów

ok już sobie poradziłem dzięki za wskazówkę

AfterUpdate formularza

Dim curX As Currency
curX = DMax("[Numer_Dok]", "TBZakup", "[FDokument] = Forms!FrmZakupy!FDokument") + 1
Me.Numer_Dok = curX
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

MS Access - sztuczki i chwyty




Wyślij zaproszenie do
Anuluj