02-07-13, 09:36 PM
السلام عليكم
- يبدو أني لم أفهم ماتريد بالضبط في البداية ، والآن أعتقد أني فهمت أنك تقصد بالمستخدم للبرنامج هو الشخص الذي شغل البرنامج ويعمل عليه وتريد أنه إذا حصل تغيير في النصوص الموجودة في التكستات يتم إظهار الزرين وإذا إنتقل للسجل التالي أو السابق يتم إخفاء الزرين ، إذا كان فهمي صحيح ، فالحل هو أن يكون في جدول البيانات حقل تسلسلي رقمي لايقبل التكرار وضع تكست لهذا الحقل وهذا التكست يكون مخفي إذا لاتحتاجه وليكن إسم هذا التكست txtID ، ثم قم بإدراج تكست بوكس جديد وليكن إسمه Text1 هذا التكست لكي نضع فيه الرقم التسلسلي للسجل الحالي الذي تم تغييره أو تعديله ، ثم إستخدم هذا الكود :-
- تحياتي .
- يبدو أني لم أفهم ماتريد بالضبط في البداية ، والآن أعتقد أني فهمت أنك تقصد بالمستخدم للبرنامج هو الشخص الذي شغل البرنامج ويعمل عليه وتريد أنه إذا حصل تغيير في النصوص الموجودة في التكستات يتم إظهار الزرين وإذا إنتقل للسجل التالي أو السابق يتم إخفاء الزرين ، إذا كان فهمي صحيح ، فالحل هو أن يكون في جدول البيانات حقل تسلسلي رقمي لايقبل التكرار وضع تكست لهذا الحقل وهذا التكست يكون مخفي إذا لاتحتاجه وليكن إسم هذا التكست txtID ، ثم قم بإدراج تكست بوكس جديد وليكن إسمه Text1 هذا التكست لكي نضع فيه الرقم التسلسلي للسجل الحالي الذي تم تغييره أو تعديله ، ثم إستخدم هذا الكود :-
كود :
Private Sub txtFields_Change(Index As Integer)
IF Val(Trim(txtID.Text)) <> Val(Trim(Text1.Text)) Then
cmdCancle.Visible = False
CMDUpdate.Visible = False
Text1.Text = ""
End IF
End Sub
Private Sub txtFields_KeyPress(Index As Integer , KeyAscii As Integer)
Text1.Text = Trim(txtID.Text)
cmdCancle.Visible = True
CMDUpdate.Visible = True
End Sub- تحياتي .
