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