Ja sam dobijao istu gresku kao Biske, ali nisam hteo da kvarim raspolozenje. Posto ne razumem kako cela stvar radi, nisma ni pokusao da poravim problem, ali sam, izgleda, uspeo sam da udarim zakrpu. Ovaj problem je verovatno minoran, ni u kom slucaju ne baca senku na osnovno resenje.
Vole bih da razumem sta se u stvari desava i gde je i kako primenjeno ono sto je dao @zoks. Ako bi Zoran hteo da nam pojasni sta je uradjeno i zasto, bila bi to veelika stvar. Unapred hvala.
Zakrpa:
Na formi "ProveraStatusaKodNBS" postoji procedura
Private Sub ProcesPIB(). Tu sam dodao error handling gde gresku 91 jednostavno ignorisem. I Izbacio sam automatsko zatvaranje forme, koje se desava usled greske 91. I izgleda da radi.
Ponovo, nisam ispravio gresku, to moze samo Zoran da uradi. Ja sam je samo ignorisao i sakrio poruku od korisnika. U ovom slucaju cela stvar se isplatila, jer program posle toga radi. Evo zakrplenog koda:
Code:
Private Sub ProcesPIB()
Dim hd As IHTMLDocument2, he As IHTMLElement
Dim klBroj As Integer, klDatum As Date, dtMax As Date, bMax As Long, bCur As Long
Dim s As Byte
'Ako se doda error handling, moze se izbeci greska 91
On Error GoTo ProcesPIB_Error
Set hd = Me.WebBrowser0.Document
For Each he In hd.all
If InStr(he.innerText, "Ne postoji") Then
s = 0
Exit For
ElseIf InStr(he.innerText, "u platni promet") Then
s = 1
ElseIf InStr(he.innerText, "blokiran po osnovu") Then
s = 2
Exit For
ElseIf InStr(he.innerText, "blokirana ") Then
s = 3
Exit For
End If
Next
Forms![Partner]![StatusPrometaID] = s
'Zidar je iskljucio ovo:
' DoCmd.Close acForm, "ProveraStatusaKodNBS"
Exit_Here:
On Error Resume Next
Exit Sub
ProcesPIB_Error:
Select Case Err.Number
Case 91
'do nothing
Case Else
MsgBox "Error " & Err.Number _
& vbCrLf & " " & Err.Description _
& vbCrLf & " in procedure ProcesPIB of VBA Document Form_ProveraStatusaKodNBS"
End Select
Resume Exit_Here
End Sub