Search results

You might try: Set objsheet = ObjExcel.ActiveWorkbook.Worksheets.Add(, _ ObjExcel.ActiveWorkbook.Sheets(ObjExcel.ActiveWorkbook.Sheets.Count))

Hello, Salbrox, To do this via the DOMDocument object method, you could try something like this: Dim xmlDoc As Object Dim xmlImps As Object Dim xmlImp As Object Dim xmlView As Object Dim xmlComment As Object Dim xmlNew As Object Set xmlDoc = CreateObject("MSXML2.DOMDocument") xmlDoc.Load...

Have you tried a different filename for each student? For the DoCmd.Output, use: DoCmd.OutputTo acOutputReport, "IndEquipOutRpt", acFormatPDF, _ "D:\PEReport\PEEquipRpt_" & CStr(StudID) & ".pdf" For the AddAttachment, use: objEmail.AddAttachment "D:\PEReport\PEEquipRpt_" & CStr(StudID) &...

You might try something like the following (substitute highlighted text with actual table/field names): SELECT COUNT(*) AS NUM FROM MyTable AS T1 WHERE EXISTS ( SELECT T2.* FROM MyTable AS T2 WHERE T2.person = T1.person AND (Abs(T2.date - T1.date) Between 1 And 30));

Hello, QuChe Yvonne, The easiest way not to show #Num! is not to divide by 0: =Iif(Nz([OT Hrs],0)=0, 0, Nz([OT Qty],0)/Nz([OT Hrs],0))

Hello, irade92, Check out the following link: FileCopy Function

Hello, QuChe Yvonne, You can not divide by 0; that is why you get the #Num! error.

You can use the Microsoft.XMLHTTP object methods. Here's an example for retrieving a list of items from a SharePoint site: Public Sub SoapExample() Dim objXML As Object, objList As Object, objItem As Object Dim vID As Variant, vTitle As Variant, vDefaultViewUrl As Variant Set objXML =...

This can also be accomplished with a second, lookup table, and a query with subquery. Assume tables like the following: Table1 ====== Participant | Experience ------------------------ Breese | 450 Alansidman | 900 Table2 ====== Experience | Level ------------------ 0 | 1 300...

Hello, InstructorGirl, You didn't highlight which line of the code is giving you the error, but it seems that the likely candidate is the statement referencing the WScript item, which indicates that the original code came from a VBScript application. Access VBA does not have a native WScript...

Check out the following link: Microsoft KB 194975: How To Read and Write BLOBs Using GetChunk and AppendChunk

Hello, manojjain, Paste the ShowDbWindow False statement in the Form_Load() event, and the ShowDbWindow True statement in the Form_Unload() event.

Good alternative solution, recyan. Would you care to explain, for ria.arora's benefit, what you did, and the concept of inline subqueries?

You need a union set between a query with Table 1 left-joined to Table 2 and a query with Table 1 right-joined to Table 2. You might try something like the following: SELECT [Table 1].RMName, [Table 1].AUM, [Table 1].AUA, Nz([Table 2].NNA, 0) AS NNA, Nz([Table 2].REV, 0) AS REV FROM...

You might try something like: SELECT IHead.ProductID, IHead.ProductName, IDet.LocationID, ILoc1.StorageLocation AS InventoryLocation iPhone.Location, ILoc2.StorageLocation AS iPhoneLocation FROM (((Inventory AS IHead INNER JOIN [Inventory Detail] AS IDet ON IHead.ProductID =...

What are the field names in Table StorageLocations?

Feeling anxious, a man took a hot bath. Just as he became comfortable, the doorbell rang. The man got out of the tub, put on his slippers and robe and went to the door. A salesman at the door wanted to know if he needed any brushes. Slamming the door, the man returned to the bath. The doorbell...

I'm glad to hear you got it to work. Would you care to share the changes you made to the code that got it to work, for the benefit of the other Users here?

You still haven't explained how you can tell the code doesn't work if there are no errors. Please tell us, step by step, what happens when you run the code.

How can you tell that it doesn't work if there are no errors? What is the value in DownloadURL? Do you have the statement Dim byteData() As Byte in your declarations? What is the size of byteData after you execute the statement byteData = XMLHTTP.responseBody? (hint: ?UBound(byteData) )