Search results

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

i change the combo to also show the Stock_Name when it dropdown.

create a query from investment table and remove unnecessary fields in brokerage table.

as suggested, put this code in subform ItemDetail: Public Sub AddItem(ID As Long, strITPath As String) Dim rst As DAO.Recordset Dim strCriteria As String Dim lngDocNo As Integer strCriteria = "flocID = " & ID Set rst = Me.RecordsetClone...

maybe change it to like this: Public Sub AddItem(ID As Long, strITPath As String) Dim rst As DAO.Recordset Dim strCriteria As String Dim lngDocNo As Integer strCriteria = "flocID = " & ID Set rst =...

this will handle your Parameter, change the code to this one: '============================================= ' Export Table or Query to CSV using raw file I/O '============================================= Public Sub ExportToCSVRaw(ByVal SourceName As String, Optional ByVal OutputPath As...

can you try manual export using VBA: '============================================= ' Export Table or Query to CSV using raw file I/O '============================================= Public Sub ExportToCSVRaw(ByVal SourceName As String, Optional ByVal OutputPath As String = "") ' SourceName...

concur, you need to go to the Bookmark (Lastmodified record). ... ... rs.Update rs,BookMark = rs.LastModified InserisciRecordPrincipale = rs("ID_FERICEVUTE")

maybe you can find what you need to accomplished on the sample database. Open MainForm form.

With Request .Open "POST", stUrl, False .setRequestHeader "Content-Type", "application/json" .setTimeouts 5000, 5000, 5000, 5000 ' connect, send, receive, resolve .Send requestBody If .Status = 200 Then Response = .ResponseText...

maybe use VBA, to clearly see what you are doing: ' duplicate record Private Sub cmdDuplicate_Click() Dim bolPrevState As Boolean If Me.NewRecord Then ' exit if on new record Exit Sub End If ' save prevous state of allowEdits bolPrevState = Me.AllowEdits...