Search results

Hi Lagbolt, I have actually found some sample code from Allen Brown that will loop through and open each form in design view, and then loop thru the controls. What I can't figure out is if I can change the embedded image file programatically. I'd like to do something like this: If...

I need to replace the embedded image on a large number of reports and forms. I'm looking for a way to loop through all of the controls in my forms and reports and if the control is an image, replace the embedded image with a new one. Can this be done using vba? Thanks, Sup

Is there an easy way in VBA to loop through a recordset and determine if the text string in a text field includes numeric characters? I'm trying to do something like this: Do Until rst.EOF rst.Edit If Left(rst!FldText,10) contains any numeric characters Then rst!FldType = "Mixed" ElseIF...

Thank you Pat, sjdeetz & ions for your very helpful advice! It seems to me that A2010 is the way to go. Thanks, Sup

I've created a number of applications using Access 97, 2000 & 2003, which I distribute as an mde. Generally, they are attached to an sql server database and contain many forms and reports with quite a bit of vba code. I've resisted upgrading past 2003 because most of my users are still using...

Lagbolt, I wanted the user to have an option of using a right click shortcut or a button to move the records. The code you've shown me helps me do that. I appreciate your help very much! Sup

Mouseup has 2 issues that I've encountered so far: 1) with multiselect enabled and multiple selections made, mouseup deselects the "right-clicked" listbox item. 2) after mouseup is done, the MS copy/paste/properties menu pops up.

I'm trying to create a right-click event on a listbox that will copy selected listbox item(s) to a temp table. So far, I've got this code to acknowledge the right click: Private Sub List0_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = acRightButton...

I am importing various excel spreadsheets using the transferspreadsheet method. In cases where the format of an excel column is set to Accounting AND the value of a cell = 0 then it is importing as "$ -" rather than $0.00 which is causing me problems. In VBA, how can I check the formatting...

Sorry, I knew I should have separated the 2 lines of code. Dim strFilePath as String Dim strSheetName as String Dim strTbl as String Dim strFileType as String 'complete path and file name strFilePath = Me.txtFileLocation strSheetName = Me.txtSheetName 'temporary new import table name based...

Confusing? The value of strTbl is being extrapolated from the path to the xl file using the following code: strTbl = TmpTblName(Me.txtFileLocation) Function TmpTblName(strPath As String) As String Dim strFileFullName As String, strTblName As String strFileFullName =...

I just moved an application from A2000 to A2007 and I am having trouble with the DAO.tabledefs collection. Code that works fine in A2000 is failing in A2007. I am using transferspreadsheet to create a new table from an xl file. Before I do, I check if the table already exists (using the same...

The fncFormat function removes some characters and makes the result a string. My initial error was datatype mismatch, which didn't make sense because Table1.joinfield is definitely a string. Then I tried altering the sql quotes and bracketing and got syntax errors. VilaRestal your workaround...

I'm having trouble building an update query in vba. I need an Inner join between 2 tables where the joined field in the 2nd table is formatted by the function fncFormat. The table name and field name of the 2nd table are variables selected on the form that runs the query. Here is my code...

I appreciate the input! Thank you very much, Sup

Hi SQL, This is an older application using Access 2000 or 2003 as the front end. It was designed using an SQL Server 2000 database, so it is not using any of the new data types or other features of 2008. I don't use MS Enterprise Manager to maintain it. The database is hosted by a 3rd party...

Hi Chris, Thank you so much! It works perfectly! I appreciate your help, Sup

Hi Chris, Your code does exactly what I was trying to do! Unfortunately, some records get added and some produce an error 3265 - item not found in this collection. I tried to weed out what was causing the error, but I can't find anything that is obvious. There is a record that has a line...

Using VBA, I'm trying to loop through a dao.recordset based on a csv file. The file contains a zipcode field that may contain 5 digits like 11111 or sometimes a plus 4 like 11111-1111. The field in the recordset is being formatted as numeric, and I am getting an overflow error when it loops to a...

mdlueck - you are correct, the default sort order is now the primary key. Not sure how or why but while running on SQL Server 2000, a listbox using a query of employees with no order by clause sorted by last name. Now, in 2008, the same listbox sorts by ID (pk). I was hoping I might be able to...