Recent content by arnelgp

you need third party tool to be able to do that. or maybe use Adobe automation or Debenu (Foxit toolkit).

Ctrl-Delete is a normal event of the Textbox to delete Text. so the "Normal" event will take place before your own (made event). here i remove the keyup event on both Main and subform. I add a Class on the subform (see Load event of the subform). i use Timer event on the subform...

i tried it with your sample db. even in edit mode (pencil), it detect the ctrl-del key. open the db in post 2 and edit edit a record and press ctrl-del.

it says on her self-title: "Super Moderator · From .. ..super like superman. who can go against her except Lex.. she doesn't like birds, specially when asleep:

you also add Keypreview to the datasheet subform.

I nominate Patricia.

install A2003 on "virtual machine" using VMWare or VirtualBox or Proxmox. the later 2 are free.

copy all the Modules on the sample db to your db. you can call: ForceDeleteFolder "D:\YourFolderName" it will "force close" any open files then proceed deleting the folder.

delete folder Sub DeleteFolderFSO(ByVal FolderPath$) Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") If fso.FolderExists(FolderPath) Then fso.DeleteFolder FolderPath, True ' True = force delete non-empty folder MsgBox "Folder deleted...

add Timer Event to your datasheet form: TimerInterval: 100 Private Sub Form_Timer() If Me.SelHeight > 1 Then Me.SelHeight = 1 End If End Sub

try replacing * with percent (%) symbol. or if the query is within MS Access: strSql = "SELECT dbo.UserLog.ID, dbo.UserLog.UserProjectNo, dbo.UserLog.UserEmail, dbo.UserReg.EmpName, dbo.UserReg.EmpLevelA, " _ & "dbo.UserLog.UserIn, dbo.UserLog.UserOut " _ & "FROM dbo.UserReg INNER JOIN...

i don;'t have Findfirst on my code. It just add a "filtered" records. anyway, your choice.

you can also Add records using Recordsets: Public Sub inToDisc(dFamily As String, sFamily As String, nAccno As Double, sStr As String) Dim rstMain As DAO.Recordset Dim rstDisc As DAO.Recordset Set rstMain = oDB.OpenRecordset("Select * From Discrepancies Where (1=0);")...

she is always on my post.. just give here a Flying Kiss.. (picture deleted).

Here is what ChatGPT has to say" Private Sub Form_Load() Const conChunkSize = 4 Dim lngOffset As Long Dim lngTotalSize As Long Dim chunk() As Byte Dim i As Long Dim rawData As Variant Dim data As Variant Dim rslt As String, j As Long ReDim...