Search results for query: *

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

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

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

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

Hi Mikrom Thk for replying to my Q Ok so as I understand you there is NO diff btwn the two MagBox and MessageBox? I was undet the impression that the latter had more options etc. Herman Say no to macros

I would like to use messagebox in my code but get the above error msg. I use MsgBox but think that messagebox is more flexable and have more features. Do I need a messagebox function to get this to work or what do I have to "import"? Herman Say no to macros

Thanks Strongm Yes it does, I would have liked to have the screestips but without the extra information. So only a ½ solution also I can not get rid of this on enduser pc's. But atleast I now know why and where :-) Thanks! Herman Say no to macros

Hi Combo What happens when F1 is pressed?, well the help screen appairs, but the point is to get rid of the option and text. If you have any idears on how to remove this please let me know - thank you in advance. Herman Say no to macros

Hi Combo No there is not add-in the ribbon is created from scrach in VBA/XML directly in a module. Herman Say no to macros

Hi Strongm Long time :-) The problem is not taking a screen dump, that bit is easy, the problem is that (as shown on my pic, above) the ref. to the form MrHide and the text "Press F1 to..." is there, for the end user, this information is useless so the question is, how to get rid of those two...

Yes Andy, my thourghts exatly :-) As you can see there is a ref. to the "hidden" form MrHide and a short text "Press F1...." How does one get rid of the ref. and the hlp text? Herman Say no to macros

When showing the screentip of the selected button I see a ref to the current open form and a small text "Press F1 for added help" can one get rid of this disturbing mesage that has nothing to do with the program/base as such. Herman Say no to macros