Search results

Here's an alternative way to loop through your file - this will maintain the commas: Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile("c:\database\test.html") Set ts...

Okay, so I found where the breakdown is occuring in your commas missing. It's happening when you are parsing the file. Your Do While Not EOF(1) Loop is interpreting it as a comma delimited file so it detects the commas as EOL marker.

Sorry, just tested this - it's an outlook issue. The html file appears okay with the commas but in Outlook they disappear. Let me see how to handle this one.

For the commas not appearing issue you can try replacing the commas in your table with it's corresponding ascii code 44. You would have to modify your report query: something like this: SELECT Replace(YourField1,",",chr(44)), Replace(YourField2,",",chr(44)) FROM tblRenewalemail1. I'm not...

You can add this to your code to add the dear person: strHTML = "Dear " & rsE1!FirstName & ":<br><br>" & strHTML MyItem.HTMLBody = strHTML MyItem.To = rsE1!EMailTo

You'd have to post some code for us to determine what the problem is. Maybe there is some other event in your form that is kicking off after the requery that is clearing those? Not sure. Can you post some examples and code?

I just tried this in my copy and it works okay for me. Not sure why it's going to the next record in the store subform. Strange. There must be something else going on there.

Hi Marcie: Is your button on the main products information form? Make sure it's not on the subform. You can try this: Private Sub btnNextProduct_Click() me.UPC.setfocus DoCmd.RunCommand acCmdRecordsGoToNext End Sub

First off if you don't have a control source in the textboxes it's not going to stay updated once you move off the record? Is that the problem you are having - or does the value just not allow you to input it? What is your combo box bound to - does that have a control source

your where clause needs to be something like this: WHERE DateOfHire Between dateadd("m",-3,date()) and dateadd("m",-2,date())

Are you trying to use this in a query? Please post the syntax.

Do you have the controlsource of the textboxes set to those values. For example in the textbox control source does it say this: =Dlookup("address_No,"query2") and the other one =me.ComboCities.Column(2)? Or are you setting these values in code. You can't update a textbox that has an...

Try to use a between statement between dateadd("m",-3,date()) and dateadd("M",-2,date()) OR >= dateadd("m",-3,date()) and date <= dateadd("m",-2,date())

Can you explain further - what isn't working in your main form. Did you modify your main form so that it is using the new merged table. Are you getting any errors in your main form?

I have something set up like this also for users to be alerted when there is a new version. It's not a msgbox though - it's a dialog form that opens when new version is detected. It will continue to open until user checks the box. Message says "A new version is available. Please exit and...

You can change the query of your form to select * from yourtable where locked = 0 and username <> Environ("UserName"). This might cause issues, however, because the recordset is refreshed and static so you would constantly have to be refreshing the recordsource. Possibly try put this kind of...

Yes, the replace function removes the double-quotes so you aren't going to see them. If you want to actually update the field that has double-quotes and remove them you need to write an update query and then in the Update TO Row put that same function in there.

You need to refer to your form controls in the query as Forms!NameofForm!ControlName. For example in your cboCourseNoID.RowSource your query would look like this: SELECT tblCourseNo.CourseNoID, tblCourseNo.CourseNo FROM tblCourseNo WHERE DepartmentID = [Forms]![YourFormName]!cboDepartmentID...

What is the primary key of the table behind your subform? If EmployeeID is primary key you need to change it. the Employee Occurrences table should have it's own ID set to autonumber and make that the primary key.

You can use the replace function in your query: Replace([YourField],Chr(34),"")