Search results

there is no harm forcing to kill Access app. your code already Closed the db properly. what is left (stubborn) is the Access app. you don't corrupt an EXE by killing it's process (same when you use Task Manager to force-kill it).

then what is the purpose of creating this thread?

maybe you can "force" kill the Access app, from CoPilot: Private Declare PtrSafe Function OpenProcess Lib "kernel32" _ (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPtr Private Declare PtrSafe Function TerminateProcess Lib "kernel32" _...

you need VBA to filter your Query. see your Search form.

Class_Initialize() is not the event to set up those colors on the Form. Class_Initialized() will be called First when you instantiate the Class. therefore, the Class don't know anything about oForm (or oForm is not yet Created). create a New Private method/event to set the colors, and don't use...

whether win32 or win64, it doesn't matter. you only need to test if you are using VBE7 (VBA7). because declaring PtrSafe and LongPtr only works with VBA7 and is required by VBA7. Longptr will be converted to Long if you are using 32 bit and to LongLong (if appropriate) for x64.

i added two "hidden" textbox to put the .Text of each textbox to the hidden textbox.

there is no .Value on change event (or it's .Value is the OldValue). use the textbox .Text property instead.

the K button should work. note also i commented the "Lost focus" events of most of your controls. since it will make the form "dirty" (in edit mode), even when you are not editing any record.

you only need to define all public variables in one module or only one declaration of each public variables.

remove the #Win64 declaration and simplify to: #If VBA7 Then Public Declare PtrSafe Function apiGetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long #Else Public Declare Function apiGetWindowsDirectory Lib "kernel32" Alias...

I tested your code and it works fine without any error.

select and download the version of Access you have in this site: https://www.accessribbon.de/en/?Trust_Center:Trusted_Locations and it will put your apps in Trusted Location without manually messing with the windows registry.

search Mail merge on this forum and you will see many discussions about this topic.

click "FldOrder header" Group (band) and on it's Property->Format->Force New Page: Before Section

you are right about sloppy. just add those form's as Sub-form of your Main form.

Sendkeys is the culprit. You should roll out your own Sendkeys, like: Public Sub MySendKeys(Byval strString As String, Byval Option bolWait As Boolean =False) With CreateObject("WScript.Shell") .SendKeys strString, bolWait End With End Sub to use in your code replace: Sendkeys ("{esc}")...

why don't you use SQL to delete the record? Private Sub DeleteInvoiceRecordButton_Click() Dim lAnswer As Long Dim db As DAO.Database Dim sSql As String sSql = "DELETE * FROM Invoices " _ & "WHERE INVOICE_NUM_PK = " & Me.INVOICE_NUM_PK & ";" Set db =...

then use only 1 calculation and adapt it(I am thinking you have calculation on userform and in the worksheet).

you should add Grouping on your report. Group it by the first number (ex: 8250004). then New Page after the Group.