Søg
Avatar billede fuskeren Nybegynder
10. februar 2005 - 09:38 Der er 9 kommentarer og
1 løsning

Betinget åbning af MsgBox

Så er den gal igen. Jeg har to spørgsmål til eksperterne i eksterten. Vi tager spørgsmål 1 først:

I en form på min db er et felt "1Supplerende foto" hvor data kun kan være "ja" eller "nej". Hvis data er "ja" skal der ved klik på en knap åbne en form "FRMSupplerendeFotos" og hvis data er "nej" skal formen ikke åbnes, men der skal poppe en msgbox op med en meddelse "Der er ingen supplerende fotos".

Jeg har forsøgt mig med følgende kode, men får ingen respons, ikke engang en fejlmeddelse - så den er hvist hel gal.


Private Sub Kommandoknap85_Click()
Select Case [1Supplerende foto]
Case Is = "ja"
DoCmd.OpenForm "FRMSupplerendeFotos"
Forms![FRMSupplerendeFotos]!ID.SetFocus
DoCmd.FindRecord Me!ID
Case Is = "nej"
MsgBox "Der er ingen supplerende fotos"
End Select
End Sub
Avatar billede fuskeren Nybegynder
10. februar 2005 - 09:44 #1
Jeg glemte at sige at formen "FRMSupplerendeFotos" skal åbne på samme post (samme ID nummer) som posten på udgangsformularen.
Avatar billede terry Ekspert
10. februar 2005 - 09:54 #2
if 1Supplerende foto is a boolean (yes/no) then try replacing

Case Is = "ja"
with
Case -1
Case 0
Avatar billede Make IT Easy - Thomas Jepsen Praktikant
10. februar 2005 - 09:54 #3
Er du sikker på, at det er værdierne "ja" og "nej" og ikke true/false? Hvilken datatype har feltet i tabellen?
Hvis der står Ja/Nej i datatypen, skal koden se således ud:

Private Sub Kommandoknap85_Click()
Select Case Me![1Supplerende foto]
  Case True
    DoCmd.OpenForm "FRMSupplerendeFotos"
    Forms![FRMSupplerendeFotos]!ID.SetFocus
    DoCmd.FindRecord Me!ID
  Case False
    MsgBox "Der er ingen supplerende fotos"
End Select
End Sub
Avatar billede jkrons Professor
10. februar 2005 - 09:56 #4
Hvorfor overhovedet bruge Select Case, hvis der kun er to muligheder

If Me![1Supplerende foto] = "ja" Then
    Forms![FRMSupplerendeFotos]!ID.SetFocus
    DoCmd.FindRecord Me!ID
Else
    MsgBox "Der er igen supplerende fotos"
End If

Burde vel kunne gøre det.
Avatar billede terry Ekspert
10. februar 2005 - 09:56 #5
another idea is to enable/disable the button depening on the value of  [1Supplerende foto]


DoCmd.OpenForm "FRMSupplerendeFotos",,,"ID = " & Me.id
Avatar billede jkrons Professor
10. februar 2005 - 09:57 #6
Og så mangelde der selvefølge en linie:

If Me![1Supplerende foto] = "ja" Then
    DoCmd.OpenForm "FRMSupplerendeFotos"
    Forms![FRMSupplerendeFotos]!ID.SetFocus
    DoCmd.FindRecord Me!ID
Else
    MsgBox "Der er igen supplerende fotos"
End If
Avatar billede fuskeren Nybegynder
10. februar 2005 - 10:12 #7
Det virker nu !!!! I havde ret både Thomas og Terry feltet var et ja/nej felt og ikke tekst - utroligt at man kan stirre sig blind på så lidt, men 1000 tak skal i have. Jeg vil mene at point skal gå til Thomas da han gav en komplet løsning som virkede i første huk
Avatar billede Make IT Easy - Thomas Jepsen Praktikant
10. februar 2005 - 10:13 #8
Perfekt :o)

Og tak!

Terry har også alt for mange point i forvejen ;)
Avatar billede terry Ekspert
10. februar 2005 - 10:14 #9
and Thomas is dieing to get in first position :o)
Avatar billede fuskeren Nybegynder
10. februar 2005 - 10:18 #10
Beklager ikrons jeg så først dit svar efter jeg havde tildelt point, men din løsning var også god, håber andre kan få glæde af det.
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 dag 16:04 Canon printer vil ikke udskrive farver Af mort1 i Printere
I dag 14:50 Hvilket fabrikat af Mesh systemer virker? Af fkj i Wifi
I går 13:45 AJAX kode -javascript Af Asky i Programmeringsværktøjer
I går 11:50 Vælg indstilling - blå skærm med med flere muligheder for fejlretning Af Uvanga i Windows
14/0523:24 Google sheets beregning udfra dato Af rickiegrayholm i Office & Kontorpakker
White papers
Flere white papers »