Predmet:Re: Otvaranje više web strana jednim klikom-pomoć

---

Evo koda koji pokušavam da sredim

Private Sub Adresa_AfterUpdate()
If Len(Me.Adresa) = 0 Then
Exit Sub
Else
Me.PozivWeb.SetFocus
End If
End Sub

Private Sub PozivWeb_Click()

If Len(Me.Adresa) = 0 Then Exit Sub

If IsConnectedToInternet = True Then
Else
Beep
DoCmd.Close acForm, Me.Form.Name, acSaveYes
MsgBox "Internet veza je u prekidu", vbCritical, "Upozorenje!"
Exit Sub
End If
wbbWebsite.Navigate URL:=Me.Link

End Sub