VBA Save Button

[Richie27]

Hi all,

I have a save button that I created using the access command button wizard.

However, I want to add some validation to my form which occurs when this button is clicked.

I just want to make sure various fields are filled in. I know how to validate - I just don't know how to add said validation to a macro button.

In other words - how do I save a record using code instead of macros OR how do I add code to a macro?

Look forward to hearing YOUR wisdom.

Cheers!


Richardo

[orange]

Take a look at this example in the beforeUpdate event

http://msdn.microsoft.com/en-us/libr...ice.11%29.aspx

[Richie27]

Thanks Mr. Orange for the prompt reply.

I will have a look.

I love this forum - it is awesome - and so are the people on it.

Luuvin it!!!

Saved me putting me head through the monitor many times!

Mr. Blue

[orange]

If you need vba help see
http://www.functionx.com/vbaccess2007/index.htm

[Richie27]

Hey thanks - I will have a gander at that!

[Richie27]

K, so I read the link and added this to the before update event of the control I was trying to validate - and nothing happened when I hit my macro created save button. I.E: No msgbox even though I left the field cboBoxes blank!!

Private Sub cboBoxes_BeforeUpdate(Cancel As Integer)

If IsNull(Me.cboBoxes) Then
MsgBox "You must select a box"
Me.cboBoxes.SetFocus
Exit Sub
End If

Way wait....tis on a subform -> Would that have an impact???

Tankee sar, thankee kindly.........

End Sub

[orange]

I don't work with macros. The link I sent dealt with macros and vba code.

[Richie27]

Hmmm...seems few experienced people do.... I guess there's more control with VBA........Have a nice day! ....As they say in the states ;-)

[Richie27]

Well, I found what I was looking for. Think I will stay away from automated controls like macros in future.

It's just so time consuming to find what you want when you want it.

Mr. Orange - what do you think is the best way to learn VBA? Plow through books or just to spend time searching online when you need to do something specific?

For anyone interested - this worked for me:

Private Sub save_Click()

If IsNull(Me.cboBoxes) Then
MsgBox "You must select a box"
Me.cboBoxes.SetFocus

Cancel = True
Exit Sub
End If

DoCmd.RunCommand acCmdSaveRecord

End Sub