Kombinationsbokse - opdatering

If Me.NewRecord Then
Me.Combo = et eller andet
End If

Indsættes i formularens VedAktuel (OnCurrent) hændelse

Not quite sure what you are saying here! What are you expecting to see in the combo box if it is unbound? If you want it to show an empty field then try changing it to a BOUND field an dit will do it for you. What is the purpose of having a combo where you can choose values from if they are not to be used in the record but STILL show what you have chosen?

If you want it to be blank on new record then
Me.Combo = Null
may do the trick

Min combobox bruges som kriterie i et af mine bundne felter på min formular, derfor skal den starte på en frisk hver gang jeg skal tilføje en ny post. Jeg har prøvet nedenstående (Ny post knap), dog uden held da kommer en fejlmeddelelse som siger at Table variabel ikke er erklæret.



Private Sub Kommandoknap67_Click()
On Error GoTo Err_Kommandoknap67_Click

Me.Hovedgruppevalg.RowSourceType = Table / Query
Me.Hovedgruppevalg.RowSource = "SELECT DISTINCT [Hoved_Undergruppe].[Hovedgruppe] FROM Hoved_Undergruppe;"
Me.Hovedgruppevalg.DefaultValue = "Vælg"
   
   
    DoCmd.GoToRecord , , acNewRec


Exit_Kommandoknap67_Click:
    Exit Sub

Err_Kommandoknap67_Click:
    MsgBox "Et eller flere felter mangler at blive udfyldt"
    Resume Exit_Kommandoknap67_Click
   
End Sub


Cuac

still do noy know what your trying to do "derfor skal den starte på en frisk hver gang jeg skal tilføje en ny post"

THIS isnt going to change anything!
Me.Hovedgruppevalg.RowSource = "SELECT DISTINCT [Hoved_Undergruppe].[Hovedgruppe] FROM Hoved_Undergruppe;"
It only selects the same record as before.

Do you have a table named Hoved_Undergruppe ???

Me.Hovedgruppevalg.requery should refresh the contents but if the Rowsource has not changed then it will not help things

Ja, jeg ved godt hvad jeg vil. Når jeg skal oprette en ny post skal min komboboks se ud som når jeg indlæser formularen første gang - og ikke stå på den værdi som blev valgt ved forrige post.

cuac

cuac>you dont say ANYTHING you havent said before!

You say that the combo box is UNBOUND and if that is the case then the combo box DOES NOT change when you move to another record OT a new record for that matter. So yes, you may know what your trying to do but without some more information we, or at least I do not!

You can send the dB to eksperten@santhell.dk and I will take a look, otherwise I think we could be here a LOoong time, and I dont have that long :o)

OT = OR

Jeg lukker spørgsmålet her. Tak for indsatsen terry :o).

MVH
cuac

have you sent me your dB?

Terry, den er på vej!

cuac

Sent return :o)

Code changed in
Private Sub Hovedgruppevalg_AfterUpdate()

If Len(Me.Hovedgruppevalg) = 0 Or Me.Hovedgruppevalg = "Vælg" Then
'Default   
    Me!Undergruppevalg.RowSource = "SELECT DISTINCTROW [Hoved_Undergruppe].[Undergruppe] " _
          & "FROM Hoved_Undergruppe " _
          & "WHERE [Hoved_Undergruppe].[Hovedgruppe] Like 'Akustik';"
Else
'Value chosen from list, so change rowsource of other combo
    Me!Undergruppevalg.RowSource = "SELECT DISTINCTROW Hoved_Undergruppe.Undergruppe " _
        & "FROM Hoved_Undergruppe " _
        & "WHERE Hoved_Undergruppe.Hovedgruppe Like '" & Me!Hovedgruppevalg.Text & "';"

code added to new record button
  Me.Hovedgruppevalg = "Vælg"
    Me.Undergruppevalg = "Vælg"
   
    Hovedgruppevalg_AfterUpdate
   

End If

End Sub

Thanks terry! Det virker bare perfekt - point til dig.

MVH
cuac

thanks to you too. We got there in the end :o)