HASTER! Valg af option-button bestemmer valg af formular HASTER!

Jeg har afsat 30 point. Ved ikke hvorfor der står 0? Afgiv et svar, og jeg kan sætte pointene til 30.

Mvh Steen

... når jeg markerer én af alternativ-knapperne og trykker på en cmd-button, skal den formular, som alternativ-knappen refererer til, åbnes. Hvordan gør jeg det? Jeg genererer en hændelses-procedure med if - else - then?

Hver af knapperne hvar en ved klik hændelse.

Hvis du lægger en openform sætning ind her vil den bliver kørt

Den må du uddybe lidt? Jeg vælger en alternativknap og trykker på en kommandoknap, så den kalder formularen. Det er ønsket :o)

/Steen

Jeg har ikke prøvet det, men en knap har en ved klik hændelse. Den funktion eller makro der bliver skrevet ind her vil blive afviklet hver gang du klikker (vælger knappen) ligesom en alm. komandoknap.

Hvis dette ikke er nok kan du blot skrive igen. Du kan også sende database til Access@edb.dk så skal jeg kikke på det

Der skal ikke udvikles en klik-hændelse, når man trykker på alternativ-knappen. Man skal markere alternativ-knappen og derefter trykke på kommandoknappen for at hente den valgte formular, som er tilknyttet alternativ-knappen.

Okay det må du undskylde.

Men så skal du lave den i en gruppeboks. Herefter vil gruppeboksen have en værdi som du kan bruge i f.eks. en select case sætning.

Select Case gb (gruppenboksen). Jeg kan ikke huske om den starter ved 0 eller 1


Case 1
Docmd.openform \"Navn\"
case 2
Docmd.openform \"Navn\"
Select


gb som jeg har kaldt gruppeboksen vil have forskelig værdi efter hvilken knap der er valgt.

Ok, det skal vel stå som en hændelsesprocedure for kommando-knappen?

Dette er hvad jeg har stående nu:

Option Compare Database

Private Sub AabnFormularSamarbejspartner_Click()
On Error GoTo Err_AabnFormularSamarbejspartner_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"Samarbejdspartnere\"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_AabnFormularSamarbejspartner_Click:
    Exit Sub

Err_AabnFormularSamarbejspartner_Click:
    MsgBox Err.Description
    Resume Exit_AabnFormularSamarbejspartner_Click
   
End Sub

Private Sub Alternativknap36_GotFocus()

End Sub

Private Sub AabnFormular_Click()
On Error GoTo Err_AabnFormular_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"Samarbejdspartnere\"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_AabnFormular_Click:
    Exit Sub

Err_AabnFormular_Click:
    MsgBox Err.Description
    Resume Exit_AabnFormular_Click
   
End Sub

Private Sub HentFormular_Click()

End Sub

Ja du skal lige have en select case sætning med hvor du sætte StDocName til de forskellige formulare efter værdien i gruppen boksen

?

De option-buttons du har skal du sætte ind i en gruppeboks.

Så må du skulle have en knap der åner formularen. Der skal du så have en select Case sætning der sætter værdi af StDocname til den formular der skal åbnes.

Hvis der er lettere, må du gerne ringe til mig. Så kan vi snakke om det. 97912845

Option Compare Database

Private Sub AabnFormular_Click()
On Error GoTo Err_AabnFormular_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"Samarbejdspartnere\"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_AabnFormular_Click:
    Exit Sub

Err_AabnFormular_Click:
    MsgBox Err.Description
    Resume Exit_AabnFormular_Click
   
End Sub

Option Compare Database

Private Sub AabnFormular_Click()
On Error GoTo Err_AabnFormular_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"Samarbejdspartnere\"
        Select Case gbSamarbejdspartnere
            Case 1
                DoCmd.OpenForm \"Samarbejdspartnere_Chart\"
            Case 2
                DoCmd.OpenForm \"Samarbejdspartnere_CyberCity\"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_AabnFormular_Click:
    Exit Sub

Err_AabnFormular_Click:
    MsgBox Err.Description
    Resume Exit_AabnFormular_Click
   
End Sub

Option Compare Database

Private Sub AabnFormular_Click()
On Error GoTo Err_AabnFormular_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"Samarbejdspartnere\"
        Select Case gbSamarbejdspartnere
            Case 1
                DoCmd.OpenForm \"Samarbejdspartnere_Chart\"
            Case 2
                DoCmd.OpenForm \"Samarbejdspartnere_CyberCity\"
        End Select
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_AabnFormular_Click:
    Exit Sub

Err_AabnFormular_Click:
    MsgBox Err.Description
    Resume Exit_AabnFormular_Click
   
End Sub

Option Compare Database

Private Sub AabnFormular_Click()
On Error GoTo Err_AabnFormular_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

        stDocName = \"Samarbejdspartnere\"
            Case 1
               
        stDocName = \"Samarbejdspartnere\"
            Case 2
               
        stDocName = \"...\"
        End Select
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_AabnFormular_Click:
    Exit Sub

Err_AabnFormular_Click:
    MsgBox Err.Description
    Resume Exit_AabnFormular_Click
   
End Sub

Option Compare Database

Private Sub AabnFormular_Click()
On Error GoTo Err_AabnFormular_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"Samarbejdspartnere\"
        Select Case gbSamarbejdspartnere
           
            stDocName = \"Samarbejdspartnere_Chart\"
                Case1
            stDocName = \"Samarbejdspartnere_CyberCity\"
                Case 2
        End Select
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_AabnFormular_Click:
    Exit Sub

Err_AabnFormular_Click:
    MsgBox Err.Description
    Resume Exit_AabnFormular_Click
   
End Sub

Private Sub AabnFormular_Click()
On Error GoTo Err_AabnFormular_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"Samarbejdspartnere\"
        Select Case gbSamarbejdspartnere
            Case1
                stDocName = \"Samarbejdspartnere_Chart\"
            Case 2
                stDocName = \"Samarbejdspartnere_CyberCity\"
        End Select
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_AabnFormular_Click:
    Exit Sub

Err_AabnFormular_Click:
    MsgBox Err.Description
    Resume Exit_AabnFormular_Click
   
End Sub

Compile error:

Statements and labels invalid between Select Case and first Case

Private Sub AabnFormular_Click()
On Error GoTo Err_AabnFormular_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

        Select Case gbSamarbejdspartnere
            Case1
                stDocName = \"Samarbejdspartnere_Chart\"
            Case 2
                stDocName = \"Samarbejdspartnere_CyberCity\"
        End Select
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_AabnFormular_Click:
    Exit Sub

Err_AabnFormular_Click:
    MsgBox Err.Description
    Resume Exit_AabnFormular_Click
   
End Sub

Det virker, Jan! Tak for hjælpen og fortsat god weekend :o)