Recent content by bwellbor

You can use the AppActivate statement to set the focus to Outlook or return the focus to Access. 'Set focus to Outlook AppActivate "Inbox - Microsoft Outlook" 'Return focus to Access AppActivate "Microsoft Access"

If this would solve your problem, you could try some of this code: Put this code at the top of a module: Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As...

If you could first check whether or not Outlook is open and then open Outlook if it is closed, would this solve your problem?

Did you ensure that the reference is enabled under Tools | References? The name should be something like "Brother b-Pac 3.0 Type Library."

I think what you've got should work for $10k, $100k, whatever. Is it not working?

There may be other ways of doing this, but I played around with it for a minute using a loop and it seemed to do what you're looking to do. Have a look. Public Function DollarAmt(s As String) As Double Dim find_dollar_sign As Integer Dim amount_value As String Dim max_amount As Single 'Set...

You could try using the DLookUp function. If it returns Null, you know there aren't any records. If IsNull(DLookUp("[FieldName]","QueryName")) Then 'Your Code Here End IfYou could also try some error handling in your On Load event. On Error GoTo ErrorHandler 'Your Code Here ExitProcedure...

Try this: SumOfAmount1: Format(Nz(Sum([Amount]),0),"$#,##0.00")

skwilliams has it right. Here's a picture that should help you.

If Income_Activity is the name of your table, it needs to be in quotes. And it's ok if it looks like this with the brackets: "[Income_Activity]". If it's a string variable that contains your table name, then it shouldn't be in quotes or brackets. If Access can't find your table when it's in...

Oops! You're right. I forgot to put the & in when I moved the And inside the quotation marks. Updated: DisabilityChecks = DSum("[SS_Disability]", "Income_Activity", "CLIENT_KEY=" & CLIENT_KEY & " And [Income_Period] = #" & [Income_Period] & "#") UnemployementChecks = DSum("[Unemployment]"...

I think you've got some syntax problems in your DSum functions. Your Field Names and Table Names should be inside quotation marks. When doing multiple criteria, the AND part should also be inside quotation marks. See below corrections in red. DisabilityChecks = DSum("[SS_Disability]"...

You could try setting up a table with each person's name and their log in name or their computer name. Access recognizes log in names with something like user_name = Environ("username") Computer names are recognized using something like this Set objCompName = CreateObject("WScript.Network")...

In your Form Design view, add a new chart and follow the wizard. Once it's done, change the Row Source to SELECT qryNumberOfInjuriesPerMonth.Month, qryNumberOfInjuriesPerMonth.Number_of_Injuries FROM qryNumberOfInjuriesPerMonth; Then you can play around with the format and stuff.

You could try using the Format function. One of these could work: Format(Now(),"mmddyyyyhhmm") Format(Now(),"00000") Format(Now(),"00000.0000") You can play with the formatting until you get a number you like.