Setting a form's field with VBA!

mzu_cold · August 12th, 2009, 05:00 AM

Hello everybody!
this is my first participation in this forum!
Si I have to create a form, I have a field "note_quality" & another field including in the form "Texte7", I want to create a VBA code which do :
If note_quality=1 or 2 then Texte7=Bad quality
If note_quality=3 then Texte7=medium quality
If note_quality=4 then Texte7=Good quality
If note_quality=5 then Texte7=great quality

Also Texte7 is not a table's field, it's just created in the form.

Thanks!

SerranoG · August 13th, 2009, 08:22 AM

Welcome to Wrox!

Your logic can be solved using the CASE syntax.

Code:

Select Case Me.note_quality
    Case 1, 2
        Me.Texte7 = "Bad Quality"
    Case 3
        Me.Texte7 = "Medium Quality"
    Case 4
        Me.Texte7 = "Good Quality"
    Case 5
        Me.Texte7 = "Great Quality"
End Select

There's even a CASE ELSE you can use where you catch everything else that's not between 1 and 5.

mzu_cold · August 16th, 2009, 08:03 AM

Thanks a lot bro!
But I still have problem, I wrote this code in Access by cearting a VBA evenemential code, it doesn't work, I activated macros but it doesn't work

SerranoG · August 17th, 2009, 04:43 PM

I don't know what you mean by "VBA evenemential code." Please explain.

mzu_cold · August 18th, 2009, 12:07 PM

In Access, I created a VBA code in the form, I clicked (right) in the controle & I chose "Create a code" & after, "VBA code" & I wrote the code & I saved it!

SerranoG · August 18th, 2009, 12:50 PM

Sorry, but I'm still not understanding what that means in reference to the code example that I wrote.

JP · September 18th, 2009, 09:26 AM

I think he means he needs the proper event to put the procedure. The AfterUpdate event would probably be the most appropriate.

Code:

Private Sub note_quality_AfterUpdate()
Select Case Me.note_quality
    Case 1, 2
        Me.Texte7 = "Bad Quality"
    Case 3
        Me.Texte7 = "Medium Quality"
    Case 4
        Me.Texte7 = "Good Quality"
    Case 5
        Me.Texte7 = "Great Quality"
End Select 
 
End Sub

--JP

Quote:

Originally Posted by SerranoG

Sorry, but I'm still not understanding what that means in reference to the code example that I wrote.