Søg
Avatar billede avalon116 Nybegynder
07. august 2003 - 08:47 Der er 7 kommentarer og
1 løsning

ved cancel i inputboks

Jeg har en rapport, der ved åbning via en inputbox spørger brugeren om en dato. Jeg vil gerne have, at hvis brugeren trykker "cancel", skal rapporten alligevel ikke åbne.

Jeg har tidligere anvendt en sætning i stil med:
        If Dato = "" Then
        DoCmd.CancelEvent
men da var der tale om et input af typen "string" og det fungerede fint. Men jeg kan dog ikke få det til at fungere med datatypen "date".

Nogen forslag?
Avatar billede henrik13 Nybegynder
07. august 2003 - 08:54 #1
If Dato = "" Then
Msgbox "der er data"
Else
Resume next
Avatar billede henrik13 Nybegynder
07. august 2003 - 08:58 #2
Du må i knappen cancel også kunne indsætte:
Docmd.close
Der så lukker handlingen.
Vh Henrik
Avatar billede avalon116 Nybegynder
07. august 2003 - 08:59 #3
hvordan kan man tildele handlinger til knappen "Cancel" i en inputbox?
Avatar billede henrik13 Nybegynder
07. august 2003 - 08:59 #4
Hej.
Du må i knappen cancel også kunne indsætte:
On Error Resume Next
Avatar billede avalon116 Nybegynder
07. august 2003 - 09:05 #5
jeg har selv fundet en løsning:

  Dim D As String
  Dim Dato As Date
   
      D = InputBox("Fra dato:", "Indtast startdato i formatet: dd-mm-åååå")
      If D = "" Then
        DoCmd.CancelEvent
      Else
        Dato = FD
      End If

det løser problemet
Avatar billede henrik13 Nybegynder
07. august 2003 - 09:06 #6
Fra hukommelsen, ikke afprøvet.
vbOKCancel så går den til else sætningen.
Avatar billede avalon116 Nybegynder
07. august 2003 - 09:06 #7
hov:

  Dim D As String
  Dim Dato As Date
   
      D = InputBox("Fra dato:", "Indtast startdato i formatet: dd-mm-åååå")
      If D = "" Then
        DoCmd.CancelEvent
      Else
        Dato = D
      End If

sådan
Avatar billede avalon116 Nybegynder
07. august 2003 - 13:13 #8
.
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Access kurser
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser
Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel Indlæg Oprettet Seneste aktivitet
en word dotx fil stilles om til at blive gemt i skyen Af per2edb i Access 9 16/04/202620:11 21/04/202615:43
AI integreret i Access Af per2edb i Access 3 06/04/202610:42 06/04/202612:58
Autonummerering Af hlnviv i Access 2 06/03/202606:24 06/03/202607:48
stigende sortering på et Link felt Af hlnviv i Access 6 03/03/202613:18 04/03/202608:09
Access database udskriver ikke rammer korrekt Af Uvanga i Access 8 18/11/202500:24 18/11/202510:25
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 13:35 Bruger på Win11 Af lurup i Browsere
07/1022:52 Google beskeder har/havde en bug, så den sendte tilfældige gamle beskeder gemt indeni nye beskeder efter skifte til ny Samsungtelefon via Samsung Smart Switch Af KennethLykke i Apps til Android
05/1010:31 Min IPAD vil ikke oplade. Af Nørdnot i Mac
04/1018:04 Findes der et "Papir-kurv" symbol, man kan sætte på Firefox og Google Chrome ? (For oven) Af Ikke-ekspert i Browsere
03/1012:14 Ang udskrift Canon mb5050 Af made18 i Printere
White papers
Flere white papers »