Select Case "Vurderingstype" Case is = "Samlytning" DoCmd.OpenReport "faglig kompetance", acViewPreview Case is = "beredskab_t-service" DoCmd.OpenReport "beredskab_t-service", acViewPreview End Select
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
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
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.