Recent content by Fuse3k

Hi All, So here's a general scenario: I create a VB Class which allows the user to create a client record for a table. Let's assume one of the fields in the Client table is a field called SalespersonID which relates to another table with Salesperson Name and their respective ID (key). What's...

Glad to hear it! Please click Thank button if it was helpful :)

It worked fine for me using Access 2010. Maybe its the nz() function? Try removing them but I'm not sure why you'd get that error. I'm sure you get the gist of it though, using the BeforeUpdate event.

If you're willing to consider a change to your approach you can do the following to get the same exact result. It's also a little more cleaner. Instead of a function, just validate the code by using the BeforeUpdate event: 'Cancels Update if required fields are missing. 'if fields are...

Ok, we need to drill down further. Can you change: If validateform(Me.Form) Then DoCmd.Close acForm, Me.Name to this: If validateform(Me.Form) Then DoCmd.Close acForm, Me.Name End If Compile again and tell me which line it highlights when the error is displayed.

Strange. Are you getting the same error message or something different?

Did you check File -> Options -> Current Database -> Display Form?

Ah, I think I see what the problem is. Try this: If validateform(Me.Form) Then DoCmd.Close acForm, Me.Name Make sure you do the same with the other DoCmd.Close statement in your function. Explanation: You need to pass two arguments when calling the DoCmd.Close method. Firstis the type of...

Glad to hear. The yellow highlight is the line where the code execution broke. In this case, VB tried to initialize the subroutine "btnPost_Click" but it failed (stopped) because you the line of code you commented out was trying to declare a Type that didn't exist.

Is "Dim strMsgBox As StringForm.Recalc " supposed to be "Dim strMsgBox As String" ? VB seems to think 'StringForm.Recalc is a undefined user-defined type.

Sorry, go back to Private Sub Save_Record_Click() and change: If validateform Then DoCmd.Close to: If validateform(Me.Form) Then DoCmd.Close

You don't need to move it, I was just asking because the answer differs depdending on where the procedure is. Try changing this: Public Function validateform(ByRef frm as Form) As Boolean 'returns true if all required fields have data, or false if not. 'It will also create a popup message...

If I understand your post, you're trying to associate a hyperlink address to a textbox control. You may want to look into the Textbox.Tag property. The Tag Property allows you to store a value that can be later retrieved. For Example, in your Form's Load() procedure, you can do something...

tdefreest, Is the the procedure "validateform" in the Form's module itself or is it in it's own code module? If the procedure is in the form's module, the you don't need to pass a reference to the form, you can do this instead: Your Function: Public Function validateform() As Boolean...

Replace the MsgBox line in your code with this line: DoCmd.OpenForm FormName:="FORM_NAME_HERE", WindowMode:=acDialog Opening a form as a Dialog pauses code execution, just like a message box does. Be sure to replace "FORM_NAME_HERE" with the name of your custom message box form. In your...