(تمت الاجابة) حفظ البيانات وحذفها من نموذج غير منضم

[tarooq]

اخوانى انا اردي ان اعمل زرار امر بحيث يوجد لدى نموذج معين اقوم بادخال بيانات معينة فى هذا النموذج , اريد من زرار الامر هذا ان ياخذ كل القيم التى ادخلها او هذه البيانات التى ادخلها على النوذج ياخذها الى جدول معين قمت بانشاءه ايضا بحيث اننى لا اريد ان اجعل كل تكست بوكس ياخذ القيمة مباشرة من النموذج بالطريقة العادية حيث اننى يمكن ان ادخل البيان الذى فى النوذج الى الجدول مباشرة وذلك بجعل التكست بوكس ياخذ قيمته فى الجدول لا انا اريد ان ادخل البيانات وزرار الامر ياخذ هذه البيانات الى الجدول وهناك توضيح لطلبى فى القاعدة المرفقة

Test.rar

[Dream_Works]

ضع الكود التالي في الحدث OnClick

Private Sub Command15_Click()
Dim rs As DAO.Recordset
Const TblName As String = "Test"
Set rs = CurrentDb.OpenRecordset(TblName)
With rs
.AddNew
.Fields("ID") = Me.TxtID
.Fields("Name") = Me.TxtName
.Fields("Phone") = Me.TxtPhone
.Fields("address") = Me.TxtAddress
.Update
.Close
End With
' Removing the contents of the Text Boxes
With Me
.TxtAddress = ""
.TxtID = ""
.TxtName = ""
.TxtPhone = ""
End With
End Sub

تمت إعادة تسمية مربعات النصوص الى :

TxtAddress , TxtName , TxtID , TxtPhone

يمكنك تغيير أسماؤها بالفورم و الكود معا

[tarooq]

اخى فى البداية بارك الله فيك على المساعدة ولكن ااعذرنى اريد ان اعرف لو اردت ان احذف هذا الRecord فما هو الكود وبارك الله فيك

[Dream_Works]

1- الكود هذا لمسح ريكورد واحد فقط

2- يمكنك تغيير معايير البحث و الحذف في المتغير Criteria

3- أرجو قراءة ملاحظتي في الكود ... حول كيفية عمل ال RecordSet

أرجو أن يكون هذا طلبك

Dim rs As DAO.Recordset, Criteria As String
Const TblName As String = "Test"
' Either You Use This RecordSet and Remove The RecordSource from The Form
Set rs = CurrentDb.OpenRecordset(TblName)
' Or You use this Record Set and Set the Form Record Source to the table Test
Set rs = Me.RecordsetClone
With rs
Criteria = "ID = " & Me.TxtID & _
                    " and Name = " & Me.TxtName & _
                    " and Phone = " & Me.TxtPhone & _
                    " and address = " & Me.TxtAddress
.FindFirst (Criteria)
If Not .NoMatch Then
.Delete
End If
.Close
End With