Search results

I seem to be stumped and am hoping this is something easy to do. In the code below what I am trying to do is if the users clicks the "Yes" button; then the 'Case vbYes' (See red code) statement will continue processing the event procedure from the 'Else:' (see blue code) statement below it. My...

Where would I put the code you suggested? I did find that the exact line triggering the error is: .MoveFirst Under the "With rsTo" I think what you suggested about the Do While Not .EOF might be what I'm looking for just not sure in the code where to put it and do I need to do it for each...

Here is my dilema; I have a handler for Error 3021, but my problem is that this can be the error for 3 different sections of code. What I need to accomplish is that if it fails w/ Error 3021 on the 1st part of the code to continue with the next part of code from the point in which the code...

Not a problem. Glad I was able to help.. I find this method of handling Input mask violations to be much easier since you can set it up in 1 Event Procedure to handle violations for any given text control on your form.

I have attached an image that should be able to walk you through the steps. Let me know if you are still having issues with it after that. ;)

@bean What you need to do it on the Forms "OnError" Event procedure not on the Controls.

Wow! Thanks again :) I can't believe all this because Access didn't have it's ADO Powerbar. lol. I have it sending e-mails and doing exactly what I needed it to do now.. I was about to go bonkers having 1 line of code hold up my project. hehe.

Holy [Explicit]! I am now making some progress.. That seems to now be taking care of the syntax error message when I hard code the value for [AR Group] Now to just get it to work programatically. THANKs so much Everyone! I'm sure I will still need some help, but let me see where I can go with...

I am using Access 2003 So you are saying I should use the As DAO.Recordset? insted of just "As Recordset"? What is the difference?

I will try and get a sample together. It wouldn't be affected by linked tables would it?

Yeah. I am having no luck with this at all :( I have actually commented out all other code other than the following and no matter what I do I get Data Mismatch type errrors Is it to do with table relationships? Here is the exact code for this actual On Click Event: Private Sub...

Tried that, but am getting the parameter error "expected 1". Arrggg :( Looks like the other way is going to be the way I need to go since I have criteria. Is it anything to do with trying to pull data from 2 tables? the E-mail Address is in 1 table and the "AR Group Code" is in another...

When I did the MsgBox "7" was what came up which was correct. I also was trying to hard code a value in before you had mentioned it, but keep getting Data Type Mismatch. Is this anything to do with trying to pull data from 2 different tables? I wish that access wasn't so finnicky I created a...

It depends [AR Group] is a "text box" and stores either numbers or letters. Examples: 1 2 3 4 AO No such luck with the new method either :(

Tried that. Run Time Error '13': Type Mismatch Maybe I can do this another way... How could I do something like: Set rsTo = CurrentDb.OpenRecordset([Query Name])

I tried that, but the "'" part right after the [AR Group] & was showing up in red so I tried this: Set rsTo = CurrentDb.OpenRecordset("Select [PERD Security Access].[Email Address], [Email List].To, [Email List].[AR Code Group] FROM [PERD Security Access] INNER JOIN [Email List] ON [PERD...

[AR Group] is a text field on the form that is auto populated with a value based on what the user selects in the [AR Code] combo box.

Yes it does. I have to pass the "AR Group" parameter but then it works fine.

If you need to create custom error messages for Input Mask Violations below is some sample code you can work with. You will need to put this under the Forms Event Tab in the "On Error" Event. 'This is to nullify the default M$ Access 'Input Mask Violation' Error. Dim CurrentControl As Control...

Can someone tell me what I am missing or doing wrong here? I have been racking my brain trying to get this working. When I try to run the code I get "Run Time Error '3061': Too few parameters. Expected 1." Set rsTo = CurrentDb.OpenRecordset("Select [PERD Security Access].[Email Address]...