Search results

Bruce, What is it you plan on doing with the output after you have it? There might be a different (possibly better) method of doing it to give you the results.

Try it without the Me.

I am sure the people who run this site would rather you use their product: www.accessdatabaserepair.com :)

Shell "PATH TO ACROBAT READER " + sFileName I think would work.

easy and api usually don't go together. ;) This doesn't remove them, but disables them from being used. Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Integer Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal...

You could create a blank query in my case called 'qryTemp'. Then assign the SQL of it like so: CurrentDb.QueryDefs("qryTemp").SQL = buildSQL(, txtLName.Text) Which would kick off this function: Function buildSQL(Optional sFName As String, Optional sLName As String, Optional sCity As String...

Private Sub cmdRunDeleteMacro_Click() On Error GoTo Err_cmdRunDeleteMacro_Click Dim stDocName As String Dim sMsg As String sMsg = "You are deleting records in 12 tables and are your sure you want to run the macro?" 'Should look like this If MsgBox(sMsg, vbOKCancel) = vbOK Then 'If they click...

You could combine these two great functions(below) from Dev Ashish: Like so Dim iLinkIsGood as Integer iLinkIsGood = fIsFileDIR(fGetLinkPath("PUT YOUR TABLE NAME HERE")) If iLinkIsGood = 0 Then 'Not good do your prompting here End If '***************** Code Start *******************...

Would it work to add a new column called StopTime and record what the stop time was rather than creating and maintaining two tables? Otherwise you would add an Autonumber field to each table. If you go with this method, however you have to make sure that each row is in the identical sort order...

Set a reference to Microsoft Scripting Runtime. Sub printFolders() Dim FS As New FileSystemObject Dim FSfolder As Folder Dim subfolder As Folder Dim i As Integer Set FSfolder = FS.GetFolder("C:\") i = 0 For Each subfolder In FSfolder.SubFolders...

You could check for the length of the text in the textbox on each 'KeyUp' Event for that textbox. Then you could warn the user that they are entering too much data for that field. You would also have to reset the text in the textbox to the left 8 characters that were originally in there.

Do you need to have [Project ID] in the dropdown box? If not then change your combobox query to: SELECT NEW_ID.[Work ID] FROM NEW_ID GROUP BY NEW_ID.[Work ID]; If you need to have [Project ID] in there than you are stuck displaying all the records. Also it is good practice to not have...

Hopefully it doesn't cause problems with other applications. :) We have one application that runs fine on pc's with older versions of certain dll's/ocx's, but the users who have newer versions cannot run it. Just an FYI. One I know that doesn't work is an application that uses the MS...

This line ,[PlanDespDate] = " & PlanDespDate & _ be formatted as a date like the other date lines. Are all the columns below numbers? If not you will need to surround them with quotes or apostrophes. " ,[Qty] = " & Qty & _ " ,[Shift] = " & Shift & _ " ,[TransMode] = " & TransMode & _ "...

I am not sure if this would be the 'right' way to do it, but it does work: UPDATE Table1, Table1 AS Table1_1 SET Table1.Field1 = [table1_1].[field1] WHERE (Table1.Field2="2") AND (Table1_1.Field2="1")

On the Toolbox toolbar (where you click to add the buttons, labels, etc) there is a button with a Magic Wand and some stars. Click on that. If it is depressed (default) then the wizards run. If it is not depressed then they do not run.

You would have to modify the function to accept those parameters. It is written to test for the current database only.

Me.transvalue > Me!FrmDestination.Form.sumtransvolume Or Me.transvalue < Me!FrmDestination.Form.sumtransvolume I think this is the same thing: Not (Me.transvalue = Me!FrmDestination.Form.sumtransvolume) or you could try Me.transvalue <> Me!FrmDestination.Form.sumtransvolume

Here is a method without using the & operator. Sub addNewText() Dim sTextToAdd As String Dim sCurrentText As String Dim sNewText As String Dim lTextToAdd As Long Dim lCurrentText As Long sTextToAdd = Nz(txtTextToAdd.Value) sCurrentText =...

It is more of showing pride for your country. No different than a Canadien saying Canada is still the greatest nation of all, or a German saying it, etc... Consider it less bragging and more pride and honor (for your country). Similar to Hockey teams saying they have the best fans on the...