[es] - na osnovu maticnog broja automatski upis datuma rodjenja

dejanalfa
Dejan Stojanovic
Nis

Član broj: 131180
Poruke: 36
*.adsl.beocity.net.

Profil

na osnovu maticnog broja automatski upis datuma rodjenja

^{29.01.2007. u 15:38 - pre 209 meseci}

Imam bazu podataka u accessu za unos pacijenata.Da li je moguce i kako da automatskim unosom maticnog broja u jednoj celiji dobijem datum rodjenja u drugoj celiji.Napominjem da je u pitanju access [email protected]

Dejan Stojanovic

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: na osnovu maticnog broja automatski upis datuma rodjenja

^{29.01.2007. u 16:02 - pre 209 meseci}

Code:

Private Function DatumIzJMBG() As Variant
   Dim strYear As String
   Dim strMonth As String
   Dim strDay As String

   strYear = Mid(Text1.Text, 5, 3)
   strMonth = Mid(Text1.Text, 3, 2)
   strDay = Mid(Text1.Text, 1, 2)

   'Inicijalno je null, moze koristiti za proveru da li je JMBG ispravan
   'ako se sklone Msgbox obavestenja
   DatumIzJMBG = Null

   'Provera tipa
   If IsNumeric(strYear) And IsNumeric(strMonth) And IsNumeric(strDay) Then

      'provera i dopuna zbog veka
      If CInt(strYear) > 100 Then
         strYear = "1" & strYear
      Else
         strYear = "2" & strYear
      End If

      DatumIzJMBG = DateSerial(CInt(strYear), CInt(strMonth), CInt(strDay))

   Else

      MsgBox "Datum u JMBG je nepotpun ili sadrzi neipravne karaktere!"

   End If

   'Kontrola samog datuma koji je upisan
   If (Year(DatumIzJMBG) <> CInt(strYear)) Or (Month(DatumIzJMBG) <> CInt(strMonth)) Or (Day(DatumIzJMBG) <> CInt(strDay)) Then

      MsgBox "Datum u JMBG ima nemogucu vrednost za dan ili mesec ili godinu!"

   End If

End Function

Naravno, pretpostavio sam da imas upisan JMBG u neki TextBox pod imenom "Text1". Zadnje poredjenje se oslanja na osobinu DateSerial funkcije da u slucaju nekorektnog datuma ispravi datum na prvi moguci (slobodno interpretirano).

_{[Ovu poruku je menjao goranvuc dana 29.01.2007. u 17:14 GMT+1]}

Odgovor na temu

dejanalfa
Dejan Stojanovic
Nis

Član broj: 131180
Poruke: 36
*.adsl.beocity.net.

Profil

Re: na osnovu maticnog broja automatski upis datuma rodjenja

^{29.01.2007. u 16:40 - pre 209 meseci}

Hvala na odgovoru s tim sto moram da priznam da posedujem samo osnovno ynanje u accessu pa mi ni je bas najjasnije kako i koje podatke upisati u potrebnu celiju iy vaseg odgovora

Dejan Stojanovic

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: na osnovu maticnog broja automatski upis datuma rodjenja

^{29.01.2007. u 16:46 - pre 209 meseci}

Citat:

dejanalfa: Hvala na odgovoru s tim sto moram da priznam da posedujem samo osnovno ynanje u accessu pa mi ni je bas najjasnije kako i koje podatke upisati u potrebnu celiju iy vaseg odgovora

Izvinite, ali ni ja bas ne razumem sta mislite pod pojmom "celija" i gde u stvari imate problem: na VB 6.0 formi, u SQL upitu ili ... Molio bih Vas za preciznije objasnjenje problema, da bih mogli da Vam pruzimo adekvatnu pomoc (pod pruzimo ne mislim da "persiram" sebi, vec na sve ucesnike foruma).

Odgovor na temu

dejanalfa
Dejan Stojanovic
Nis

Član broj: 131180
Poruke: 36
*.adsl.beocity.net.

Profil

Re: na osnovu maticnog broja automatski upis datuma rodjenja

^{29.01.2007. u 17:06 - pre 209 meseci}

U accessu sam formirao bazu podataka preko koje unosim tekuce pacijente u jednoj zdravstvenoj ustanovi.Preko obrasca(forms)unosim podatke.U polju forme jmb ubacujem maticni broj gradjana.Da li je moguce da u drugom polju forme u kojem mehanicki unosim datum i godinu rodjenja napravim vezu koja ce mi omoguciti da samim unosom jmb u jednom polju dobijem datum rodjenja u drugom polju,koje ce biti sacuvano u tabeli

Dejan Stojanovic

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: na osnovu maticnog broja automatski upis datuma rodjenja

^{29.01.2007. u 17:12 - pre 209 meseci}

OK, sad razumem, Vi u Access-u radite i forme. Posto je ovo VB forum, a ja ne radim forme u Accessu vec u VB-u, potrazite pomoc od Access programera na Access forumu i uputite ih na ovaj topik, da bi mogli da Vam daju tacan kod koji bi mogli da iskoristite. Mada, mozda Vam neko i ovde pomogne, ja sam Vam napisao funkciju, treba samo neko da Vam pokaze kako da je primenite, a ja ne mogu.

Pozdrav!

Odgovor na temu