I am attempting to reduce the number of repeated Dim statements in my code and instead declaring Public variables at the top of modules. For some reason, the debugger breaks on the following line, even though the variable is clearly declared at the top of parent module: VB.net strReponse = vbYes The variable is publicly declared as: VB.net Public strResponse As String Why might the VBE debugger not see the public declaration ..read more

I'm receiving the Json string after sending the data below the problem is how grab the received field to be part of the table as indicated below: Text Public Sub CmdCwrite_Click() Call CmdTotalClasses_Click Dim db As DAO.Database Dim rs As DAO.Recordset Dim Company As New Dictionary Dim strData As String Dim Json As Object Dim data As New Dictionary Dim transactions As Collection Dim itemCount As Long Dim Details As Variant Dim strDataAudit As String Dim i As Long Dim n As Integer Dim Z As Integer Dim item As New Dictionary Dim items As New Collection Dim prm As DAO.Parameter Dim qdf As DAO ..read more

In the following procedure, conditions are such that everything above the numbered lines is not executed; however, I suspect that if conditions were such that the code entered into one of those If or ElseIf blocks, the same line(s) would produce the same error. VB.net Public Function Reconnect_Linked_Tables() 'CHECK TABLE LINKS AND RESTORE LINKS IF NECESSARY IN PRIORITY OF NETWORK BACK-END, LOCAL BACK-END, BACK-END IN THE SAME FOLDER AS THE OPEN FRONT-END, & FINALLY THE CURRENTLY LINKED 'BACK-END (IF NEITHER NETWORK NOR LOCAL NOR SAME FOLDER) 'IF AN ERROR OCCURS, MOVE TO & PROCESS TH ..read more

Hi have a client who contacted me, saying the below "I set up several company email addresses last year, purchased through 123reg.com and transferred over the Microsoft 365 accounts. The problem is, I have forgotten the password the global admin account and I haven't set up a 'backup/alternative' email address password resetter. Also, it always refers me to Administrator to reset the passwords, I have no clue who or which account I have linked it to." Ive figured an email address that seems like the admin ACC but canoot be sure, however I tried doing the reset password and followed all the ste ..read more

Hello. I am attempting to add objects to an array, but only one object gets added. The objects each have five attributes that are taken from a table. There are three records in the table; however, only one is added to the array. The loop through the table is working, and so is the assignment of property values to the array variable. I just can't seem to add more than one object to the array. VB.net Dim db As DAO.Database Set db = CurrentDb Dim rstVersions As DAO.Recordset Dim strSQL As String strSQL = "SELECT * FROM ltblVersions" Set rstVersions = db.OpenRecordset(strSQL) Dim intVersionCoun ..read more

Hello. I have a form that contains three sub-forms (all data table forms), but only two of these sub-forms are the subject matter of this question. In one sub-form, I have a line in the Form_Current event that re-queries another sub-form: VB.net Me.Parent.Form2.Form.Requery I need to capture the number of records displayed in the second sub-form and use the result to perform other actions on the main form; however, the following code in the first sub-form's Form_Current event always produces a zero result: VB.net strSQL = "SELECT COUNT(*) FROM Subform[2]RecordSource" Set db = CurrentDb S ..read more

Greetings, all. I'm a decided "newbie" when it comes to MS Access and databases in general. That I'll state upfront. We've always used an Excel spreadsheet for tracking tool calibration in the past and it's been adequate, but more recently the need for a better solution has become apparent. I've created a simple database in Access with two tables. The first table "Instruments" contains information including: Tool ID Serial number Location The second table "Calibration Log" contains the actual calibration records: Certificate number Last calibration date Next calibration (a calculated value ..read more

Good morning and Merry Christmas. I am attempting to perform an action at some point shortly at or after a form opens and I need to reference the opened/opening form (i.e., Screen.ActiveForm). I realize that the order of events for forms is: Open --> Load --> Resize --> Activate --> GotFocus (if no controls on the form) --> Current I currently have a function that is called in the Current event; however, the function fails at the Screen.ActiveForm line. Is the form not active when the Current event fires ..read more

I have placed many of my database objects into logical groups; however, when any objects are re-linked, they go back into the 'Unassigned' group. Is there a way to put these objects back into their respective groups via VBA? I have seen some potential solutions using the system table(s), but I would prefer not to go that route if possible. Thank you ..read more

Hello. I have a form with combo boxes that have VBA Enter events. These events log the RowSource values when the combo boxes are "entered". This works for the first three combo boxes, but not the last two. The exact same logic is applied to all five combo boxes, and the last four combo box RowSource values are set using the AfterUpdate events of each previous combo box. This one works perfectly (RowSource never changes; set during form design): Text Private Sub cboFamily_Designator_Enter() 'FETCH DEBUG MODE OPTION FROM tblAdminOptions blnDebugMode = DLookup("[Debug_Mode]", "tblAdmin ..read more