03-10-14, 12:35 PM
03-10-14, 01:34 PM
ياريت لو احد يجاوبني لان محتاجه الاجابه ضروري جداا
03-10-14, 05:36 PM
(03-10-14, 01:34 PM)هدى كتب : [ -> ]ياريت لو احد يجاوبني لان محتاجه الاجابه ضروري جدااالسلام عليكم
كود الإضافة هو :
On Error Resume Next
Adodc1.Recordset.AddNew
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
وكود الحدف هو :
On Error Resume Next
Dim p As String
p = MsgBox(" هل تريد حدف هذا السجل ? ", vbYesNo, " suppression")
If p = vbYes Then
Adodc1.Recordset.Delete
Else
Cancel = 1
End If
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
End If
Adodc1.Recordset.MoveFirst
Text1.Text = Adodc1.Recordset!Name
Text2.Text = Adodc1.Recordset!secondname
Text3.Text = Adodc1.Recordset!telephone
Text4.Text = Adodc1.Recordset!Adresse
Text5.Text = Adodc1.Recordset!comment
03-10-14, 06:36 PM
شكرا جزيلا