Avatar billede rashid Praktikant
15. december 2005 - 14:42 Der er 11 kommentarer og
1 løsning

if then problem

hvad gør jeg forkert her:

Private Sub Vis_rapport_Click()

    Dim stDocName As String
   
        If Me.Vurderingstype = "samlytning" Then
            stDocName = "samlytning"
            DoCmd.OpenReport stDocName, acPreview
        ElseIf Me.Vurderingstype = "faglig_kompetance" Then
            stDocName = "faglig_kompetance"
            DoCmd.OpenReport stDocName, acPreview
        ElseIf Me.Vurderingstype = "beredskab_t-service" Then
            stDocName = "beredskab_t-service"
            DoCmd.OpenReport stDocName, acPreview
        End If
           
End Sub

ville gerne have min knap i access til at åbne en rapport afhængig af feltet vurderingstype.
Avatar billede mugs Novice
15. december 2005 - 15:57 #1
Select Case "Vurderingstype"
Case is = "Samlytning"
DoCmd.OpenReport "faglig kompetance", acViewPreview
Case is = "beredskab_t-service"
DoCmd.OpenReport "beredskab_t-service", acViewPreview
End Select
Avatar billede rashid Praktikant
16. december 2005 - 14:21 #2
hej Mugs - har du mulighed for at lave et eksempel ?
hvis ja må du gerne sende det til farooq@hwarang.dk
Avatar billede mugs Novice
16. december 2005 - 15:40 #3
Senere - Jeg har lige et par ærinder.
Avatar billede fdata Forsker
19. december 2005 - 00:24 #4
Hvorfor ikke bare bruge
  DoCmd.OpenReport Me.Vurderingstype, acPreview

Hvis navnene ikke altid passer sammen, så brug en Case som mugs foreslår

Select Case Me.Vurderingstype
  Case "samlytning"
    stDocName = "samlytning"
  Case "beredskab_t-service"
    stDocName = "beredskab_t-service"
End Select
DoCmd.OpenReport stDocName, acPreview
Avatar billede mugs Novice
19. december 2005 - 07:12 #5
Jeg har da vist glemt det eksempel - Men nu er det i hvert fald sendt.
Avatar billede rashid Praktikant
22. december 2005 - 14:44 #6
hej Mugs - Tak for hjælpen (igen)
Jeg benyttede dette:
Private Sub Vis_rapport_Click()

Select Case Me!omraadetype
  Case ""
    MsgBox "Der er ikke valgt et område, vælg en Vælg et område" & "" & vbNewLine & "" & "og klik på Opret igen", vbCritical, "Opret område"
    Me.omraadetype.SetFocus

  Case "1"
    DoCmd.OpenReport "beredskab_t-service", acViewPreview

  Case "2"
    DoCmd.OpenReport "samlytning", acViewPreview
  Case "3"
    DoCmd.OpenReport "faglig_kompetance", acViewPreview

End Select
   
End Sub
Avatar billede mugs Novice
22. december 2005 - 15:25 #7
Tak for point.
Avatar billede rashid Praktikant
12. januar 2006 - 11:15 #8
hej mugs
er der mulighed for at "grå'e" et tekstfelt ud så det er skrivebeskyttet - afhængig af en værdi i et andet felt?
Avatar billede mugs Novice
12. januar 2006 - 12:04 #9
Så kan du bruge enten Locked eller Activatet afhængig af, om markøren skal kunne "lande" i feltet:

If Me!felt1 >= 5 then
Me!felt2.locked = True
Me!felt2.Activated = True
end if
Avatar billede rashid Praktikant
12. januar 2006 - 21:14 #10
Tak for hjælpen mugs.
hvis du vil have points kan jeg lave et nyt sp ??
Avatar billede mugs Novice
13. januar 2006 - 10:19 #11
Nej - Ingen point.
Avatar billede rashid Praktikant
13. januar 2006 - 11:33 #12
thnx :-) (som altid)
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
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

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.

Du kan også logge ind via nedenstående tjenester