Search results

Thanks for the reply. Your suggestion works good when strForm is "frmItem". But when it includes the subform name "frmItem!sfrmItemSupplier.Form", then I get the "form not found" error. That's why I was trying to use eval or something like it. Evan

I need to set a control to a given field on a form. But, the form could either be a form, or a subform. Is it possible to set a control using the eval function as follows: Dim ctl as Control Dim strForm as string dim strControl as string strForm = "frmItem!sfrmItemSupplier.Form" strControl...

Perhaps this is the best way to simulate this problem: Attached is the stripped down 2003 database with one form that launches the systray icon and minimizes. Right-click on the icon to restore. Evan

I'm minimizing my app to the sysTray. When I restore, it comes back with a grey box where the File Menu and Tool Bars used to be. I've tried a ReDrawWindow command but that didn't work. In a nutshell this is what I'm doing: ShellNotifyIcon NIM_ADD, TrayItem ShowWindow frmhWnd, SW_MINIMIZE...

Ok, I'm beginning to understand. Correct me if this is wrong: A 32bit binary number is like a row of 32 dip stitches. It's all very simple until you need to see the decimal equivalant of the 17th switch - then you get some bizarre number that doesn't seem to make any sense. When the AND...

Ok, now this is starting to mean something. I get the 1st step - 1000 = 1111101000 and 100 = 1100100 But how do 1111101000 and 1100100 evaluate to 1100000? Evan

What about this? Can you explain it? A = 1000 B = 100 ? A and B 96 ???? What is going on here? I know it is important :) Evan

I believe I did that - both lngStyle and WS_MINIMIZE have a value (look at my previous post). so why do they evaluate to zero? Evan

Here's what i don't understand: ? lngstyle 399441920 ? WS_MAXIMIZE 16777216 ? WS_MINIMIZE 536870912 Now, how does this work? ? lngStyle And WS_MAXIMIZE 16777216 ? lngStyle And WS_MINIMIZE 0 Why does the 1st return a value and the 2nd return zero? Is it somehow determining...

I'm trying to understand the logic behind this IF statement: const WS_MAXIMIZE as long = &H1000000 lngStyle = GetWindowLong(frmhWnd, GWL_STYLE) If lngStyle And WS_MAXIMIZE Then lngWndState = SW_SHOWMAXIMIZED ElseIf lngStyle And WS_MINIMIZE Then lngWndState = SW_SHOWMINIMIZED Else...

Sorry, Typed too fast... You probably are going to end up with CDO or SMTP then. I don't understand much about either, but I did get SMTP to work at one point - it was just a littly weird when I had to provide my code with my personal email address and ISP to use to send the message from...

Put this in the 'Field' setting of your query: iif([YourFieldNameHere],"Yes","No")

Redemption You need Redemption. I used to use the SendObject to send mail in Outlook, but the 2003 security made it too painful. Download Redemption (search for it) and install it. Works perfectly. Evan

Not possible? Am I right to guess that this is not possible? Using snippets of code that I've found, I can minimize my app to the systray, and respond to mouse events on the icon, and create a pop-up menu in an Access form - but I can't get the popup menu to appear in the systray. Is this...

After searching this forum, I found some very helpful threads that explain how to minimize an app to an icon on the systray. However, I can't find anything that shows how to also have a right-click pop-up menu (like every other icon on the systray has.) Can anybody direct me to an article or...

The .SelStart and .SelLength code was in the ItemID_AfterUpdate event. Since the enter key happens after the event - that's why my selection was being lost.

Got It! Problem solved. When the user hit enter, if the text they had typed in didn't meet certain criteria, I wanted it to be selected. The problem is that the enter key happens AFTER the AfterUpdate event, and so the selection was lost. Solved it by trapping and canceling the 'Enter' key...

Bob, I tried what you suggested with no luck. .SelStart and .SelLength do not appear to be properties of the form - as far as I am able to tell. I also tried this: txtItemID.Setfocus txtItemID.SelStart = 0 txtItemID.SelLength = len(txtItemID) End Sub It appears to briefly select the...

I'm trying to select the contents of a text box like this: ItemID.SetFocus ItemID.SelStart = 0 ItemID.SelLength = len(ItemID) End Sub The SelStart and SelLength have no effect no matter how I have tried to use them. I have tried SelStart = 0, 1, 2, 3, etc... The position of the cursor...

If you are using VBA automation for Outlook .HtmlBody = yourHTMLmessage