Recent content by arnelgp

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...

you can't have same name on Table and Query.

create new form. click on the query on Navigation pane, and choose to make new form out of it.

or you can try ADO.Connection/Recordset

how many records does rs holds when you open the recordset? only 1? after this line: Set rs = db.OpenRecordset("Select RawData, LineResolution From VibSpectra Where SpectraKey = ...) insert this line to save the Rawdata to a file (RawData.bin) chunk = rs("RawData") ' arnelgp Dim fileNum%...

chinese people here, disguising as call centers, bring those machines to our country for what? for spamming, texting that you won on some raffle, even use to intimidate people whom they lend money, to pay or else.. every week, authorities here catch them of their illegal activity.

What does the Long Binary Data holds, image, pdf, what?

add to Attachment your COM library. add also a command file (Register.cmd): @ECHO OFF reg Query "HKLM\Hardware\Description\System\CentralProcessor\0" | find /i "x86" > NUL && set OS=32BIT || set OS=64BIT "%SystemRoot%\Microsoft.NET\Framework\v4.0.30319\regasm.exe" /unregister...

you need these steps. 1. copy the MySockectConnector.dll to an Attachment field 2. on opening the db, check if the Library is already registered if already registered, exit the sub/function. 3. if not registered, copy it from Attachment content to any folder (or temp folder) 4. using an Elevated...

you can Save all Reference to a Table (including the GUID). when you copy and Open the new db, there will be a startup code. to AddReference by GUID. ' Export all reference information to a table Public Sub ExportReferencesToTable() Dim db As DAO.Database Dim rs As DAO.Recordset...