Search results

Thank you, I actually got a loop to work properly so I didn't need it in the end. Fridays. bleh.

Hey folks. I'm a bit tired this morning and excuse me for this but the question seems so familiar - I just can't think how to frame the question properly to search for it, and I'm pretty much out of time to work on this project. I've got a sub that wouldn't compile due to it being 85kb vs...

@BobLarson I wanted to say thanks for your link. I don't know how many times I did this to myself and each time I come around to this thread. In my latest self sabotoge I did this. Set myRange = oDoc.Content With myRange .Collapse Direction:=wdCollapseEnd...

Thanks, i didn't know it was a virtual mouse selection. I reworked and went with this. strTextList = "Test1: , Test2: , Test3: " With oDoc.Tables(t).Cell(i, 1).Range .Text = "Implementation Status: " For iCheck = 0 To...

That worked, I could add multiple ones as well just adding onto it like this. oDoc.Range(.End - 1, .End - 1).ContentControls.Add wdContentControlCheckBox oDoc.Range(.End - 1, .End - 1).Text = " Test2 :" oDoc.Range(.End - 1, .End - 1).ContentControls.Add wdContentControlCheckBox oDoc.Range(.End...

Thanks for the reply, i'm getting a similar situation around the selection I think. This pops the error 91 - Object Variable or with block not set. oDoc.Tables(t).Cell(i, 2).Range.Text = fldControlNumber & " - " & fldControl_Title 'this is the main header type text...

my VBA dynamically writes several tables depending on criteria and works quite well. For example here is adding a row, formatting it and advancing to the next row. oDoc.Tables(t).Rows.Add 'add a row below control number...

No I called you out on exactly what you did and continue to do - your inability to see it doesn't matter much.

The inevitable movement of goalposts until it's boxed in a particular way to achieve only one possible outcome eh? You get to define recent years. Do mass killings only matter if it's in the last 2 years? Do they only matter if it's 5 plus or less than 10 but more than 6? When you talk...

No I don't at all, and I tend to not feed the anti-gun zealots using the 1st Amendment to say it's of more or less important than the 2nd. However, if you wish - tell me how it's harder to get a box cutter, gasoline or fertilizer than it is a weapon and ammunition.

It seems like you're asking for a join without the join. In other words you're trying to find a fieldname from the manufacturers table inside the assets table. Me.cboModel.RowSource = "SELECT model FROM Assets WHERE Manufacturers.manufacturer_id = " & varManID & " ORDER by model"Should be...

Box cutters and chemical sprays put the nation into a mourning yet recovered, gasoline around churches did some horrific things. Fertilizer killed far too many and how many needed to die from rope? Other 'developed' countries experience terrorism with or without weapons a lot more often than...

did you try escaping with replace? textSQL = "DELETE * FROM tbl_temp WHERE userName='" & replace(wUser,"'","''") & "'"

And nevermind - I got it. After "SaveWithDocument:=True i just needed to add: "Left:=-30," Or whatever value works.

So you got a lot of questions with a lot of possibilities. 1) bouncebacks - the way you have it set up, bounces will go to the sender. One way around this is to have each user set an email filter to forward bounce messages to one particular address. 2) Using Starbucks, wherever won't...

Hello, Having trouble getting access vba to set a word document's header properly. I've got this. oDoc.PageSetup.DifferentFirstPageHeaderFooter = True oDoc.Sections(1).Headers(wdHeaderFooterFirstPage).Range.InlineShapes.AddPicture "C:\Users\mr.helpless\Pictures\doody.jpg"...

Thank you, that did it.

I'm following this which works fantastically if I put in what the example says to to call ? NthXDay(dateserial(year(date), 1, 1),vbMonday, 3)But I need to set that dynamically. DateSerial part is no problem, it is the vb(Dayofweek) and the Nth of that day that I cannot get to work. Breaking...

ahh wow, yeah that was it. went the lazy route by creating it in query design to get it functioning properly and somehow it still took it.

I currently have this set as the forms default recordsource (which works just fine): SELECT TOP 5 tblUsers_Phone_Book.EMAIL_ADDRESS, weightedDL('me@mine.com',[EMAIL_ADDRESS]) AS Expr1and i have this vba to dynamically switch around that email address. Private Sub Form_Load() Dim intPos As...