Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. hermanlaksko

    Why does what appears to be a simple append query is pasting 5 duplicate rows?

    How many records do you have in the tbl: CVReferrals?
  2. hermanlaksko

    Hash encryption 64 bit

    I have the following code to handle hashstrings: Code Start: Option Compare Database Option Explicit #If Win64 Then Private Declare PtrSafe Function CryptAcquireContext Lib "advapi32.dll" Alias "CryptAcquireContextA" (ByRef phProv As Long, _ ByVal pszContainer As String, ByVal...
  3. hermanlaksko

    Convert PDF file to text

    Hi Combo Thank you for the code, witch I will test today :-) Happy easter
  4. hermanlaksko

    Convert PDF file to text

    Thank you all. I will give word an extra try :) I had hoped for some vba code, so if any of you have some surplus code in your library, that just is in the way I will happily take it of your shoulders :cool: wishing you all a happy easter :)
  5. hermanlaksko

    Convert PDF file to text

    Is there any vba code to convert PDF files into txt file - without using acrobat reader? I have searched the net but have, so far, come up empty handed, all seem to need adope acrobar. Thank you all in advance.
  6. hermanlaksko

    Open Word as ReadOnly

    wdApp.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges wdApp.Quit Set wdApp= Nothing
  7. hermanlaksko

    How to get 2 codes to work together.

    1. Duane is correct, you should use the filer in your SQL string (recordsource) as a WHERE string in the sql string, but that aside. (If you are unsure on how to get the correct result try and take your sql string in to a test query and drop it there - Create a new qry right click on it and...
  8. hermanlaksko

    How to get 2 codes to work together.

    ..."")) removed the end ";" (No $ sign needed) super that is the way, but what is this doing: If InStr(1, sql, "SELECT") <> 1 Then sql = "SELECT * FROM " & sql End If As i see it it will give you a select statement before your first select statement. Perhaps I am overlooking something, if...
  9. hermanlaksko

    WHERE clause in the Set command of an db.OpenRecordset method

    Try this Sub Test() Dim SQL As String, Re As DAO.Recordset SQL = CurrentDb.QueryDefs("YourQueryName").SQL 'The "SQL" will have the "string" from your query and you can add the where string or other things as you please. 'Also be aware that the last caracter of the sql string will be a ";" this...
  10. hermanlaksko

    switch between two open database

    ...vbMaximizedFocus Else hWnd = DialogGetHwnd("MdbName÷") If hWnd Then AppToForeground , hWnd, vbMaximizedFocus End If End Function...
  11. hermanlaksko

    Access send email attachments - problem when null or empty

    Ahh.. forgot the IsBlank function - but strongm's <>"" works just the same, however the IsBlank function checks for null, empty, etc. all in one. '*********************************************************************************************************************** ' Navn : IsBlank '...
  12. hermanlaksko

    Access send email attachments - problem when null or empty

    ...you. As you can see org. code was developed by Helen - If you do not know her look her up on the web, she is very informative and worth a visit :) '*********************************************************************************************************************** ' Navn ...
  13. hermanlaksko

    How to send email from vb.net program using modern authentication

    Perhaps this will help. SendMailMB(ToEmail, FromEMail, SubjectTxt, EText, , , , PDFfile, XlFil) Function SendMailMB(ByVal sTo As String, ByVal sFrom As String, sSubject As String, sBody As String, Optional sCC As Boolean, _ Optional sBCC As Boolean, Optional sReplyTo As String = "", Optional...
  14. hermanlaksko

    Outlook VBA - Trust access

    MSec = OApp.Application.CommandBars.ExecuteMso("MacroSecurity") ' Perhaps this i the line in access 2016
  15. hermanlaksko

    Outlook VBA - Trust access

    Try this Sub OpenTrustCenter() Dim MSec As Integer, OApp As Object Set OApp = CreateObject("Outlook.Application") MSec = OApp.Application.explorers.Item(1).CommandBars.ExecuteMso("MacroSecurity")' This will open the trustcenter for the user to change the current setting. End Sub
  16. hermanlaksko

    CTRL + BREAK from second macro button

    Perhaps I am overlooking something - but your "continue_macro:" does nothing - so either it should not be there or it should call "macro_timer" or something else [smile] Herman Say no to macros
  17. hermanlaksko

    MsgBox only showing in Ils test

    Hi Mikrom No its code in a .vb file. What I am trying to do is to get the code to show a msg var. places in the code so I know how far it is running. I have added msgbox's var places in the code (not shown above) like "Msgbox("Text 1")" etc. so it could tell me where it fails. My problem is...
  18. hermanlaksko

    messagebox is not declared

    Excellent and well explained - Thx for clearing this up Mikrom Herman Say no to macros
  19. hermanlaksko

    MsgBox only showing in Ils test

    This will not show the msg on screen - VB.net file called from vb code behind screen Try SMTP.Send(Mail) Retry = True Catch ex As Exception If Not Retry Then MsgBox("Failed to send email reply to _ " & Mail.To.ToString() & "."c, vbOKOnly, "Title")...
  20. hermanlaksko

    Delete an array element - HOWTO?

    Interesting question, it made me look around and I found this on stackoverflow So i tested it, and it does the trick: Sub DelEle(Ary, SameTypeTemp, Index As Integer) '<<<<<<<<< pass only not fixed sized array (i don't know how to declare same type temp array in proceder) Dim I As Integer, II...

Part and Inventory Search

Back
Top