Search results

Hello, I run into the same problem, and someone send me a great module. Here it comes: Public Function getfilename(pathname As Variant) Dim myloop As Integer Dim kees For myloop = Len(pathname) To 1 Step -1 getfilename = getfilename & Mid(pathname, myloop, 1) Next myloop 'use this in the...

Try placing the 'MyFunction MyListbox.value, Forms!MyFormName' part in the VBA-editor. (Click on the dots behind the double_click event and choose the last option) Albert

Or try text155.setfocus text155.text = "Canceled" This should work. Greetings, Albert

Hello, Check out the MKDIR statement. Create a recordset with al the last names and do something like this: recordset.movefirst while not recordset.eof = true mkdir "c:\" & recordset("lastname") recordset.movenext loop greetings, Albert

I tryed using DISTINCTROW, but it also didn't work. Try using DISTINCT. Albert

Thanks Harry!

Hello, I have the following, simple code: Dim From As Integer Dim to As Integer From = InputBox("From Date") to = InputBox("To date") Me.Filter = "[Year] between from and to" Me.FilterOn = True Access can't pass the value I entered in the inputboxes to the filter syntax. When I click on...

Hello, I should make 3 queries. In querie 2 type in the criteria field from customer something like [forms]![youform]![combobox1] Combobox 2 (rowsource querie 2) shows al the relevant info for the customer selected in combobox 1. Hope this get you started. Greetings, Albert

Raskew, Your the man! THANKS! Albert

Hello, If you run the querie or macro by a command button, typ just before the code that fires the querie: docmd.setwarnings false 'messageboxes OFF Before the 'End sub' (the last sentence) type: docmd.setwarnings true 'message boxes ON The problem is solved! Greetings, Albert Example...

Uhhh, I thought I could figure it out myself, but no luck. How do I retrieve the names of the columns? Thanks. Albert

Raskew, Thanks a lot for your quick response. It works great! Albert

Hello, Does someone know the SQL-Statement to count howmany fields are in a table? (count the colomnames) Thanks, Albert

Hello, I have the following, simpel code to create a commandbutton: Dim cmdTest As Control DoCmd.OpenForm "frmcopy", acDesign Set cmdTest = CreateControl("FrmCopy", acCommandButton, acDetail) DoCmd.Restore Now I want to assign a caption and a name to the new control, but I don't know how. I...

Hello, search the formum and I guarantee that you WILL find the information you're looking for. Search for: 'runtime' or 'stand-alone'OR 'Pat Hartman'. He has written a very clear 'article' about using an access application without Access being installed. Greetings, Albert

Hello, I had exactly the same question / problem. I put the following code behind a button: text1.setfocus if text1.text = "" then text2.setfocus if text2.text = "" then text3.setfocus if text3.text = "" then msgbox "You didn't enter any information!" text1.setfocus end if end if end if Maybe...

Hello, On the UTILITIES page, add a command button. Behind the command button on the 'On click' event, (tab 'events' in the properties of the command button)type the following: Dim formname as string formname = LSTFORMS.value DoCmd.OpenForm formname, acNormal, , , acFormEdit, acWindowNormal...

O, o! My fault!Sorry.

Hello, There certainly is a way to open the selected form with a command button. Create a variable that contains the current formname selected in the listbox. Dim frmName as string frmName = listbox.value DoCmd.OpenForm frmname , acNormal, , , acFormEdit, acWindowNormal Problems? Just...

Hello, Ther certainly is a way to open the selected form with a command button. Create a variable that contains the current formname selected in the listbox. Dim frmName as string frmName = listbox.value DoCmd.OpenForm frmname , acNormal, , , acFormEdit, acWindowNormal Problems? Just post...