Alert box

på din knap's kode laver du følgende betingelse...

Public Sub btnUdskriv_Click()
  If MsgBox("Vil du virkelig udskrive hele tabellen?", vbQuestion+vbYesNo)=vbYes Then
    ' her kommer din eksisterende udskrivningskode
  End If
End Sub

Jeg har lige prøvet og der kommer ingen box frem.

min kode til knappen ser sådan ud:

Private Sub Kommandoknap22_Click()
On Error GoTo Err_Kommandoknap22_Click

    Dim stDocName As String

    stDocName = "Jobkontakter"
    DoCmd.OpenReport stDocName, acNormal

Exit_Kommandoknap22_Click:
    Exit Sub

Err_Kommandoknap22_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap22_Click
   
End Sub

Hmm jeg går ud fra at det er til webbrug, hvis ikke så ignorer min kommentar:

<script>
function Bekraeft(){
  if(confirm("Dette indhold er ret omfattende\Er du sikker på at du vil udprinte?"));
}
</script>

<a href="#" onclick="Bekraeft()">link</a>

Private Sub Kommandoknap22_Click()
  On Error GoTo Err_Kommandoknap22_Click
  If MsgBox("Vil du virkelig udskrive hele tabellen?", vbQuestion+vbYesNo)=vbYes Then
    Dim stDocName As String
    stDocName = "Jobkontakter"
    DoCmd.OpenReport stDocName, acNormal
  End If
Exit_Kommandoknap22_Click:
  Exit Sub
Err_Kommandoknap22_Click:
  MsgBox Err.Description
  Resume Exit_Kommandoknap22_Click
End Sub

Perfekt, det virker....Tak