Recent content by nhtuan

To be more practical, I'd like to convert SQL OLE Object of linked table to an attachment field of MS access table? I guess there should be a way to do this.

I want to see/display and navigate the OLE Object from linked table on my access form, which behaves like attachment field in ms access form with Record Source is the linked table with OLE Object field.

Thank for you reply, my issue is how to load these files as multiple attachments from SQL varbinary(max) back into MS Access form, I really want to synchronize my MS Access table with attachments field? Concrete VBA code with comments is highly appreciated.

' https://stackoverflow.com/questions/302258/import-a-files-like-pdf-mp3-doc-xls-into-a-ms-sql-server-datatable-field Private Sub Command0_Click() Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Open "select * from dbo_TblFiles where [dbo_TblFiles].[ID]=7", CurrentProject.Connection...

Thank you for sharing.

Private Sub Command0_Click() 'This will return the size of your file in a MsgBox prompt MsgBox "The attachment size is " & Format(FileLen("C:\Users\Documents\Data\myFile.docx") / 1024 / 1024, "0.00 Mb") End Sub

You can copy and paste a shortcut anywhere you want in your local machine.

Private Sub Command6_Click() Dim ShortcutPath As String Dim FileSname As String FileSname = Left(CurrentProject.Name, InStr(CurrentProject.Name, ".") - 1) ShortcutPath = CurrentProject.Path & "\" & FileSname & " - Shortcut.lnk" With...

Thanks for your generous comments, the QR code is programmatically created using Google API "https://chart.googleapis.com/chart?chs=250x250&cht=qr&chl=" & [NGAYBATDAU] & " &choe=UTF-8&chma=1,1,1,1&chof=png"

I use this code to attach a QR code picture to current record, is there any further improvement? Private Sub Command4_Click() Dim CoutriesRset, FilteredRset As Recordset Dim SQL As String SQL = "Select * From tblCountries Where Country = '" & Me.Country & "'" ' can use SQL for recordset to...

It works perfectly, many thanks.

Application.FollowHyperlink does not work! Private Sub Command5_Click() Dim strDetailAddress As String Dim strGmaps As String On Error GoTo MyError strDetailAddress = Me.CAddresse & " " & Me.Ccity & " " & Me.CodePostal strGmaps = "http://maps.google.com/maps?h1=en&q=" &...

@oleronesoftwares the revised code is here, please let me know how your result. Step 1. Create a standard module with following codes (copy and past), name it whatever you like (ex. MyModuleChkInternet). Option Compare Database Option Explicit Public Flg As LongPtr Public Declare PtrSafe...

Sharing code saves time, each year I love more and more MS Access and its VBA, the environment that has more than 30 years of operations, highly stable and highly available, flexible, comprehensible and highly productive in this connected world. In our days, internet connection solves numerous...

Thank you Frothingslosh for sharing, As I use MS Access 365, just want to share for someone who may need, it works well. Private Sub cmdGetExcel_Click() If IsNull(Len(Dir("C:\Users\admin\Documents\MyProject\GoogleSheetName.xlsx"))) = False Then DoCmd.TransferSpreadsheet acImport...