Search results for query: *

You don't need the brackets if: 1. you do not have spaces in your table/field names, and 2. you do not use reserved words for your names. So, your SQL may simply look like: SELECT EmployeeID, LastName, FirstName FROM Employees ORDER BY LastName, FirstName;

Here are some suggestions (with possible solution): Set focus to MS Access database launched using VBA from another database

If you share your code (to open database B) I am sure there will be a simple addition to it to 'show B in front' of A

Depending on where you live, it may be beneficial to you to take your computer to a place where somebody have some experience in recovering files. They should have software to do it. And it may be a lot faster, cheaper, and more reliable than doing it yourself. And I would not focus on ‘Recycle...

By 'to go' - do you mean 'connect to B and get (Select) some records from some tables in B'? Or 'run some code in B'? Or 'transfer records between A and B'? Or... what do you want to do?

I would add: If Len(Trim(V & "")) > 0 Then AttachFile(V) and eliminate any possibility of one or several Spaces

You can attach an Excel file, lower-left corner: Just make sure all confidential data is scrambled / deleted / replaced / etc.

...= GetObject("winmgmts:\\.\root\cimv2") ' Query to get all installed printers Set colPrinters = objWMIService.ExecQuery("SELECT * FROM Win32_Printer") ' Loop through all printers found For Each objPrinter In colPrinters ' Check if the printer's port contains...

With your: With ActiveDocument.MailMerge .Destination = wdSendToPrinter Other options for Destination are: Name Value Description wdSendToEmail 2 Send results to email recipient. wdSendToFax 3 Send results to fax recipient. wdSendToNewDocument 0 Send results to a new Word...

Do you mean something like this: Sub RunBothMacros() Call label_query_to_print(pass your attr here) Call PrintToPrinterByIP End Sub or, do you want to use anything that label_query_to_print sets/gets to pass to your PrintToPrinterByIP ?

From TT Administrator:

Try something like this: strF = "Inv_Invoice_Dated BETWEEN #" & DatStart & "# AND #" & DatEnd & "# " strF = strF & " AND Number_Value <> true " strF = strF & " AND Inv_Pman_Lan_ID_WorkAt_Link = " & cbo_Landlord_Select Debug.Print strF Me.Filter = strF

Select ... From ... Where UniqueID = cbo_LL_Select.Value And StartDate Between txt_DateStart And txt_DateEnd And Val = chk_Val.Value

I assume you have Option Explicit at the top of your code and all your variables (sConnect, rsData, etc.) are declared somewhere, right?

sal21 / 2009luca, Based on the code strongm provided, you should be able to modify his code to get what you need.

Any example(s) of your attempt(s) to create this query? Show your work.

There is Microsoft: Access Other topics forum, if that's what you are looking for...

strongm, I will give it a shot and report back As a side note, I've just got the message that my original code started working all of the sudden. Everybody is surprised (me included) and they (users) give me a credit for fixing it (I will take it :) Who knows what had happened? Gremlins? Edit -...

Nice progress, thank you combo Your suggestion works - I had to replace some constants since I use Late Binding (wdReplaceAll = 2, wdFindContinue = 1) and I need to eliminate some extra code Option Explicit Sub outlookmail() 'Use the code from...

Interesting code, combo Tried this: With olEmail .BodyFormat = olFormatRichText Set olInsp = .GetInspector Set wdDoc = olInsp.WordEditor Set oRng = wdDoc.Range oRng.Collapse 1 'oRng.Text = "Dear someone," & vbCr oRng.Text = Replace(oRng.Text, "@PrimaryPhaseNumber@"...