docmd.gotocontrol after undo

[JeroenMioch]

i have a field wich asks a question on the before update event.

Like "are you sure you want to alter the data ?"

Hitting yes will change the input, hitting no will cancel the imput with

Cancel = True


Me.MyFieldName.Undo

When they select "no" i want the focus to go to another field on my form.
Appearently, i cant do this because i get the error saying its impossible to move the focus when the
data is not saved.

Offcourse i tryed to save the form and control programmaticly with "docmd.save" and other methods.
None of my solutions work though.

Any genius here that knows a workaround ?

[RuralGuy]

Try using the AfterUpdate event instead of the BeforeUpdate event. You can't cancel it but you can still do the "Me.MyFieldName.Undo" and then move the focus wherever you want.

[JeroenMioch]

That doesnt work because the data has allready been saved into the table with the afterupdate.
Really strange this by the way because if i click no and the undo is done. I can just click my mouse to the field of my desire, But if i try to do that programmaticly it doesnt work..

[RuralGuy]

You cannot move the focus in the BeforeUpdate event, sorry. You *can* however access the Me.MyControlName.OldValue to restore the control to what it was originally in tha AfterUpdate event.

[JeroenMioch]

Still no luck im afraid

Private Sub fldPlaatsNaamVestiging_AfterUpdate()
Dim LResponse As Integer
Dim strSQL As String
LResponse = MsgBox("Om te zoeken op winkelnaam gebruik het veld 'zoek winkel'" _
& vbCrLf & "Weet je zeker dat je de naam van de vestiging wilt veranderen ???" _
& vbCrLf & "Klik ja om deze naam te veranderen of nee om te annuleren", vbYesNo, "Naam vestiging aanpassen")
If LResponse = vbYes Then
Exit Sub
Else
End If
If LResponse = vbNo Then
 Me.fldPlaatsNaamVestiging.OldValue
 End If
Forms("frmObjecten1").SetFocus
Forms("frmObjecten1").Controls("Filterplaatsnaam").SetFocus
End Sub

Maybe posting my code will shed some light (i hope)
Thanks for looking at my problem btw

[RuralGuy]

Try this code:

Private Sub fldPlaatsNaamVestiging_AfterUpdate()
   If MsgBox("Om te zoeken op winkelnaam gebruik het veld 'zoek winkel'" _
             & vbCrLf & "Weet je zeker dat je de naam van de vestiging wilt veranderen ???" _
             & vbCrLf & "Klik ja om deze naam te veranderen of nee om te annuleren", vbYesNo, _
             "Naam vestiging aanpassen") = vbNo Then
      Me.fldPlaatsNaamVestiging = Me.fldPlaatsNaamVestiging.OldValue
   End If
   Me.Filterplaatsnaam.SetFocus
End Sub

[JeroenMioch]

Thanks Ruralguy, That works like a charm

Much appreciated mate !

[RuralGuy]

You're very welcome. You did notice I shortened it up quite a bit. The other code was not necessary.