U kodu si deklarisao ulazni argument kao string
Code:
Dim bi As String
bi = InputBox("Unesite smer : Fudbal ili Menadzer", "provera smera", 0)
If IsNull(DLookup("Smer", "QueryStudentiSmerGeneracija", "Smer = '" & bi & "'")) Then
....
posle promene da ulazni argument bi bude tipa long, procedura radi.
Code:
Dim bi As Long
bi = InputBox("Unesite šifru kluba", "provera šifre", 0)
If IsNull(DLookup("Sifrakluba", "QryAnalitickaKlub", "Sifrakluba = " & bi)) Then
....
Isto vredi za sve procedure gde se šifra kluba koristi u uslovu za otvaranje izveštaja ili forme. Treba promeniti deklaraciju u skladu sa promenom tipa podatka u tabeli.