Search results

Hello All, I'm dealing with a Real Estate db. One table (tblProperties) holds all available properties and their information, another table (tblRequests) holds all clients and what they're looking for. I need to create a report for each client (from tblProperties) based on the information...

Sorry, not yet. Things have been quite hectic around here lately. I hope to get a chance soon. Thanks again.

Mr. B., You solution works well (as far as I can see, Thank you very much.

So I'll try this: Private Sub chkRed_AfterUpdate() If Me.chkRed = True Then If Nz(InStr(txtColor, "Red"), 0) = 0 Or txtColor = "" Then If IsNull(txtColor) Or txtColor = "" Then txtColor = txtColor & "Red" Else txtColor =...

So far it works as expected, but I'll keep my eyes open.

Ok, here we go: Private Sub chkRed_AfterUpdate() If Me.chkRed = True Then If Nz(InStr(txtColor, "Red"), 0) = 0 Or txtColor = "" Then txtColor = txtColor & "Red, " End If ElseIf Me.chkRed = False Then If InStr(txtColor, "Red") > 0 Then...

Dr. Access, Thank you, I will give it a try. vbaInet, Is this what you had in mind: Private Sub chkRed_AfterUpdate() If Me.chkRed = True Then If InStr(txtColor, "Red") < 0 Or IsNull(txtColor) = True Or txtColor = "" Then txtColor = txtColor & "Red, " End If...

I guess I'm just dense...

All that and more (for example; when it returns 0) I read in the help files. My current problem is I can't figure out how to use the InStr() function to determine if the text exists in txtColor. I got something to work but it is not the right way of doing it. Here's my code in all its warped...

Is anybody aware of a way to save gmail attachments based on the senders email (for example only save attachments sent by abc@gmail.com). I prefer a method that doesn't require outlook. Thanks in advance.

Ok it must be simple but I still (after spending more time than I would have liked to) can't figure it out. Can I please have another hint?

So my use of InStr is wrong. What is the proper way?

I hope so, we'll see when I get there.

I've discovered that it will only add the text if the text box is not null, any idea why, and how to get around it? And the removing text part skips the Replace line, to get around that I changed it to this: If InStr(txtColor, "Red") = True Then ' do nothing Else...

Printing to paper and or emailing using cdo.

Double oops... Crystal clear. Thanks for your patience and help. So using the above code with your amendment, why doesn't anything happen when the check boxes are updated?

Is something like this what you're referring to: Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset(tblContacts, dbOpenDynaset) Do While Not rs.EOF Docmd.OpenReport "ReportName", acViewPreview, , "WHERE condition"...

Oops... Won't Replace() replace the entire string?

I don't understand. The text box may read: Green, Blue, Red, Yellow, Black, Purple What should I replace the above with, I only want to remove "Red, "?

This is what I tried but nothing happens, the text is not added to the text box, and neither is it removed (if manually typed in): Private Sub chkRed_AfterUpdate() If Me.chkRed = True Then If InStr(txtColor, "Red") = False Then txtColor = txtColor & "Red, " End...