Attaching An Attachment

[Eranka]

Hi Guys

Private Sub Command6_Click()Dim StrSQL As String
Dim rec As String
Dim but As String




If IsNull(Me.Text0) Then
 MsgBox "Please Enter Workstation ID", vbInformation, "Workstation ID Required"
 Me.Text0.SetFocus
ElseIf IsNull(Me.Text3) Then
 MsgBox "Please Enter Workstation Description", vbInformation, "Workstation Description Required"
 Me.Text3.SetFocus
Else
 CurrentDb.Execute "INSERT INTO Workstation_tbl (Workstation_ID,Workstation_Desciption) " & "VALUES ('" & Me.Text0 & "','" & Me.Text3 & "')"
 MsgBox " Workstation Details Saved Successfully !!!"
 Me.Text0.Value = Null
 Me.Text3.Value = Null
 Me.Text0.SetFocus
End If
End Sub

Above is the code i have written to insert data. Now i want to save an attachment along with the values from text0 and text3. How do this part?

Appreciate your help.


Thanks in advance

[pbaldy]

I personally don't use the attachment data type (I don't think many established developers do), I save the path to the file . To do that, you'd simply put that path into another textbox and add it to your SQL.

[Eranka]

Hi

instead of using a path, is there is a way to insert the image into the table via above button click code?

[Micron]

sure there is. research ms access vba update attachment field and you will find it's done via DAO.
You will need to concern yourself not only with adding the attachment, but sooner or later, updating and/or deleting it as well. Then there is the aspect of ensuring the field you will attempt these actions on is of the attachment type. Maybe you can see now that there's more to it than simply updating a field with an attachment, thus is really a bit much to deal with here and do it well.

Then there is the 'fact' that was already mentioned, and I count myself as one who would not do this unless there was a case where it was the best solution and I can't think of what that might be. You could find yourself quickly reaching the table size limit, to say nothing of the db size limit as a whole.

[June7]

Review https://sourcedaddy.com/ms-access/wo...nt-fields.html