Search results

I found a solution. I guess I should have waited before posting. The solution is in VB 6, but easily convertable to VBA. If you would like to see the solution visit "http://www.vb-helper.com". I also attached a zip of the solution.

Anyone know of any code to find the version of a file? Here is the senario, I manage about 130 MS Access databases. The majority of them are access 97, but I have been busy upgrading to 2000. Since most of my users access several databases throughout the day, I created a "Database Center"...

Calling function.... Sub test() Dim intCount As Long ChangeCursor_NEW (IDC_WAIT) For intCount = 1 To 1000000000 'just wait a little bit so we can see the change and the change back Next End Sub

If you have your own cursors you want to use, use this function. Actually I would create a new function that you can pass the cursor name. Public Sub ChangeCursor(strCursorName As String) 'based on the AccWebFAQ by Douglas Taylor Dim strDBPath As String Dim lngRet As Long...

Not sure what you want to do. Is the # of pieces a separate field? If so, just sort the field. That will return: 10 John 10 Mark 20 Joe 20 Bob ...

A union query may run a little faster although I don't think it would be to much faster. Although, if you didn't need to insert the records into a table that could also speed things up. I use union queries all the time. They are great for problems like this when you need all the data together...

I yanked this off a website a couple months ago. It is a series of api calls that will change the users cursor. The way this is set up is that your cursors must be in the same directory as your db - but that should be easy enough to change... 'Change The Mouse Pointer (taken from the...

The forms filter property should return the current filter. I just tried it and that seem to be the case. When I want to send the recordsourse of a form or a report to excel, I usually create a query based on this information and export it. I added some code that you can put under a button...

Just by looking at your code I can't see any problems. When you say 'losing records' does that mean that records are being deleted from your table? This is probably too simple, but why not use an auto number field on the table where you are placing the help no? Could try to take the variable...

I don't know what an en-dash is but you can probably find it through the character codes. For example, a carrige return is chr(13) and a double quote is chr(34). Search for ASCII characters in Access help, this should get you there.

Try using the IsNull function... IIF(IsNull([Forms]![frmOrder]![CustomerID]) = True, True, False)

I think that once you use the hyperlink, vba no longer cares about the application - the bond is broke. Try automating the application, MS products integrate nicely, but others may give you some work. Run code to open the app, open the document, print, and then close the app. I do this alot...

Unfortunately, I have never used this technique but I can offer a suggestion. A while ago, I changed how I add things like this. If I am going to allow the user the ability to cancel the transaction before finishing I use an unbound form. The user enters the information into blank textboxes...

Are you automating excel? I imagine that your "Variable Not Defined" is highlighting your code line "MyChart.ChartType = excel.xlColumnStacked". Dim objExcel as object Set objExcel = CreateObject("Excel.Application") ... then you should be able to set a reference to your chart and change...

First, I'm glad you liked the code. I've been using it for about a year and a half and think I have worked out most of the bugs. I think that the version of lotus you are using is causing you problems. I use R5 and everything hits my sent items (but that took awhile to get to work). I...

You could try something like this, on the got focus event you could set the value from the combo box to a modular level variable. The on the not in list event you could change it back to the modular variable. I think you are still going to get that message though but you could set it back to...

Put the code in a new module. Goto modules - new and paste it there. In not sure if 2002 uses ADO although its a pretty good bet. Here is some sample code using ado from the code librarian: Public Sub OpenMdb() ' Public Sub OpenMdb ' Purpose: ' This code sample demonstrates the...

Ironis, I think it has something to do with your hidden form. May I make a suggestion on a different path? I would create a public function in a module that would return the user's group. Such as: Public Function GET_USER_GROUP ()as string Dim rstGroups as recordset 'set the...

Change the recordsource of the report not the form. Go to the recordsource of your report by opening it in design view, opening the properties box, selecting the report, selecting the recordsource row and pressing the ellipse button ( ... ) to the immediate right of the properties line. When...

All in all, this looks fine, the only thing I can think of is your second bang (!) sign should be a dot "." What type of control are you using on your form? If you are using a list box add a ".Value" to the end, but all other controls should be like I have below. Try that. Also, as current...