Rst.edit

[mostafa580]

با سلام خدمت دوستان

چگونه میشه اطلاعات یک جدول رو با کد چک کرد که اگه وجود نداشت مقادیری اضافه شود و یا اگه وجود داشت edit شوند،در اصل کار با دستور Rst.edit رو میخوام بدونم.

با سپاس

[amirzazadeh]

سلام
براي اين كار شما بايد ابتد با تابع DLOOKUP يا DCOUNT فيلد مورد نظر رو جستجو كنيد اگر موجود بود update و در غير اين صورت insert كنه.
نمونه كد با استفاده از ADO


Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.ConnectionString = CurrentProject.Connection
cn.Open
If DCount("shomaredaftar", "tarkhis", "[shomaredaftar] ='" & Me!shomaredaftar & _
"'And [tarikh] ='" & Me!tarikh & "'") > 0 Then
rs.Open "Select * From tarkhis WHERE shomaredaftar= '" & Me.[shomaredaftar] & " ' and tarikh= '" & Me.tarikh & "'", cn, adOpenDynamic, adLockOptimistic, 1
rs.Fields("shomaredaftar") = Me.shomaredaftar
rs.Fields("tarikh") = Me.tarikh
rs.Fields("mogayerat") = Me.mogayerat
rs.Fields("shomrenamegomrok") = Me.shomrenamegomrok
rs.Fields("tarikhnamegomrok") = Me.tarikhnamegomrok


Else
rs.Open "Select * From tarkhis", cn, adOpenDynamic, adLockOptimistic, 1
rs.AddNew

rs.Fields("shomaredaftar") = Me.shomaredaftar
rs.Fields("tarikh") = Me.tarikh
rs.Fields("mogayerat") = Me.mogayerat
rs.Fields("shomrenamegomrok") = Me.shomrenamegomrok
rs.Fields("tarikhnamegomrok") = Me.tarikhnamegomrok

End If
rs.Update
cn.Close
MsgBox "data saved"

[mostafa580]

ممنونم از پاسخ شما ولی اگه میشه یه لطفی کنید برای من یه نمونه بزارید.

کمال تشکر را دارم.