Search results

Oops sorry about that! Its this line - Set oRange = oSheet.Range("A1") Not sure what else it will fail on after that yet? I'll be back on here tomorrow now........

Hi, I had this working but now need to insert multiple rows for an item (Description) into either one record in Excel or each row into their own row while keeping PONumber, Supplier, SiteID, Date and Ordered for the same. The main form - frmPO has the continuous subform - StoresTempSubFrm on it...

Thats it!! I just didnt know how to combine the two but it all works. I had to add a bit into the view Certificate form as well to make only the correct Certificate display but it is working great. Thank you once again. And now onto the next problem..............

Good morning, Thank you for your assistance. I have an Employee Table and a Certificate Table joined by an EmployeeCert Table to give me a many to many. In the employee table i have EmployeeID (PK) EmployeeCert table i have EmpCertID and CertID as foreign keys and Certificate table i have...

The call works in the last code i posted. Other than that I don't know and that's why I am asking on here.

Hi and thank you for replying. So basically this code works fine and does what it is supposed to: Private Sub AddCertBtn_Click() Call AddAttachment("EmployeeCert", "CertImage", "EmployeeID", Me.EmployeeID) End Sub Public Function AddAttachment(strTableName, strAttachField, strIDfield As...

Hi, Can someone give me a clue here? Tried multiple things and its not quite there. I need to attach an image using the EmployeeID and also the CertID. Call AddAttachment("EmployeeCert", "CertImage", "EmployeeID", Me.EmployeeID " & " "CertID", Me.CertID) But it is failing at the ampersand...

Right, i'm going to put this on the back burner for a bit as I will have to check our details. Back once i have.......... Thank you everyone for your response.

So now i have this: Dim mailserver As String Dim SMTPport As Integer Dim mailusername As String Dim mailpassword As String Dim mailTo As String Dim mailsubject As String Dim mailBody As String Dim objEmail, objConf, objFlds Const cdoSendUsingPort = 2 '...

Thank you! Great explanation. Basically I just attempted to run the same form again after a while and it didnt work so now i am trying to get it working. So i have not managed to get it working since we changed to 365. I will have another go at it over the next two days, following your advice.

I'm just trying anything to find something that works but i don't understand it and even more confused after it was all working fine before 365?

Just trying this at the moment but it fails at the line 70 - Call SendEmailWithOutlook2(MessageTo, Subject, MessageBody) Saying Type Mismatch? Private Sub OrderValue_AfterUpdate() Dim MessageTo As String Dim Subject As String Dim MessageBody As String ' Dim mailTo As String '...

Yeah, it isn't hard to do. I will see what i can do and reply here. Thank you

I never had to use it before but the To address will always be the same person/people but from will always be different. As i said it all worked fine up until the company switched to online outlook 365

I dont know how i could have a from because its a multiuser database so always someone different? I suppose if i had to i could make a field for each users email address?

I looked at that earlier Arnel and i'm just as confused but i'll take another look

Ok so walking through the afterUpdate code section it fails at the .send with the error - CDO.Message.1 error '8004020d' At least one of the From or Sender fields is required, and neither was found I dont have a clue whats going on?

I had all this working perfectly from outlook before we swapped over to outlook 365. So from the form frmPO i have this code: Private Sub OrderValue_AfterUpdate() Dim mailTo As String Dim Body As String Dim Subject As String ' Dim attch As String Dim lngWhite As Long...

I will also look at both your last two options as well - Thank you guys!

This worked!! I ended up with this and it works: Dim strSql As String strSql = "Select * from Position1Qry where LocationRef = " & Me.LocationRef 'if numeric 'if string "Select * from someQuery where LocationRef_ForeignKey = '" & me.locationRef & "'" Me.Position1QrySubform.Form.RecordSource =...