Search results

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.

Bill, I am a bit stumped. I can email as many as I want (through Lotus Notes. You have not recieved them because I didn't click Send in Notes). The only thing I can suggest is removing the disabling of the button when the check box is ticked: Private Sub chkTicketAssigned_AfterUpdate()...

Can you post the db?

Yo Bill, Here is some info on the send object function http://www.blueclaw-db.com/docmd_sendobject_example.htm For a dodgy work around, have you tried putting something like <buttonName>.enabled = true at the end of the sub?