Recent content by hermanlaksko

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

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 :)

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.

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

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...

Not sure what is in your "Me.Recordsource" but my guess is that it is a normal select statement. And the sql = Trim(Replace(Me.RecordSource, ";", "")) 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 *...

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...

I use this code to do that: Function OpenMDB() Dim Sti, hWnd As Long If Not WindowIsOpen("YourMdbName÷", True) Then Sti = GetDBPath & "MdbName.mdb" If Dir(Sti) = "MdbName.mdb" Then Shell "MSAccess.EXE " & Sti & " /CMD:" & Forms!Main!ID, vbMaximizedFocus Else hWnd =...

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 '...

I have over the years used this and expanded this code perhaps it can be of some use to 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 :)...

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...

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

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

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

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...