[ bobiris @ 16.07.2003. 00:33 ] @
Private Sub Command61_Click() 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! |