what is wrong ?

[dino]

Private Sub Type_AfterUpdate()
Dim strSQL As String
Select Case Me.Type
    Case 1
    strSQL = "select id,functie,regulier from tblfuncties"
    
    Case 2
    strSQL = "select id,functie,evenement from tblfuncties"
    
    Case Else
    End Select
         Me!SubProject_Invullen!Me.txtFunctie
        .RowSource = strSQL
    .ColumnHeads = True
    .Requery
    End With
End Sub

[orange]

Seems you are missing a WITH

see this for Select case syntax and example

see this for use of With ...End With

[ranman256]

End Select
with somthing

[CJ_London]

what is the error generated? That must be telling you something. In addition to the missing 'with' and missing 'end select' you are referring to me.type. Type is a reserved word and using it may (or may not) be causing issues

[dino]

With Me!SubProject_Invullen!Me.txtFunctie

dont cane find vield me.

[CJ_London]

try

Me.SubProject_Invullen.form.txtFunctie

[dino]

and now i cat this
.RowSource = strSQL
yelow

[June7]

Maybe:

Private Sub Type_AfterUpdate()
Dim strSQL As String
Select Case Me.Type
    Case 1
       strSQL = "select id,functie,regulier from tblfuncties"
    Case 2
       strSQL = "select id,functie,evenement from tblfuncties"
    Case Else
End Select
With Me.SubProject_Invullen.Form.txtFunctie
    .RowSource = strSQL
    .ColumnHeads = True
    .Requery
End With
End Sub

txtFunctie is a combobox or listbox?

[orange]

dino,

What is this suppose to mean??? Hopefully it isn't meant to be English.
If English is not your mother tongue, then write the post/question/comment in your own language and use Google translate to put it in English.

and now i cat this
.RowSource = strSQL
yelow

[dino]

And now I get this
some mistake
but this rule are yellow ,rowsource=strSQL

[June7]

If you want to provide db for analysis, follow instructions at bottom of my post.

[orange]

How about posting a copy of your database as June suggested --remove anything confidential/private - then compact and repair - then zip.

Readers do NOT need all your data. Just enough data to highlight the issue and help readers with context.

[dino]

the form i use combobox me.type (regelier/evenement) when i choose Regulier and Functie then the uurloon must by Regulier els Evenement.
tabel

[June7]

Not enough English for me. What is "els"?

What are regelier, evenement - fields? Regulier and Functie are data?

[dino]

I hope thisclear some problems