Search results

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...

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...

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...

Now that's interesting. I ran it against my example of Smith, George B. Using Smith, George B as the input against the table that had it as Smith, George it showed a score of 1. Matching exact name against exact name of course scores 0. If I match the other way around it shows me 2.2. Which...

yeah, I don't control both tables, only one. the other comes in on a regular basis that I import. i tried the example - it just gave a null value in return.

Thank you, that wasn't what I was asking. In other words, tblPhone may have a user named Smith, George B and if I try to compare it against tblUsers who also has him but listed as Smith, George it won't match. An easy way to think is to do it in reverse but not possible as i'm trying to...

When trying to match people's names - sometimes with a middle initial, sometimes without - I'd like to try to wildcard each side of it. So this varProblem = DLookup("EMAIL_ADDRESS", "tblUsers", "EMPLOYEE_NAME Like '" & varString & "*'") but also something like this. varProblem =...

been giving it some thought. I'm thinking the result would be the same. I could just as easily assign a dim to what's passed via the txtUserID. What I probably need to do is unbound the form and set each location that calls it to do it via vba instead of macro.