Hvala svima na odgovore, jer ipak se svi mi ucimo na greskama. Sta da kazem, pocetnik sam i svaka pomoc mnogo znaci.
Zidar, nemam razloga da se ljutim jer rekao si dizajn ne valja, uradi drugacije. Tako sam i uradio i nadam se da je bolje.
Tabi, vrlo lepo si zamislila to sa datumima i izgleda ok.
Ovaj projekat radim za firmu od prijateljice, jer hoce da bude extra jednostavno i sve da se zavrsi na jednoj formi, sto mi moram priznati tesko pada. Ali malo po malo pa ce da se napravi neka mala baza.
E ovako, uspeo sam da napravim da mi stavke izgledaju kao na onoj aplikacija sa interneta.
Medjutim sad imam drugi problem, a tice se VBA koda.
Hteo bi da napravim da kada god dodam novi izvestaj za pacijenta da mi automatski napise, "pacijent do sada ima 3 izvestaja"(ili uopste kolko ih je do tada imao). To sam takodje video u bazi koju sam ovde okacio.
Ja sam to pokusao da ubacim u moju bazu, ali mi izbacuje error(slika 1).
Ovo je originalan kod iz baze sa interneta:
Code:
Private Sub Form_Current()
'Provide a count of total job outcomes and place in lblJobOutcomeTotal on subform
'Hide this label if no data present
If DCount("[strStudentNumber]", "[tblJobOutcomes]", "[strStudentNumber]=" & "'" & [strStudentNumber] & "'") <> 0 Then
Me.test.Visible = True
Me.test.Caption = "Pacijent je imao " & _
DCount("[strStudentNumber]", "[tblJobOutcomes]", "[strStudentNumber]=" & _
"'" & [strStudentNumber] & "'") & " pregled(a)."
Else
Me.test.Visible = False
End If
End Sub
A ja sam taj kod preradio kao ovaj i dobijam taj problem missmatch. Samo da napomenem da Label8 predstavlja tekst na subformi "Pacijent je imao () pregleda
Code:
Private Sub Form_Current()
If DCount("[PacijentiID]", "[Izvestaj]", "[PacijentiID]=" & "'" & [PacijentiID] & "'") <> 0 Then
Me.Label8.Visible = True
Me.Label8.Caption = "Pacijent je dosada imao " & _
DCount("[PacijentiID]", "[Izvestaj]", "[PacijentiID]=" & _
"'" & [PacijentiID] & "'") & " pregled(a)."
Else
Me.Label8.Visible = False
End If
End Sub
Evo kacim moju aktuelnu bazu i taj problem sa kodom.
Mnogo bi mi znacilo ako bi ovo uspeo da resim, jer bi samim tim bazu skoro priveo kraju.
pozdrav