Opdatering af poster i en formular

I din forms GotFocus event skriver du

  docmd.requery \"NavnPåFelt\"

Det virker næsten. Det ser ud til at mit problem er, at den pop-up formular jeg får frem kommer på baggrund af en makro der aktiveres ved hændelsen \"Ikke på liste\" i feltet. Denne hændelse udføres før hændelsen \"GotFocus\". Kan du hjælpe med det?

Hi tville!
As you can see from the following example, it simportant that response gets set correctly.
In thhe example I check to make sure that I actually added the record.

Private Sub Your_NotInList(NewData As String, response As Integer)
    Dim strMsg As String
   
    strMsg = \"The item isn\'t in the list. \" & vbCrLf
    strMsg = strMsg + \"Do you want to add it?\" & vbCrLf
           
    response = msgBox(strMsg, vbYesNo + vbQuestion, \"Not in list ...\")
   
    If response = vbYes Then
        DoCmd.OpenForm _
        FormName:=\"YourAddForm\", _
        DataMode:=acFormAdd, _
        WindowMode:=acDialog, _
        OpenArgs:=NewData
       

        If IsNull(DLookup(\"Leverandørnavn\", \"Tableleverandør\", \"Leverandørnavn=\'\" & NewData & \"\'\")) Then
            response = acDataErrContinue
        Else
            response = acDataErrAdded
        End If
        Exit Sub
    End If
    response = acDataErrContinue

End Sub

If response = acDataErrAdded then Access refreshes the combo so no need to docmd.requery in the gotfocus event.

Det virker ikke helt endnu. Jeg får en fejl i dlookup der siger:
Run-time error \'2471\':
Udtrykket, du har indtastet som en forespørgslesparameter, gav fejlen Obejektet indeholder ikke automation-objektet \"(det navn jeg har indtastet i levnavn\")

Koden:
Private Sub lev_id_NotInList(NewData As String, Response As Integer)
    Dim strmsg As String
       
    strmsg = \"Leverandøren er ikke på listen. \" & vbCrLf
    strmsg = strmsg + \"Ønsker du at oprette leverandøren?\" & vbCrLf
   
    Response = MsgBox(strmsg, vbYesNo + vbQuestion, \"Ikke på listen\")
       
    If Response = vbYes Then
        DoCmd.OpenForm \"leverandør_popup\", acNormal, , , acFormAdd, acDialog, NewData
        If IsNull(DLookup(\"levnavn\", \"leverandør\", \"levnavn = \" & NewData)) Then Response = acDataErrContinue
        Else
            Response = acDataErrAdded
        End If
    Exit Sub
    Response = acDataErrContinue
    End Sub

tville, I think you may have to alter your Dlookup
to If IsNull(DLookup(\"levnavn\", \"leverandør\", \"levnavn = \'\" & NewData & \"\'\"))
and you must ensure that levnavn is a field in the table leverandør..

Otherwise you cansend me your dB and I will take a look

dktebrsa@europe.lego.com

levnavn is a string so must be enclosed in \' \'

Det hjalp. Der er dog stadig et lille problem.

Jeg indtaster et navn i feltet \"levnavn\"
Hvis det ikke findes får jeg en meddelelsesboks hvor jeg kan vælge ja eller nej til at oprette leverandøren. Svarer jeg ja, kommer formularen frem hvor jeg kan oprettet leverandøren.
Når jeg lukker denne formular, returnerer jeg til feltet levnavn. Det navn jeg indtastede står stadig i feltet, men når jeg vil til næste felt får jeg igen meddelelsesboksen hvor jeg kan vælge ja eller nej til at oprette leverandøren. D.v.s. at leverandøren endnu ikke er på listen. Svarer jeg nej kan jeg gå videre og går jeg så tilbage til feltet levnavn kan jeg nu se at det nye navn er på listen. (Håber du forstår ovenstående.)

yes I think I understand you, but I am not sure as to why your getting the problem!

If you add the new leverandør then Response = acDataErrAdded. This should update the combo automatically, which seems to be getting done but a little too late. Are you sure that your Dlookup doesnt retun Null which sets Response to acDataErrContinue?

Nej - hvordan kontrollerer jeg det?

In the lev_id_NotInList event you can set a breakpoint along side the If IsNull(DLookup... line. Then run the pragram until you meet this breakpoint. Pressing F8 will step one line of code at a time.
If you have probelms with this teh I can still take a look for you!