Men hvis man indtaster 0 eller trykker på anuller, kommer en access standard fejl + resten af databasen (desginvisning os.v). Men jeg vil gerne have at den ikke viser fejlen, men derimod en egen fejlmeddelse.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Fejlmeddelsen ændre sig, men den kommer jo ikke med switchboardet. Selve side som viser tabler, formular, makroer o.ling. vises og fejlmeddelsen kommer derfra... Den skal den ikke
On Error GoTo Errorhandler b = InputBox("Antal kopier af listen", "Print-info", "1") Dim stDocName As String Dim MyForm As Form stDocName = "VisListe" Set MyForm = Screen.ActiveForm DoCmd.SelectObject acReport, stDocName, True DoCmd.PrintOut , , , , b DoCmd.SelectObject acForm, MyForm.Name, False Errorhandler: If b < 1 Then MsgBox "Du skal indtaste antal kopier." Exit Sub End If
Jeg kna ikke huske syntaksen hvis du Annullerer. Har ikke Access på denne maskine, men vender tilbage hvis ikke du har fået svar.
Jeg har lige afprøvet en inputbox, og der kommer ikke fejl, hvis jeg annulerer.
En helt anden ting er, at hvis du taster 0 eller en tom box, så kommer der jo ingen data til rapporten. Så det ville være en oplagt mulighed, at lave en hændelsesprocedüre i rapportens VedIngenData event. Prøv f.eks:
MsgBox "Der er ikke modtaget data." & vbNewLine & "Der er ikke indtastet antal kopier."
Den linie der hedder MsgBox Err.Description, skal ændres til linien nedenunder. Her kan du ændre teksten til det du måtte synes. Hvis du fisker efter at lave flere forskellige meddelelser alt afhængigt af hvordan fejlen er, kan dette også gøres. Jeg kan dog ikke huske syntaksen. Det er noget med at du finder fejlkoden, og laver en msgbox derefter...
Hvis man vælger at annulere kommer der en msgbox frem med den predeffinerede tekst:
Err_Cmd_backup_Click: ' MsgBox Err.Description
MsgBox "Det var satans... Hvad har du dog lavet siden sidst? :)" Resume Exit_Cmd_backup_Click
Flere forskellige meddelelser i tilfælde af error kan laves således:
If err.Number = 1234 Then Msg "Fejlen rettes ved at..." If err.Number = 1235 Then MsgBox "Og så en anden tekst.." End If End If
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
