حذف يا ويرايش ركورد

[mehran_1360]

در برنامه ام دو دكمه به نامهاي ويرايش يا حذف گذاشته ام ولي در برنامه اش مشكل دارم و خطا ميدهد . از ado استفاده ميكنمم .بايد چه كار كنم .

[kivoon]

براي حذف ركورد از اين دستور

Private Sub Command1_Click()
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.Delete
Adodc1.Refresh
Else
MsgBox "????????????", vbOKOnly + vbCritical, "error"
End If
End Sub

[kivoon]

مثلا تكست 1 نامه و تكست دوم نام خانوادگي وتي دكمه ويرايش رو زدي خاصيت لوكشون غيره فعال مي شه مي توني ويرايش كني بعد با دكمه ذخيره دوباره ذخيره كني البته خاصيت لوكشونو فالس كن تا با زدن دكمه ويرايش و جديد ترو بشن تا بتوني ويرايش كني

If Adodc1.Recordset.RecordCount > 0 Then
Text1.Locked = True
Text2.Locked = True
End If

[mehran_1360]

مثلا تكست 1 نامه و تكست دوم نام خانوادگي وتي دكمه ويرايش رو زدي خاصيت لوكشون غيره فعال مي شه مي توني ويرايش كني بعد با دكمه ذخيره دوباره ذخيره كني البته خاصيت لوكشونو فالس كن تا با زدن دكمه ويرايش و جديد ترو بشن تا بتوني ويرايش كني

برنامه اي را كه براي دكمه حذف نوشته ام اين است ولي خطا دارد ؟؟؟؟؟؟؟؟؟


If Ad1.Recordset.RecordCount > 0 Then
'Ad1.Recordset.Delete
'Ad1.Refresh
'Else
'MsgBox "delete", vbOKOnly + vbCritical, "error"
'End If