I use this code to attach a QR code picture to current record, is there any further improvement?
Code:
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 instantiate parent recordset
Set CoutriesRset = CurrentDb.OpenRecordset(SQL)
'active edit mode
CoutriesRset.Edit
' instantiate a child recordset
Set FilteredRset = CoutriesRset.Fields("ImageQrcode").Value
If FilteredRset.RecordCount <= 0 Then
'Add Scanned Appication
FilteredRset.AddNew
If Dir(Application.CurrentProject.Path & "\onecqr.jpg") <> "" Then
FilteredRset.Fields("FileData").LoadFromFile Application.CurrentProject.Path & "\onecqr.jpg"
Kill Application.CurrentProject.Path & "\onecqr.jpg"
FilteredRset.Update
FilteredRset.Close
'update parent recordset
CoutriesRset.Update
CoutriesRset.Close
'FilteredRset.Close
End If
End If
'CoutriesRset.Close
'FilteredRset.Close
Set CoutriesRset = Nothing
Set FilteredRset = Nothing
Me.Refresh
End Sub