Recent content by Derek

  1. D

    Solved Checking if all assessment questions have been answered in the subform

    Thanks MajP. I managed to fix the issue !
  2. D

    Solved Checking if all assessment questions have been answered in the subform

    I have written the following validation code but it works if none of the assessment questions are answered but if one of them is answered then the code doesn't check for other unanswered questions : Private Function ValidateForm() As Boolean Dim strString As String Dim strsql As String If...
  3. D

    Solved Checking if all assessment questions have been answered in the subform

    Hi All, I have a subform within a form that pulls through all the assessment questions . There is a frame with 3 options (Yes/No/NA)for each question . I was wondering the below validations can be added : 1.None of the questions are left unanswered by the users when they press Save button 2...
  4. D

    Runtime error 48, erro in loading DLL

    Yes I can go to bookmark word document but the below line is giving error in loading DLL message: Set bk = WordDoc.Bookmarks("InsertTable")
  5. D

    Runtime error 48, erro in loading DLL

    Thanks - The code stopped working since few users got migrated to office 2013 . most users are on office 2010 and they are also getting the same issue now. I tried ticking andf unticking the references as suggested but no joy. Now I tried few things , amended the code as below and it works...
  6. D

    Runtime error 48, erro in loading DLL

    Hi guys, I am getting a very strange error message . My code has been working fine without any issues for years but now I keep getting this error message. The error comes when I try to extract data from access form to the word document . Please see below the code: Dim wa As New...
  7. D

    Outlook macro to extract data from emails to .txt file

    Can you tell me what change needs to be made ? I tried different ways at my end but no luck :(
  8. D

    Outlook macro to extract data from emails to .txt file

    Hi All, The below macro works fine and extract the data from emails into .txt file . The only thing not working is question number 3 "Do you think you’ll be able to start making your full monthly payments again after 3 months?" has got apostrophe sign and the macro is not considering it a...
  9. D

    Extract email body contents into .txt file

    Yes It worked fine . Added another replace command to replace chr(34 ) with "!!". Thanks so much :)
  10. D

    Extract email body contents into .txt file

    Thanks . Can you please send me a line of code ?
  11. D

    Extract email body contents into .txt file

    Where shall I add another replace ? I just need to replace double quotes with '!!' sign for email part only .
  12. D

    Extract email body contents into .txt file

    Hi guys, I got the script to extract data from email body to .txt file working . But there is email field in the body which contains email address and it's getting stored into .txt file in the format HYPERLINK "mailto:A11x@hotmail.co.uk"A11x@hotmail.co.uk Is there any way I can change double...
  13. D

    Solved Remove 2 blank characters from account number in pdf file name

    Sorry I added Len function to test the number of characters in account number . I have taken it off now . There are 2 spurious characters at the start of the filename . don't think they are spaces but some other special characters . How can I take off first 2 characters from the string?
  14. D

    Solved Remove 2 blank characters from account number in pdf file name

    Hi guys, I have written outlook vba code to save all the emails down in pdf format in a folder with specific naming conventions . The PDF file names need to start with Account number but when the files get saved down then there are 2 blank characters appearing in the beginning of file name . I...
  15. D

    Check if the first 9 characters of subject line is 'FORMIMAGE'

    Yes I have tried that as well nut no joy :( For I = (SubFolder.Items.Count - 1) To 0 Step -1 'Set E_Mail = strInboxFolder.Items(I) Set myItem = SubFolder.Items(I)
Top Bottom