Search results

I've gone brain dead for the last hour trying to figure out how to parse out the street address from a string. Tried InStr, Left, etc., but keep getting into dark places. As an example, the address might be: 1 State Street, Anywhere, NY 1001 I know how to get the city state and zip just can't...

I don't know if I can answer that question. The Telephone field is a text field with the input mask of !\(999") "000\-0000;0;_ When pasting the text (number) into the telephone field it is only a continuous string. The control on the form shows it to be (XXX)-XXX-XXXX. In any case, my...

Update: Using the function found in a previous post, fStripIllegal, which I modified to include some additional characters, I went through my usual trial and error method of solving problems and came up with the following function. First I added an unbound control to the form and called it...

No, I am getting a number from a web page and copying it, then pasting it to the forms telephone number field. I was hoping that there would be a simple anser for this, but perhaps I need to have an unbound field, to which I copy the formatted telephone number then when I do something like...

I have been trying to figure out a way to copy a telephone number that is usually in the format (800)-555-1212 into a form. The form is formatted for telephone numbers so the input mask is (???)-???-????. Right now when I copy the number to the telephone control it only pastes the area code...

Finally figured out that this will parse the first word of a string and not throw the error message. Org: IIf(InStr([Organization]," "),Left([Organization],InStr([Organization]," ")-1),[Organization]) Going to see if MajP's suggestion applies to me. But not tonight.

Trimming won't work. Trying to see if there is for example, Bob's Burger Barn and Bob's Burgers or Bob's Barn.

I want to compare two large lists where the Organization name is the same. Unfortunately the names may not be exactly the same thus I am attempting to parse the first word in each list against the other. Thus I thought if I could get the first word in a string that I could at least determine if...

Thank you for all your replies and suggestions. The only reason that I thought about this is that sooner or later I will give up my assistance to the users of the DBs and didn't want to burden them with unnecessary coding. Like me, early binding was easy to figure out. You just added the...

Yes, that is why I had to use late binding foe a while. Now testing all the code to make sure all,is ok 2hen I added b@ck the old references.

Thank you

When all the computers at work were upgraded to Windows 10 and Office 365 and I still had my old machine with Office 2010 at home where I do my coding, I had to start using late binding because of some issues with Office 2010 programs; not all of the computers at work were changed over to the...

Got it! Alt least if does what I want it to do. Dim dbs As Object Dim rst As Object Dim lngPK As Long Dim booValueFound As Boolean 'booValueFound = False lngPK = Me.NumberID Set dbs = CurrentDb 'Set rst = dbs.OpenRecordset("qryNewNamesSequential") Set rst = dbs.OpenRecordset("tblNewNames")...

I think I almost have it except for one glaring error. The following will open the next sequential record that exists but unfortunately doesn't stop there. It gets hung up and seems to be in an endless loop. (Both the table and the query result in the same thing – either one will give me the...

I have the following code to search for a record based on its record number. What I want to do is modify the code so that if a certain number is not found I want to open the next sequential record. I.e. if record number 80 is not found, then open the next record in sequence which may be 85. (I...

Thank you. I knew it was something simple but I was brain dead for a while.

I tried to modify the code found on BaldyWeb that opens a record set and includes all the records. So far I have gotten to this but nothing happens. I definitely have records where the Organization name begins with B. If I could get this to work then I could use a letter picker to change the B...

Thank you. However when I debug, the term Private Const throws this error message: "Compile Error, Invalid Attribute in Sub or Function"

I am getting the error message, Compile Error, Variable not Defined as follows: (shown in red) config.fields(cdoSendUsingMethod).Value = cdoSendUsingPort config.fields(cdoSMTPServer).Value = "smtp.gmail.com" config.fields(cdoSMTPServerPort).Value = 465 config.fields(cdoSMTPUseSSL).Value =...

Forgot to include this.