Search results

I would like to create a calendar that shows when booking entries have been made on the calendar. Can this be done, if so how, has anyone got any examples?? Many Thanks

Maybe if i post the db (its in XP) someone will be able to understand my problem. I have stripped everything out but you have the form, try updating a the air craft details.

Ok i put this in Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("Are you sure you make the changes to this record?", vbExclamation + vbYesNo) = vbYes Then DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Else DoCmd.DoMenuItem acFormBar...

Can anyone help me, i have got he subform that when dirty will load the undo button on the main form but when this is clicked, it is undo the subform as it is saying this command or action cannot be done now, presuming that it isnt picking up the changes. Is there anyway i can say something...

I have a Qry that has a criteria of Like "*" & [Forms]![FrmSearch![Cmbo1] However on this field there are null field entries and even if the cmbo box is null it wont display these results. I tood out the & [Forms]![FrmSearch![Cmbo1] section and just left the wild card and again only...

I have a form with a subform, on the mainform there is an undo button but when someone makes changes on the subform the undo button wont run and the error message "The command or action Undo isn't available now". How can i get the mainform to detect that changes have been made on the subform and...

Ok that Worked, thanks you two for your help with this and making it a little easier to understand.

I have tried your code. It produces the Outlook Security message that another program is trying to use outlook, thats why the code i have may appear complicated but it avoids this issue. Outlook 97 doesnt have this security feature.

OK, i see how that works, however i didnt want to hardcode the message has a user may wish to change what the message says, so they can change it by editing the text file. Thats why i got the code to read in the file, that the users can change. The problem occurs when trying to combine the...

Ok i have stripped it all the un-neccessary stuff and works fine as xp except the bit i am trying to acheive. I dont have 97 so cant test it but hope the conversion went through fine. Thanks

Sorry baout the late reply, but here is my code and i still get the same error doing it the way you suggested. Public Function SendEMail() Dim db As DAO.Database Dim MailList As DAO.Recordset Dim OlApp As Outlook.Application Dim olNamespace As Outlook.NameSpace Dim OlFolder As...

I have re-written some code that will send an email without the outlook security notice, which works fine, However i would like to address each email with the persons name. With OlMailItem .To = MailList("EMailAddress") .Subject = "Harrodian Flyer NewsLetter" .Body...

Apologies i meant why the wild cards are not working, as it will only pick up the exact txt and not like?

Ok Thanks, but do you know it is recognising the wildcards? whole code is: If DCount("*", "[tblCustomers]", "[Surname] Like ""*" & Me.Surname & "*"" AND [First name] Like ""*" & Me.First_Name & "*"" AND [Company Name] Like ""*" & Me.Company_Name & "*""") Then Beep MsgBox "This name...

For some reason its not using the wildcards when the function is run, but picks up exact spelling, i.e. it will detect the record bunji but not bunji1 or 1bunji

Thats what i thought. For help in my understanding, i take it that the " is suppose to encapuslate each section of the function

OK i tried the following: If DCount("*", "[tblCustomers]", "[Surname] Like ""*" & Me.Surname & "*"" AND [First name] LIKE """"*" & Me.First_Name & "*"""" AND [Company Name] LIKE """"*" & Me.Company_Name & "*""""") Then But get en error stating that i calcelled the previous opreation.

Is it possible to put a like "*" me.Name "*" in a dcount My Dcount is: DCount("*", "[tblCustomers]", "[Surname]= '" & Me.Surname & "' And [First name] = '" & Me.First_Name & "' And [Company Name] = '" & Me.Company_Name & "'") I tried adding this but not If DCount("*", "[tblCustomers]"...

I have created my append query (qry1) that works fine, but would like it to check to see if an entry may already exist in tbl2 based on three fields. (CompanyName, FirstName, Surname) I would then like to show the ones that aren't appended because of duplicates, but append the rest. Can this...

Apologies it does work, because i renamed the combo box i forgot to change the code!! Thanks for your help everyone!