Search results

Have this code, but doesn't' work If Range("Q:Q").Select = Yes Then sBody = "Hi" & " " & vbCrLf & vbCrLf & "Here is the monthly invoice # for" & " " & wksht.Cells(rw, "Q").Value & "." & "As per your instructions we will withdraw the amount from your loading wallet. " & vbCrLf &...

I have this code, but I don't know why works somtimes and sometimes doesn't for example, is if auto collect is checked, should pick "as per your instructions" if not the other message, but doesn't work all the time, any idea? thanks Code: If Me.txtBody > 0 Then 'If Len(Me.txtBody &...

I have this code, How can i Underline and bold just part of the message, Here it's the code: sBody = "Hi" & " " & Me.txtFirstName & "," & vbCrLf & vbCrLf & "Here is the monthly invoice # for " & Me.txtCompany.Column(1) & "." & " " & "advise us if you would prefer to wire us payment to our...

Hi, I have A/R access database and in Excel i have Statement of Account Spread sheet, from Access i would to attach not the whole spread sheet but just the statement as body message of the email. any suggestion example of vba code to do so. thanks.

i have this code for some reason never put the message even if the checkbox is checked, would you please help me in what i need to change in order for it to work: here it's the code: If txtBody >= 0 Then sBody = Me.txtBody Else If Forms![Contact Details]![Auto Collect] = True Then sBody =...

i have customer database and got userform with listbox, but every time open form and click a record on list box get the run time error, could not find the specified object, and highlight this line (in red): Private Sub ContactForm_Click() Dim say As Long, a As Byte For a = 0 To 11...

I have browse button to attach multiple files, even if I select multiple files and only show one in the textbox attachment, if add this line more than once on the send button, oEmail.Attachments.Add Me.txtAttachment.Value when click send it repeats same file, how can i select multiple files to...

I have a form with combobox to find companies and in the form, also in the form there's a check box for terminated/inactive companies, how can I make it if the check box is checked not to show the company in the combobox and if want it to enable back, how? The combo has afierce update macron...

I have this code works fine, but when sending invoices will be easier to drag and drop the files being attached into a textbox because i use two monitors, also if just show the files names instead of folder in the textbox. is it possible? here it's the code: Private Sub btnBrowse_Click()...

Hi, I have this code that i want send as body message in email but i want to pickup the company name according the company i am sending the invoice, but giving me error 2465 cannot find the field, Here it's the code: Private Sub btnSend_Click() Dim oApp As New Outlook.Application Dim...

how can i create a vba code to send email to current record in the form with body message and cc as well. is there any sample code to start with? thanks

how can set a text box default value to this in access forms: Here is the monthly invoice # for [Contacts]![Company] . Please confirm if we may collect the payment from your wallet. Please contact me if you have any questions.Thanks. thank you

how can i change the message line of this code to display no only column c details but also column "D" and "E" and popup dialog. Here it's the code: Dim lstRow As Long Dim i As Long Dim msg As String msg = "Alert!!! The following schedules need attention, payment will be due soon:" & vbCrLf &...

I have a user form with a listbox at the bottom of the form, I want to able to select a record to edit or ad new record but when I select the a customer the form fields doesn't shows the record on form to edit. here it's the code on listbox: Private Sub ARLIST1_DblClick(ByVal Cancel As...

I have a user form with list box at the bottom and when i click in a record in list box i get this error: run-time error '-2147024809 (80070057) Could not find the specified error message says: Could not find specified error, and when click debug goes this part of the code: Private Sub...

I am getting this message when I exit a userform, Run Time Error 424, object required, Code: Private Sub CommandButton4_Click() ProgressBar1.Visible = True For i = 1 To 10000 ProgressBar1 = i * 100 / 10000 Next ProgressBar1.Visible = False Application.Visible = True Unload Me End Sub Please...

Hi, I have a user form (Attaching picture of it) the problem I am having is doesnt' show the the record of the last two boxes, is blank even though there's record in excel cell, Here it's the code for the userform: Private Sub UserForm_Initialize() Sheets("ContactsInvoicing").Activate...

Every time i search for customer name i get this error: run-time error '1004' application-defined or object-defined error excel 2013. here it's the code: If ComboBox1.Value = "" Or ComboBox1.Value = "-" Then MsgBox "Choose a Filter Field", vbExclamation ComboBox1.SetFocus Exit Sub End If For...

I have userform when I search by Customer I get the run time error 380 could not set the list property, invalid property value Here it's the code: Private Sub CommandButton5_Click() 'Search Button Dim sat, s As Long Dim deg1, deg2 As String Sheets("ContactsInvoicing").Activate...

Hi I have this code from another excel file, How can i add this code to the the userform "ContactForm" for the file Contact list for Invoicing-Demo2.xls which I am attaching it. Here it's the code I would like to add the above so I can double click on the customer and send an email: Private...