To avoid getting an error when passing a variable to a form, using If Not against the EOF (I believe means End of File) property.
1 2 3 4 5 6 7 8 9 | If Not Me.Recordset.EOF And Not Me.Recordset.EOF Then Dim stDocName As String Dim stLinkCriteria As String stDocName = "someform" stLinkCriteria = "[recordnumber]=" & Me.[recordnumber] DoCmd.OpenForm stDocName, , , stLinkCriteria Else MsgBox "No Record Selected!" End If |
A simple way to strip out characters which can cause TSQL Code to break.
Assumes the SQL commannd is in sqlstatement and you are passing a variable in me.comment, before executing the code.
1 2 3 4 | 'Allows Characters such as , and ' which may break TSQL Code and Cause Injection sqlstatement = RTrim(sqlstatement) + ",'Me.comment & "'" 'Strips out characters such as , and ' sqlstatement = RTrim(sqlstatement) + ",'Replace(Replace(Me.comment, ",", ""), "'", "") & "'" |
Credit: http://tips.timscomputer.com/disable-powerpoint-2013-extended-display-mode-via-registry/
Disable the extended display mode upon login, same as the link just modified the version from 15 to 16
Run the following as a batch file upon login
1 2 | @echo off reg add HKCU\Software\Microsoft\Office\16.0\PowerPoint\Options /v UseMonMgr /t REG_DWORD /d 0 /f |
Credits (As what I consider the hard stuff was actually done by other people):
TheSmileyCoder for the solid awesome little VBS File, this basically gets around the limitation of not actually getting Access to load another Access Database. At the time I only ever needed one modification (A rarely issue affected two P4 machines with a 5400RPM drive and bloated AV software). More than likely WScript.Sleep(200) won’t be required and the original file can be used.
UtterAccess for the AddTrustedLocation code.
http://www.accessmvp.com/DJSteele/DSNLessLinks.html – AccessMVP (LINK BROKEN!) as for this loader I tend to use the DSNLESS code to remove the need to deploy yet another ODBC link to user machines.
VBA Tips and Tricks for the FileExists module.
About:
The following contains what I call the Microsoft Access 2010 Loader. It was put together to try and stop heavily used Microsoft Access database front ends from corrupting (We had a point where one particular Access front end would be corrupted up to 3 or 4 times a day as around 40 to 50 people would be in a 40MB Access front end at any time). The included version will require the table to be linked to a database, we use a central SQL database.
This access file will treat its own filename as the file it will launch, so be aware the loader and your actual access front ends needs to be located in different places.
What does it do:
It checks if a copy of the Access front end and VBS file exists locally (I use the %appdata% folder, you may want to use another location or %localappdata% instead)
If it exists it checks if the version in registry (HKEY_LOCAL_USER\Software\VB and VBA Program Settings\
If it doesn’t exist locally or the version does not match it then downloads from a location such as “\\myserver\access$\”
If downloaded the registry is updated with the new version number
It then passes parameters to a VBS file created by TheSmileyCoder and launches it
Limitations:
The first form of the called Access file MUST have VBA code of some sort or else the Access file simply closes.
I haven’t found a way to detect if a local copy of an Access ACCDR file has corrupt VBA.
I have found users copy and rename the loaders file breaking it, try and ensure shortcuts are used.
I haven’t been able to trap where Windows AD accounts have expired or locked, as the error occurs when Access connects to our central SQL database.
If the locations aren’t added to the Trusted Locations the user will be prompted twice to allow the Access files to open. The loader uses code to add this on first launch.
I sometimes find the repaints don’t always work.
Looking at the code used its a bit horrible looking, more than likely it can be optimized much better.
What do I need to change in VBA (Alt + F11):
Replaced in the VBA code “MyCompany” with your own on the main form and module SwitchFrontEnd.
Replace \\myserver\access$\ with where you will store your files (I used access$ as this is hidden if someone views the server)
If you don’t use .accdr files replace .accdr on the forms code
The actual files:
Microsoft Access Loader Files
Nearly every single Microsoft Access “database” I use has a proper database attached instead of using the internal Jet Engine, this means data is not actually stored in the Access “database” and I therefore call them Access Frontends.
Compiling your Access front ends to ACCDE provides a compiled copy of your Access Front End.
I find it is much harder for users to corrupt the Access front ends when compiled.
Making a compiled Access ACCDE file a runtime file is as simple as renaming the extension from ACCDE to ACCDR, all this does is make sure full installs of Microsoft Access launch in the runtime mode. It also means you can use the Access Runtime which is free from Microsoft (However always ensure you read through the EULA).
As runtime mode is used, its easier for development as I don’t have to hide menus.
To create an ACCDE from a Microsoft Access file, open the file in question, ensure your “Visual Basic for Applications” Code compiles otherwise the next step will fail.
Go to File –> Save & Publish –> Make ACCDE
Save the file in the location you want.
You can now rename the extension from ACCDE to ACCDR.
Now test the file launches.
This Outlook 2010 VBA code was used to impose a time when emails could not be sent and were instead delayed until the next work day.
This was put together (Credits go to key parts of this VBA are in the actual code) because the Managing Director where I work realised he was making people work outside of their core hours.
The script however will send emails if the email is set to high priority or if a user is in the email group “Send_at_all_times”.
Restrictions include having to sign the code (Otherwise Outlook VBA security has to be lowered), the other is since the code doesnt do anything fancy it will always send if someone it sends to is in the group “Send_at_all_times”.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 | Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) On Error GoTo Err_Application_ItemSend 'Credits for core script is https://www.mikesel.info/delay-outlook-mail-sending/ 'and http://www.vbforums.com/showthread.php?574491-RESOLVED-Outlook-VB-Macro-Deffered-Delivery-Time 'Credits for dist group grab is http://blogs.technet.com/b/heyscriptingguy/archive/2007/03/27/how-can-i-list-all-the-members-of-a-microsoft-outlook-distribution-list.aspx 'This script is to delay emails until the next working day if outside of reasonable hours. The script can be bypassed by sending emails with the importance level of HIGH 'There is also a group lookup to also always send if in this group. Dim obj As Object Dim Mail As Outlook.MailItem Dim WkDay, SendNow, SendtoAddress As String Dim MinNow, SendHour As Integer Dim SendDate As Date Dim emailItem As Outlook.MailItem Dim objOutlook, objNamespace, objDistList, colContacts As Object Dim i, j, intCount As Integer Dim groupaddresses() As String 'Grab list of contacts from Dist Group, done after importance check as important emails don't require this check anyway Const olFolderContacts = 10 Set objOutlook = CreateObject("Outlook.Application") Set objNamespace = objOutlook.GetNamespace("MAPI") Set colContacts = objNamespace.GetDefaultFolder(olFolderContacts).Items 'Grab email address being sent to Set emailItem = Application.ActiveInspector.CurrentItem SendtoAddress = emailItem.To 'MsgBox colContacts.Count & SendtoAddress 'Grab amount of users in email group and redim array Set objDistList = colContacts.Item("Send_at_all_times") ReDim groupaddresses(objDistList.MemberCount) SendNow = "N" 'Added a limit of intCount users to try and prevent any unexpected looping issues i = 1 For j = 1 To objDistList.MemberCount groupaddresses(j) = objDistList.GetMember(j).Name 'If address does not match anything in group address run code below otherwise skip If InStr(1, SendtoAddress, groupaddresses(j), 1) = 0 Then 'Should never happen but just in case trap going over member count to prevent an endless loop! If i <= objDistList.MemberCount Then i = i + 1 Else 'This error should never occur!! Bail out of For loop to prevent endless loop. MsgBox "Failed! More than " & objDistList.MemberCount & "users are in this group" Exit For End If Else 'Set SendNow to Yes as a match was found SendNow = "Y" Exit For End If Next 'Check if email is set to Normal or low importance 'Our requirement is for anything set to important to always send immediately, if not required comment out the if statement and the associated end if If emailItem.Importance <> olImportanceHigh And SendNow = "N" Then 'Code to check whether email needs to be delayed 'Set Variables SendDate = Now() SendHour = Hour(Now) MinNow = Minute(Now) WkDay = Weekday(Now) SendNow = "Y" 'Check if Before 8am If SendHour < 8 Then SendHour = 8 - SendHour SendDate = DateAdd("h", SendHour, SendDate) SendDate = DateAdd("n", -MinNow, SendDate) SendNow = "N" End If 'Check if after on or after 7PM If SendHour >= 19 Then 'After 7 PM amended to >= SendHour = 32 - SendHour 'Send a 8 am next day SendDate = DateAdd("h", SendHour, SendDate) SendDate = DateAdd("n", -MinNow, SendDate) SendNow = "N" End If 'Check if Sunday If WkDay = 1 Then SendHour = 8 - SendHour SendDate = DateAdd("d", 1, SendDate) SendDate = DateAdd("h", SendHour, SendDate) SendDate = DateAdd("n", -MinNow, SendDate) SendNow = "N" End If 'Check if Saturday If WkDay = 7 Then SendHour = 8 - SendHour SendDate = DateAdd("d", 2, SendDate) SendDate = DateAdd("h", SendHour, SendDate) SendDate = DateAdd("n", -MinNow, SendDate) SendNow = "N" End If 'Send the Email or Queue it if variable SendNow = N Set obj = Application.ActiveInspector.CurrentItem If TypeOf obj Is Outlook.MailItem Then Set Mail = obj 'Check if we need to delay delivery If SendNow = "N" Then Mail.DeferredDeliveryTime = SendDate End If 'Mail.Send End If 'End if for date checks Else End If Err_Application_ItemSend_Exit: 'Destroy Variables Exit Sub Err_Application_ItemSend: 'MsgBox Error$ Resume Err_Application_ItemSend_Exit End Sub |