Search results for query: *

I see this error right away: if (id = "fs2") Should be: if (id == "fs2") VBSlammer "You just have to know which screws to turn." - Professor Bob

It should support the scrollHeight property. VBSlammer "You just have to know which screws to turn." - Professor Bob

You might look at this thread: thread705-1007896 VBSlammer "You just have to know which screws to turn." - Professor Bob

I had a similar problem several years ago (Access 97) when a company switched from NT to Novell for their network servers, and we had to convert our long filenames to short filenames to fix the problem. Any file path that would be the same as either a long or short filename worked fine, so it...

See if this KB addresses your issue: http://support.microsoft.com/kb/304146 VBSlammer "You just have to know which screws to turn." - Professor Bob

I'm trying to put together a help system for a web app and I'd like to use an xml file for the data, allowing regions to translate the file and get help in their language. Has anyone done this - or is there a better way? Is XSLT an option? I'm wondering if anyone has a good example of how to...

Try something like this: Sub DeleteAllTables() Dim tbl As AccessObject Dim lngTotal As Long For Each tbl In CodeData.AllTables 'delete all but the system tables If UCase(Left(tbl.Name, 4)) <> "MSYS" Then DoCmd.DeleteObject acTable, tbl.Name lngTotal = lngTotal + 1...

On pre-XP versions of Access you can use the Active-X CommonDialog found in the system directory, filename: comdlg32.ocx There are also many examples around the Web showing how to use the API to do the same thing, although it's much easier to use the Active-X controls which can be dropped onto...

You might try using Mod to test for page breaks, such as: lngPlace = lngPlace + 1 If (lngPlace Mod 60) = 0 Then Me.txtPlace = 60 Else Me.txtPlace = (lngPlace Mod 60) End If VBSlammer "You just have to know which screws to turn." - Professor Bob

I would pass the argument by reference so it wouldn't matter which form called the function: Public Function TextGotFocus(ByRef tb As TextBox) On Error Resume Next With tb .BackColor = 11796479 'custom Light Yellow .SelStart = 0 End With End Function The form would call it like...

If you want to keep your table's field names, the spreadsheet needs to include the field names in the first row (maybe you already did this?): +---+-----------+-------------------+--------------------+---- | | A | B | C | ...

...Sub ImportFireFighterForms() Dim strPath As String Dim strFile As String strPath = "C:\FireFighterForm\" strFile = Dir(strPath & "*.xls") While strFile <> "" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tbl_Data", strPath & strFile, False, "DBOutput!A2:H2"...

Can't you change the query so it does the sorting before the transfer? VBSlammer "You just have to know which screws to turn." - Professor Bob

...db As DAO.Database Dim rs As DAO.Recordset Dim strSql As String strRecSource = Me.RecordSource Set db = CurrentDb strSql = "SELECT * FROM " & strRecSource Set rs = db.OpenRecordset(strSql) If OpenSQLServerConnection() = True Then While Not rs.EOF Call...

Use Memo fields. VBSlammer "You just have to know which screws to turn." - Professor Bob

The ADO Connection object contains an Errors collection, see an example of how to use it here: Extracting Error Information from ADO in VB VBSlammer "You just have to know which screws to turn." - Professor Bob

The printer object/collection didn't appear until Access 2002. VBSlammer "You just have to know which screws to turn." - Professor Bob

You have to use inch format, so multiply your values times 1440 (twips per inch). VBSlammer "You just have to know which screws to turn." - Professor Bob

The FileSystemObject in the "Microsoft Scripting Runtime" library has some good directory methods: Function DriveIsReady(ByVal drive As String) As Boolean Dim fso As New Scripting.FileSystemObject DriveIsReady = fso.DriveExists(drive) End Function VBSlammer "You just have to know which...

...Dim strSQLOut As String 'SQL string to create recordset based upon structure of SampOutput 'Set up SQL statements strSQLIn = "Select * from lausd_sis_fall04;" strSQLOut = "Select * from hseno_01_test;" 'Now open the connection to the current database conDB.Open...