Wasif Shahid wrote:
not yet...! working on it.. and if you have any sample of this kind of
database please tell me. I need to edit a file in a record I mean
1. Add new file in a column if it is blank
With the code I posted in my 2nd answer you can load any file into a
binary|OLEObject field, independent whether it is blank or not.
2. if there is already a file delete it and update new one
Not necessary, see above.
3. and extract file in the same folder [...]
Extraction would be (aircode):
Dim Db As DAO.Database
Dim Rst As DAO.Recordset
Dim lngFSize As Long
Dim Buffer() As Byte
Dim strFile As String
Set Db = CurrentDb
Set Rst = Db.OpenRecordset("SELECT YourBinary FROM Tab1;")
lngFSize = Nz(LenB(Fld), 0)
ReDim Buffer(lngFSize)
Buffer = Rst.Fields("YourBinary").GetChunk(0, lngFSize)
Open "C:\YourBinary.bin" For Binary Access Write As #1
Put #1, , Buffer
Close #1
Rst.Close
Set Rst = Nothing
Set Db = Nothing
[...] or View the picture in a report.
- Make sure the binary field is included in the report's recordsource.
- Add a bound object frame.
- Make Tab1 field YourBinary the control source of this bound object frame.
Peter Doering [MVP Access]
Store Images in OLEObjects and Display in Reports
