Recent content by Number11

this was correct and worked If DCount("[Account No]", "Master", "[Account No] =" & Me!AccountNo)>0 Then many thanks

Thanks working now :)

in the table it is Account No and on the form the field name is AccountNo

Thanks but this is not working at all still, even if i try and eneter with say account number 999 it promps me but nothing in the table with that account number?

No its a number field?

same didnt work If not IsNull(DLookup("[Account No]", "Master", "[AccountNo] ='" & Me!AccountNo & "'")) Then

I am trying to get this to work, so the form has this and i want it to promp message if the customer is already on the database, but this isnt working it prompts even if they are not :( Private Sub AccountNo_BeforeUpdate(Cancel As Integer) Dim dr As VbMsgBoxResult If (Not...

So i have the query linked by the "Customer Ref Number" with criteria "is not null" - this bring me a list of all appointment requested not booked and not completed, but if an appointment completed was before the new requested appointment, this query currently does not show the new appointment...

brings no results at all :(

"Customer Ref Number"

Hi, So I currently have a query that looks at a table with appointment requests against a another table Appointment Booked and then another Table Appointments completed. What I need to do is only show appointment requests if the Appointment Booked and Appointment completed dates are greater...

Oh ok sounds good how would i go about setting this up

Ok so sometimes it falls over afte this point... .Attachments.Add "File name and locatin here" & Format(Now(), "DD-MMM-YYYY hhmm ") & ".xlsx" email is send without attachment so yes you are correct the If rst.RecordCount = 0 Then does stop if not records found, but the issue is that for...

Hi Thanks for your reply, so just want to stop sending email without the file attached?

Hi, so i have this code which is run from a button i need to stop the email from sending if no attachment has been made.. Dim rst Dim XL As Excel.Application Set XL = CreateObject("excel.application") Dim vFile vFile = "Template File Location Here" Set rst = CurrentDb.OpenRecordset("All") If...