Search results

Thanks Bob!! I never knew about the .column property of comboboxes, how sweet it is.:)

Me thinks: You may need to use combobox.text in your code as just combobox will return the row selected (e.g row 2, combobox = 2). Using combobox.text will also require a setfocus. Perhaps on the form you need the combobox onchange to update another control that is easier to use in your SQL...

Random Access Files? Can you explain: 1)what you are doing exactly 2) How you are doing it ?

It works for me, see updated code in this db:

In Create a button on the form labelled "Get Record Number" that On Click does this: Dim NextRecord NextRecord = Me.Recordset.RecordCount + 1 msgbox "The Record Number is " & nextrecord If multi-user however, I would put some code into the save button that automatically adds this data on save...

Try this. I have changed a couple of things in the function to put the row and column as a delimited string. Then use the split function to parse it. ENJOY:): dim myString dim myRow dim myCol mystring = getthecolumn1(thefile,sheet,thestring) dim myArray() as string if len mystring > 0 then...

Try this from the Spent Geezers Association (save tester.xlc to c:\):

A thought: You might want to check the dates. They work for November dates but not thoroughly tested and may have to be converted to US style. If they do I have a module that I can put in the DB and repost. :confused:

Try this one from the Spent Geezer's Association:

So you want to activate a control by pressing F12? I am usure how to do this. However, if you want to activate the command by pressing say Ctrl+d then do this: Firstly set the form's Key Preview property to "Yes" Next add this code to the form's On Key Press Event Dim strCharacter As...

Just use this for windows login name: username = VBA.Environ("USERNAME")

Try this to get you started:

Hi, To show the Login have a label (say lbl_Name). In the On Open event of the form have lbl_Name.caption = "Greetings " & VBA.Environ("USERNAME") To make a full screen form you need to have Docmd.maximize in the on Open event. Your form should also have popup = yes and menu bar = 1. Remove...

DONE!!!!!!!!!!!!! (10 Characters)

I store the dll files in the folder where the .mdb or .mde file exists. Copy his code into a new module e.g. mod_Report2PDF Then to call it...... For a button on click event something like this: dim rptName dim filename dim DateTo dim DateFrom dim username dim FSO dim blRet Set FSO =...

Try this one: :eek:

You can use use/modify the code on the button in this DB :D However this is not what you were after....my apologies!!

Private Sub Payment_Amount_BeforeUpdate(Cancel As Integer) if isnumeric(Payment_AMount) then DotLoc = InStrRev(Payment_Amount, ".") If DotLoc <> 0 And (Len(Me.Payment_Amount) - DotLoc) > 2 Then MsgBox "This field must be input to no more than two decimal places" Cancel = True...

yOU COULD MAKE THE COUNTDOWN FORM GO FULL SCREEN (TAKE OVER THE SCREEN). Set the following on the form properties (see attachment). [Popup and menu bar = 1 are important] Then OnOpen Docmd.maximize This will cause the form to popup over all other applications.:)

THat Lebans code is awesome. I use it in all my databases to print to PDF. It is pretty straight forward.