Search results

Thank you for all the suggestions, guys! I prefer to use the code below but it will not work. The records from tblDNATests is a standard set of tests used for all dogs and does not have a dogid field. After these records have been inserted into tblDNAProfile the DogID from the current form...

Hi there I need help, please! With the code below I add a set of records into a table tblDNAProfile. The added record have a null value in the DogID field. Next I want to update the DogID field in those records with the current DogID value. I don't get any errors and it does not update those...

This is for Outlook. I'm sending my emails through GMail.

This code was released by D Pineault on Youtube a while ago. The only thing he didn't include was attachments. Public Function GMail_Email(ByVal sTo As String, _ ByVal sSubject As String, _ ByVal sMessage As String, _...

Hi there I'm sending bulk emails through my Gmail account. The emails are sending but does not include the signature image at the end. Can somebody help me with the right code, please? Thank you! Private Sub CmdEmailReview_Click() Dim strText As String Dim HTMLBody As String Dim i...

Sorry, I did not see your last reply. I'll try that out now!

Thank you for your reply, ArnelGP. I get the same error without the For...Next Loop. I also want to be able to send the email to multiple clients.

So what you suggest is I should use a combo box instead of a list box. I want to be able to select multiple records which I understand can only be done with a list box. What do you suggest as an alternative?

"i" = 0, which tells me that it doesn't see the highlighted record in the listbox

Column 0 in my listbox is ContactID which is LONG. I'm using the exact structure on a different form without an issue. I removed the ContactID line using the debugger and it returns the fieldname, which is FirstName, in line 50 instead of the value. The same with line 80, which is...

I just added the following line and it returns a 0 value. Vartype (ContactID)

Thank you for your quick reply. Can you give me an example how to test it, please?

Hi everyone I'm getting a run-time error 13 Type mismatch on line 60 of my vba code. I'm very confused and not sure what is causing the error. Any help will be highly appreciated. Private Sub Form_Load() ContactList.RowSource = "" Dim SearchSQL As String SearchSQL = "SELECT...

Thanks for the advice. I have tried this but it only changes the font and the size for the first part of the body, which is "Dear ...." It does not include the Logo.png at the end of the email. Set FD = Application.FileDialog(msoFileDialogFilePicker) With FD...

Hi everyone I'm sending emails using the attached code. I want to format the strBody to a certain font and size. I do appreciate any help Thanks Set FD = Application.FileDialog(msoFileDialogFilePicker) With FD .InitialFileName = "c:\"...

I can't seem to get the focus back to the date field.

I tried it with the BeforeUpdate event and I get these error messages.

Hi there I'm trying to prevent the user to enter a date in the future. If the date is greater than todays date the field should be cleared and have focus again. Somehow my code is not working. Private Sub TreatmentDate_AfterUpdate() If Me.TreatmentDate > Date Then MsgBox "Treatment...

Thank you all for your suggestions. I certainly learned a few more things. I've decided to go with Cheekybuddha's suggestion and it worked as expected.

Hi everyone! I have a form which I use to allocate the puppies we have to a certain buyer. At the bottom I show the invoice, which is created in the after update of the CurrentOwner(cboBuyer) combobox. The InvoiceID is linked to the OwnerID and also have a field for the DogID which is stored in...