Search results

Just add a procedure on the After Update event of the field and use this code.. strEmail = "Your E-Mail" DoCmd.SendObject , , , strEmail, , , "Update", me("Record_No") & " has been updated." Hope this helps.. Doug

Option Compare Database Option Explicit Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Boolean Declare Function GetSaveFileName Lib "comdlg32.dll" Alias _ "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Boolean...

create a new module or use an exisitng module and use the following syntax in the declaration section... Public varname as vartype Now you can access this anywhere at anytime.. Just so you know, in order to get the value of this variable into a form somewhere, you probably will have to create...

Again I suggest double-checking the spelling, but that's probably not it... Other than that, I don't really know why it's doing that... Any control should support the "visible" method... It's odd... Sorry I can't help here... Doug

I keep getting a function undefined error... Are you sure there isn't a the function fSetFontBoldRed("ButtonName") function sitting in a module in the DB?

Usually that will have to do with your SQL statement.... Maybe you spelled something wrong.. Try creating a query, using your qryparamter query and just taking your E-Mail field. Then go to SQL view and copy and paste that statement into your code... That should do it for you. HTH Doug

Angello, Your best bet is to use error handling in your code and if you hit that error, it will move the the first or last record... Here is the code... 'For the Next Button... Private Sub cmdNext_Click() On Error GoTo Err_cmdNext_Click DoCmd.GoToRecord , , acNext Exit_cmdNext_Click...

I think your problem is how you're referring to the subform. There should be quotation marks around the name of the subform... me("sbfrmsearch").visible=true And with the parent and child links, you don't really have to worry about them... Those are only needed if you're going to relate...

Where are you getting the error??? When the error pops up, hit debug, and tell me which line is highlighted...

Yes! Nah, just kidding, I've had my problems too. Ok, it takes a little extra code, but you can just set the fields that you're using with the combo box as visible=false instead of using the for..next loop. Do this by adding at the top.. me("ifFall").visible = false Do this for all the...

Sonya, get ready... Alright, create a new form. On the properties sheet, Format tab, change the "Default View" to Datasheet. Use your query as the source. Throw the fields that you want to see on the form. You don't have to line them up or anything, in datasheet view, it'll list the...

Alright, make sure you have everything spelled correctly. I just ran the code with the combo box name spelled incorrectly and I got that same error... After I fixed the spelling mistake, everything ran fine... Also, which control is it stopping on? If you don't know how to find out, put this...

try to put this line in at the top after the dim statement... me("OccuranceCategory").setfocus this will set the focus on a control that you won't be setting to visible=false. I've seen this error before around the boards, so I hope that works out for you. Doug

Why don't you just use code instead? In the onClick event of the button, select [Event Procedure] then put the following code in the module... DoCmd.OpenForm "RealForm", acNormal, , "[domainlist]='" & Me("value") & "'" if it is a string value or DoCmd.OpenForm "RealForm", acNormal, ...

Couldn't you just have the user not select anything if they want to search for all??? Then you could code the search button by saying: if isnull(me("cmbChoices")) then 'Search for All! end if HTH Doug

I think your best bet would be to use a subform on your search form. Make the subform not visible. Then when your search is complete, you can make the subform visble by me("SubformName").visble = true. On the subform itself, make sure you include some type of unique identifier. In that...

Use this code in the onChange event of the combo box. It will first make all the controls invisible, except the combobox, and then make the appropriate textboxes visible. Add case statements as needed to accommadate all of your choices... Private Sub OccuranceCategory_Change() Dim ctl As...

The correct syntax should be ... either the declare as dim MyDB as database or the assignment as set MyDB = currentdb The code that I posted worked for me, so make sure you didn't change the variables around... Doug

What you could do is name the macro "AutoExec". This will have it run when the database opens. Then you can open up the database at a certain time using Windows Task Scheduler. The syntax to open up the DB is C:\AccessPath\msaccess.exe c:\DBPath\DbName.mdb. At the end of the macro, add the...

okay, I have no idea what is wrong there, try this then... Create a form. Create a code in the Open event of the form. Put "Call DateCheck()" as the code(without the quotes). Then run the code to make sure it works. If it does, then change your AutoExec macro to read OpenForm to open the...