Search results

It's been a while since the last time I posted here, but I've always had good results when I've posed questions here before. I'm hoping that someone can help me out with this little problem. I'm in the midst of designing a database that will be used as a catalog of plants in a botanical garden...

This is what worked for me. Private Sub Combo0_KeyDown (KeyCode as Integer, Shift as Integer) If KeyCode = 40 Then Me.Combo0.Dropdown End If End If If there's any other key you're trying to figure out, just put the line msgbox KeyCode & " " & Shift Into the event procedure and see what...

Hey, don't put yourself down like that, man. Things like this happen to everybody from time to time. :) Keagan

This is a new one on me. I've never had this problem except when the text box is only one line tall. So, to clear things up a bit, I think I'll ask a few questions. What version of Access are you using? What is the datatype of the field the textbox is bound to? Do you have scrollbars enabled...

There's a wonderful event procedure called Form_Current that executes every time you navigate to a new record. Here's what you put in it. Private Sub Form_Current() ClosedDate.visible = Closed End Sub Let me know how that works. I think I might be forgetting something. Keagan

I've suddenly started getting a strange error. I'm hoping that somebody can tell me what it means. The error is: Run-Time Error '62531': Circular reference caused by alias 'C1' in query definitions SELECT list. Here's my code. Private Sub C1_AfterUpdate() If C1 = True Then...

The Cancel is built into the BeforeUpdate of any control that can use BeforeUpdate. If you set Cancel = True, it will stop the control from saving the information in your table. This is where I usually put the majority of my validation rules. Keagan Quilty Kilbride, Newfoundland

I have an Option Group on my form, which I made using the wizards. It is an Unbound Group on an Unbound Form. The problem is that when I click on any of the options, they don't stay selected. The AfterUpdate Event is not running. If I hold down the mouse button, it appears that there are two...

Click on your checkbox in design view and go to properties. Click the event tab, and where it says "On BeforeUpdate" choose "[Event Procedure]", and click the build button (that thing with the three dots). When the code window opens, put in the following five lines ofcode exactly as they appear...

I must be tired. I just put in the code for you to get a syntax error. DCount("*", "tablename","[EndTime] >= " &[txtBox]) There. Now try it. Keagan Quilty Kilbride, Newfoundland

Use the DCount function in the BeforeUpdate of your textbox. If DCount("*","tablename","[EndTime] >= " [txtBox]) > 0 then msgbox "Overlapping times" End if The DCount function returns the number of times the criteria is true. Therefore, if the EndTime of a previous job is Greater than the...

Come to think of it, you can disable the Shift Key bypass, but for the life of me I can't remember how to do it. Keagan Quilty Kilbride, Newfoundland

Do what Chris RR said and change all those important properties. Then, add a command button to your form and put the following line in the OnClick Event Application.Quit This will close down Access altogether. Keagan Quilty Kilbride, Newfoundland

Why wouldn't the right() function work? The last two characters are always the last two characters. Keagan Quilty Kilbride, Newfoundland

Besides record navigation, why would you want to trigger the Current event of a form? Command Button You could hit Enter when the command button has focus, or use HotKeys. In the Caption of the button, insert an ampersand (&) directly before the letter you wish to use, and then hit "Alt +...

Absolutely. Give me an example of what you need and I'll help you out as best I can. Keagan Quilty Kilbride, Newfoundland

An ampersand in a label is usually indicating that the following letter can be used as a shortcut. i.e. &Open would mean that I could click the checkbox, command button, etc by pressing "Alt + O" I you want an actual ampersand in you label use && (two ampersands together). Keagan Quilty...

The only explanation I can think of is that the values you're searching for don't exist in your underlying table or query. But I'm sure that if you are posting here, you would have checked that. Quite frankly I'm a little stumped. Is your DB avaliable to be downloaded? Keagan Quilty Kilbride...

Private Sub Form_BeforeUpdate(Cancel as Integer) txtDate = Date This will not change the date automatically when the data is changed, but it will record a new date when the record is saved. Keagan Quilty Kilbride, Newfoundland

Try moving the line Date_Received.SetFocus AFTER Calender.Visible = False Keagan Quilty Kilbride, Newfoundland