CAuto clear a field after error

[Thompyt]

How do you clear the displayed selection from a combobox after error? Combobox Alpha must be filled in before filling in comboboz Bravo. I have tried field="", =Null Set field =... Searched the internet, but didn't find it.

Code is


Private Sub O6_RECOMMENDATION___VOTE_BeforeUpdate(Cancel As Integer)
If Me!AO_Recommendation_Vote & "" = "" Then
MsgBox "AO Recommendation Vote must be filled in first"
Exit Sub
End If
End Sub

I am pretty sure it will be a one liner.

Thanks

[drexasaurus]

It seems to me, unless I misunderstand what you're doing, is that you could simply clear the combo box by referring to the control itself: Me.combobox = Null, etc.

Oh! In the BeforeUpdate event, you want to set Cancel = true to cancel the update in that event.

[Thompyt]

Drexasaurus
Thanks,
Tried them both previously. It doesn't clear it other than highlighting the word in the combobox. You have to hit wscape to clear it. Deleting it with delete button still gets the popup.


I think it has to be returned to null ststus.

[Missinglinq]

You can't change the value of a Control in it's BeforeUpdate event...it keeps the Access Gnomes from saving the data, which is the whole point of the BeforeUpdate event. Move the code to the AfterUpdate event:

Private Sub O6_RECOMMENDATION___VOTE_AfterUpdate()

 If Me!AO_Recommendation_Vote & "" = "" Then
   MsgBox "AO Recommendation Vote must be filled in first"
   Me.O6_RECOMMENDATION___VOTE=Null 
   AO_Recommendation_Vote.SetFocus
 End If

End Sub

And just because it looks odd (O6_RECOMMENDATION___VOTE) I'll ask:

Is the first character Capital O, instead of a Zero?

Is there really three Underline characters between the O6_RECOMMENDATION and VOTE?

Linq ;0)>

[Thompyt]

Ling,
I tried:
Private Sub O6_RECOMMENDATION___VOTE_AfterUpdate()
If Me!AO_Recommendation_Vote & "" = "" Then
MsgBox "AO Recommendation Vote must be filled in first"
Me.O6_RECOMMENDATION___VOTE = Null
AO_Recommendation_Vote.SetFocus
End If
End Sub

There was a period befor the = Me.O6_RECOMMENDATION___VOTE. = Null that I took out. When I got to run it gets a runtime error 424 at the AO_Recommendation_Vote.SetFocus

O6_(1 _) RECOMMENDATION___ (1 _) VOTE - the extra 2 Access put in itself. the O is a capital O (Officer)

[Thompyt]

I tried the following and it locks it up pretty good. Not what I want.

Private Sub O6_RECOMMENDATION__VOTE_BeforeUpdate(Cancel As Integer)
If isNull Me.AO_RECOMMENDATION___VOTE Then
MsgBox "AO Recommendation Vote must be filled in first"
Cancel = True
End If
End Sub

[Thompyt]

Got it fixed: Access also wanted a triple _ before VOTE and change Me.O6_RECOMMENDATION___VOTE = Null to read Me.AO_RECOMMENDATION___VOTE Now it works like a charm.

Thanks!

[Missinglinq]

Sorry about that extraneous period! It is always preferable to not include Spaces in the names of anything, in Access; nor any Special Characters! To separate words, if you will, in names, you really should use a 'camel' or 'humpback' notation, where

Hump Back Notation

would become

HumpBackNotation

or use Underscores between the parts

Hump_Back_Notation

If you left the name as

Hump Back Notation

and clicked on an event in the Properties Pane to enter code, the Access Gnomes will, as you found out, add Underscores, and you'd end up with:

Private Sub Hump_Back_Notation_BeforeUpdate(Cancel As Integer)

If you're entering code, freehand, and a name has Space(s), you need to place the name inside of Square Brackets:

If IsNull(Me.[Hump Back Notation] Then

That tells the compiler that Hump, Back and Notation are all part of a single name.

Linq ;0)>

[Thompyt]

I already did some name changing. It made some of the stuff a PITA to correct. I knew about the [] and so forth. I think the extra _ came from the name I used at first AO Recommendation - Vote. Access doesn't like the -