Bekreftelse av handling

Du kan ikke lave det med en makro. I VBA kan det se således ud:

If MsgBox ("dette er en prøve", Title:="titlen", Buttons:=vbYesNo = Yes then
Me.undo
Exit Sub
End if

Hmmm

Jeg ønsker å bruke dette i forbindelse med en faktura bekreftelse. Når man trykker på knappen "fakturer", så skal denne komme opp. Trykker jeg avbryt faktureres den ikke, og handlingen avbrytes, trykker jeg ja, så skal den faktureres.

Denne faktureringsprosessen er kjørt med en makro som heter "sett faktura". Man kan derfor si at det er makroen jeg ønsker å kontrolere.

Jeg forsøkte å bruke den du har på en handling, men fikke en lang rød string i VBA editoren !!

I første linie i makroen kan du lægge en betingelse:
  MsgBox("Gennemfør fakturering?"; 36; "Er du sikker?")=7
som tester, om brugeren trykker på Ja

I samme linie lægger du handlingen
  StopMakro

Det burde vel fungere?

Skal denne legges inn som en betingelse ?? Jeg forsøker å legge den inn som det, men da får jeg feilmelding.

saxe og fdata: Jeg har taget fejl, og den kan laves med en makro. fdata's forslag er afprøvet og fungerer perfekt. Omend jeg foretrækker at konvertere den til VBA:

Function Makro1()
On Error GoTo Makro1_Err
If (MsgBox("Gennemfør fakturering?", 36, "Er du sikker?") = 7) Then
Exit Function
End If
If (MsgBox("Hej")) Then
End If
Makro1_Exit:
Exit Function
Makro1_Err:
MsgBox Error$
Resume Makro1_Exit
End Function

saxe > Hvis du lægger din e-mail kan jeg sende din min testdb.

Før dine faktureringslinier indsætter du en ny linie. Vær sikker på, at du kan se kolonnen Betingelse (klik på knappen til højre for XYZ knappen).
I betingelse skriver du:
  MsgBox("Gennemfør fakturering?"; 36; "Er du sikker?")=7
og i handling skriver du:
  StopMakro
Det kan jo være, at det ikke hedder helt det samme på norsk; men det er nok ikke 100 km. galt  ;o)

Dette fungerer nå kjempefint...!! Takk !!

Super. Tak for point