On Error GoTo Err_Command61_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "detalji"
stLinkCriteria = "[clan_ID]=" & Me![clan_ID]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command61_Click:
Exit Sub
Err_Command61_Click:
MsgBox err.Description
Resume Exit_Command61_Click
DoCmd.Close
End Sub
Ova komanda se poziva iz jedne forme da bi otvorila drugu, i onaj zapis koji je trenutno aktivan na prvoj formi. Sve to radi lepo, ali je problem što ja u ovoj formi iz koje pozivam tu komandu, imam SVE članove, a u formi koju pozivam imam samo one koji su ostvarili rezultate.
Treba da dopišem nešto kao If Exist.... (ako postoji trazeni Clan_ID, onda otvori dokumenat, a ako ne postoji, onda poništi operaciju i izbaci grešku. Grešku mogu da napišem dole, na mestu MsgBox err.Description. Umesto err.Description, napišem šta ja hoću (pod navodnicima) i on to i izbaci kao poruku. To mi je jasno
Kako da preradim ovaj kod, jer će se desiti da pozovu člana koji ne postoji u formi Detalji, pa će dobiti prazan ekran i misliće da sam ja nešto zabrljao.
Ili još bolje, kako da napišem Code tako da ako nema tog člana u formi Detalji, da mi otvori drugu formu, koju ću napraviti za one članove koji nemaju rezultate i krstiću je, na primer, "detalji_".
Ajd' časom!
Boban (otac šestoro dece).