Search results for query: *

Dim TempUnits as DispHTMLElementCollection Dim item as HTMLInputElement If you get an error on item change in back to a variant/object and use TypeName()or the Object Browser to see what type of object it is. Hope this helps, CMP For the best results do what I'm thinking, not what I'm saying...

AndyHHHH, Two thoughts, code should be close based on your sample. Option 1 For TdElement = 0 to xData.length Step 4 ... Next Option 2 For each TrElement in x.Rows Set skuData = TrElement.cells(2) Set qtyData = TrElement.cells(3) Next Hope this helps, CautionMP For the best results...

chemebabak, TempUnits is a DispHTMLElementCollection of HTMLInputElement's You will need to loop through the Collection... Dim item ... For Each item In TempUnits 'TempUnits.Value = "F" If item.Value = "F" Then item.Checked = True Next item ... Hope this helps...

kalle82, The result of (InStr(C, "<TD>Förnamn:</TD>") - 20) is -20 because <TD>Förnamn:</TD> Doesn't exist in the HTML source. Instr() requires an exact match so (InStr(C, "<td class=""ledtext"">F&ouml;rnamn:</td>") - 20) should give you the result your looking for. You may find it easier to...

ajaeger, I think DoCmd.OutputTo is the easy solution since it more closely matches what your doing through the UI. Hope this helps, CMP For the best results do what I'm thinking, not what I'm saying. (GMT-07:00) Mountain Time (US & Canada)

The last argument is your catch all, just needs to be any expression that evaluates True (since False = 0 you should be able to use any other integer, positive or negative.) DivAbr: SWITCH(([BLOCKNAME]="640-10", "UTFRI", [BLOCKNAME]="740-10", "Something", [BLOCKNAME]="840-10", "SomethingElse"...

Application.ScreenUpdating For the best results do what I'm thinking, not what I'm saying. (GMT-07:00) Mountain Time (US & Canada)

If the group mailbox is setup to open as an additional mailbox in there default mailbox you should be able to use something like this: Set oFldr = oOutlook.Session.Folders.Item("Mailbox - Group Mailbox Name").Folders("Inbox") If the group mailbox does not open with the default mail profile then...

This is more error avoidance. Coding from memory so it may need tweeking... ... Dim strFilter As String, strPath As String strFilter = "Name=""LinkedTableName""" strPath = DLookup("Database", "MSysObjects", strFilter) If Dir$(strPath) <> "" Then 'Update your caption here End If ... Hope this...

FYI: multiple IIf's = Switch() function.

Your code looks good, and setup for use? VBA.FileASystem might be easier to use. FileDateTime("\\xxx-xx-###\xxxxx_xxxxx\Data Links\BFMreset.csv") Hope this helps, CMP For the best results do what I'm thinking, not what I'm saying. (GMT-07:00) Mountain Time (US & Canada)

Range argument: TransferSpreadsheet(TransferType, SpreadsheetType, TableName, FileName, HasFieldNames, Range, UseOA) Use the TransferType of acImport Hope this helps, CMP For the best results do what I'm thinking, not what I'm saying. (GMT-07:00) Mountain Time (US & Canada)

Following the thread I agree with Andy. Couple of thoughts for speed.I beleive that Scripting.TextStream.ReadLine understands Carriage Return (Cr), Line Feed (Lf), and CrLf terminators for rows and works much the same as VBA.FileSystem operations.Use ADO. You can query a text file directly and...

In the property page for the module try changing the Instancing from Private to PublicNotCreatable. Hope this helps, CMP For the best results do what I'm thinking, not what I'm saying. (GMT-07:00) Mountain Time (US & Canada)

Dim astr() As String Split("Paula's Home Cooking - ''House Warming'' (Recorded Sep 18, 2009, FOOD).TiVo", "''") Debug.Print astr(1) For the best results do what I'm thinking, not what I'm saying. (GMT-07:00) Mountain Time (US & Canada)

filmgall, Sounds like overkill, can you use the Parent/Child relationship between the main form and sub-forms to handle the filtering? Just a thought, CMP

...As Object ... Set objAnchors = objIE.Document.Links If objAnchors.Length <> 0 Then For Each objAnchor In objAnchors If objAnchor.href Like "*viewthread*" Then objAnchor.Click While objIE.Busy: Wend While objIE.Document.ReadyState <> "complete": Wend 'Do your...

A range is an array (which you seem to know based on your sample) so why not skip the array building all together and just work with the range objects? I'm having a hard time following all the range/array relationships but I think this should be pretty close. If so I leave the rest of the...

...= Path End If 'Make sure the syntax is correct If Right$(strPath, 1) <> "\" Then strPath = strPath & "\" strFile = Dir$(strPath & "*.mdb") 'DoCmd.SetWarnings False Do While strFile <> "" DoCmd.TransferDatabase acImport, , strPath & strFile, _ acTable, strcSource...

9August84, Take a look at faq707-6400, it shows how to log into a website and move date into Excel using Tek-Tips as the target. GetMyTekTipsReplies is an example of what your looking for. Hope this helps, CMP For the best results do what I'm thinking, not what I'm saying. (GMT-07:00)...