save new record problem

[msasan1367]

I have image and some text data, I want to save them
this is my button code for saving data:

On Error GoTo Err_saveandnewbtn_Click

If IsNull(Me.nametxt.Value) Or IsNull(Me.usertxt.Value) Or IsNull(Me.passtxt.Value) Then
        MsgBox "fill all required fields"
        Me.nametxt.SetFocus
    
Else
        Dim dbs As DAO.Database
        Dim rst As DAO.Recordset
            Set dbs = CurrentDb
            Set rst = dbs.OpenRecordset("users_tbl")
    
            rst.AddNew
            rst!fullname = Me.nametxt
            rst!user = Me.usertxt
            rst!pass = Me.passtxt
            rst!aclevel = Me.actxt
            rst!tel = Me.teltxt
            rst!img = Me.imgatch
            rst!nazer_part = Me.partcbo
            rst!des = Me.destxt
    
            rst.Update

            Me.nametxt = ""
            Me.partcbo = ""
            Me.usertxt = ""
            Me.passtxt = ""
            Me.teltxt = ""
            Me.imgatch = Nothing
            Me.destxt = ""
            Me.actxt = ""
            Me.nametxt.SetFocus
End If
Exit_saveandnewbtn_Click:
    Exit Sub
Err_saveandnewbtn_Click:
    MsgBox Err.Description
    Resume Exit_saveandnewbtn_Click
End Sub

but when I click on button, it shows this error:
object doesn't support this property or method

how do I solve it? I know the problem is saving image, but how to solve it


thanks

[rzw0wr]

Which line shows the error?
Dale

[msasan1367]

Which line shows the error?
Dale

this line
rst!img = Me.imgatch
imd data type in users_tbl is Attachment

[rzw0wr]

What is imd data type?

[msasan1367]

What is imd data type?

excuse me
I mean img data type

[rzw0wr]

I don't think you can set an image to Nothing.
Nothing is a reserved word.
Take it out if you are not storing something in that field.

This is just a quess.


BTW. Add
rst.Bookmark = .LastModified
rst.Close
Set rst = Nothing
Dbs.close

To you code after rst.Update.

Dale

[msasan1367]

I don't think you can set an image to Nothing.
Nothing is a reserved word.
Take it out if you are not storing something in that field.

This is just a quess.


BTW. Add
rst.Bookmark = .LastModified
rst.Close
Set rst = Nothing
Dbs.close

To you code after rst.Update.

Dale

this code is for reseting form but it doesn't work
also I want insert image to table when I click on button

[msasan1367]

my problem: how to save attachment with button into table
please help me

[rzw0wr]

msasan,
You do need a button to save records.
Where are the data coming from?
Where are you getting the images.

Dale

[msasan1367]

I attach my database please see and help me thanks
db.zip

[msasan1367]

its better to say how to save attachment with DAO

[msasan1367]

please help me