Here is a way to catch most outcomes of interacting with the dialog; Dim value As String value = InputBox(“Please enter a #”, “Determine Limit”, 10000) If (StrPtr(value) = 0) Then MsgBox “You pressed cancel or [X]” ElseIf (value = “”) Then MsgBox “You did not enter anything” ElseIf (Val(value) = 0 And value <> … Read more
For version 12.0 you need to install MDAC 2010 from here. This has to be done on the server where you publish your application. You need to install the x86 version if the target machine is 32 bit or the x64 version if the target machine is 64 bit and your application is built with … Read more
You can use the hidden system table MSysObjects to check if a table exists: If Not IsNull(DlookUp(“Name”,”MSysObjects”,”Name=”TableName””)) Then ‘Table Exists However, I agree that it is a very bad idea to create a new table every day. EDIT: I should add that tables have a type 1, 4 or 6 and it is possible for … Read more
In line with my comment above and the answer by Yawar, I’m not aware that Pass Through Queries are ever editable/updateable. They are editable in the sense that you can edit a save Pass Through Query object, but I don’t believe it’s possible for a Pass Through Query to produce an editable recordset. There are … Read more
It’s a bug in Microsoft VBA. But there is a workaround. Use F8 to run through the macro and find where it turns it off. It’s usually after a SendKeys. Then add an Sendkeys “{NUMLOCK}”, True after the line to reverse the effect. If you can’t find it, just add it at the end and … Read more
I did some testing and there does seem to be some buffering going on with ACE OleDb. I found that If I did some INSERTs and then immediately did a SELECT on the same OleDbConnection the new rows were available right away. If I opened two OleDbConnection objects, INSERTed on con1, and then immediately SELECTed … Read more
I dissent from both the answers. Don’t create a reference at all, but use late binding: Dim objExcelApp As Object Dim wb As Object Sub Initialize() Set objExcelApp = CreateObject(“Excel.Application”) End Sub Sub ProcessDataWorkbook() Set wb = objExcelApp.Workbooks.Open(“path to my workbook”) Dim ws As Object Set ws = wb.Sheets(1) ws.Cells(1, 1).Value = “Hello” ws.Cells(1, 2).Value … Read more
You are getting tripped up by the difference in LIKE wildcard characters between queries run in Access itself and queries run from an external application. When running a query from within Access itself you need to use the asterisk as the wildcard character: LIKE ‘*Ra*’. When running a query from an external application (like your … Read more
You can use recursion Public Sub colCtrlReq(frm As Form) ” Sets background color for required field -> Tag = * Dim setColour As String setColour = RGB(255, 244, 164) Dim ctl As Control For Each ctl In frm If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox _ Or ctl.ControlType = acListBox Then If InStr(1, ctl.Tag, … Read more
The best solution is obviously to use Windows security. If that is not suitable, here is a possible alternative trick, exploiting the fact that Access remembers all opened connections until the program is closed: copy the connect string of one of your tables create a passthru queries “ptqConnect” and enter any fast SQL statement in … Read more