[VB] DataComboBox Refreshen hoe?

[Verwijderd]

Ik heb een antal dingen geprobeerd om een DataComboBox te refreshen maar geen van deze werkt. Iemand hier ervaring mee?

Ik heb de volgende dingen geprobeerd:

code:

    Set DataCombo1.DataSource = DataEnvironment1
    DataCombo1.ReFill
    DataCombo1.Refresh

[whoami]

De query die eraanhangt sluiten en weer openen.

[Paxlie]

code:

    DoCmd.Requery "comboboxnaam"
    User.value = [Comboboxnaam].[ItemData]("0")

bij die comboboxnaam ff de juiste naam invullen en dan zet ie na het event waar het moet gebeuren weer nieuwe data in de combobox
Kan ook met andere dingen overigens. Listbox of iets dergelijks. Enniewees, je moet ff requery-en en dan doet ie het

[Verwijderd]

He pax,

Kun je mij precies vertellen wat je nou aan het doen bent?

Of weet iemand anders hoe het ook anders kan?

En is er niet gewoon een functie voor het refreshen van een datacombo?

VB is wel lelijk ben ik achter gekomen.

[Paxlie]

wat ik heb is dit:
wordt aangeroepen bij een onclick_event:

code:

Private Sub VoegToe_Click()
If [Forms]![Admin]![pass] = [Forms]![Admin]![pass2] Then
    DoCmd.RunSQL "INSERT INTO Adminlogin (Persoonsnaam, Passwoord) VALUES " _
    & "([Forms]![Admin]![newuser], [Forms]![Admin]![pass])"
    DoCmd.Requery "User"
    User.value = [User].[ItemData]("0")
    DoCmd.Requery "Thapass"
    Thapass.value = [Thapass].[ItemData]("0")
    DoCmd.Requery "DelUser"
    DelUser.value = [DelUser].[ItemData]("0")
Else
    MsgBox "De passwoorden voor de nieuwe user zijn niet gelijk, probeer het opnieuw"
End If
End Sub

Ik kijk dus of waarde gelijk is aan andere
en dan refresh ik een paar velden. In de combobox user
staat trouwens dat de rowsource is de persoonsnaam uit admin. Oftewel: hij roept gewoon de namen op die daarin staan. en dat updeet ie ook weer met behulp van die requery.
Als je het nu nog niet snapt, dan leg ik het echt wazig uit.