السلام عليكم ورحمة الله وبركاته
أرجو من أخواني وأخواتي المشرفين والأعضاء شرح طريقة نقل محتوى حقل معين إلى حقل آخر في نفس السجل على أن يكون للسجل الحالي فقط وليس لكل سجلات الجدول
ومرفق مثال للتوضيح
ما هي طريقة نقل محتويات حقل لحقل آخر في نفس السجل
أخى الامر لا يحتاج الى استعلام
فقط استخدم هذا الكود
Me.previousdriver = Me.currentdriver
Abo_Yossof كتب:أخى الامر لا يحتاج الى استعلام
فقط استخدم هذا الكود
Me.previousdriver = Me.currentdriver
ممتاز اخي ابو يوسف ولكن اذا احببت ان اقوم بعد نسخ البيانات من currentdriver ليضعها في previousdriver ان يقوم الكود بحذف ما يحتويه الحقل currentdriver ؟
كيف يكون شكل الكود ؟
اللهم آتنا في الدنيا حسنة وفي الآخرة حسنة وقنا عذاب النار
للمسح استخدم هذا الكود
Me.currentdriver=""
لك كل الشكر أخي أبو يوسف
طيب بما ان حضرتك متابعني وانا احب ان اتعلم منك
في بعض الاحيان تظهر لي رساله اذا كان هناك خطأ ما في كود ما
والرسالة دي طبعا المستخدم الاخير للبرنامج المفروض انه ما يعرفش يتعامل معاها اللي هي اسمها رسائل debug
هل فيه طريقه بحيث اذا حصل خطأ ما لا تظهر هذه الرسالة وتظهر رساله اخرى مثلا والأحسن ان الاكسس يتجاهل هذا الخطأ
وسوف اعطي مثالا على ذلك :
Private Sub currentdriverreceivdatem_AfterUpdate()
Dim
sc As Integer
Dim d As Date
Dim s As
String
sc = Calendar
Calendar
= 0
d =
CDate(currentdriverreceivdatem.Text)
Calendar =
1
s = CStr(d)
currentdriverreceivdateh = Format(s, "YYYY/MM/DD")
Calendar = sc
End Sub
هذا الكود يقوم على تحويل التاريخ الذي اكتبه في حقل currentdriverreceivdatem من ميلادي ويضعه في الحقل currentdriverreceivdateh هجري
وعند حذف ما كتبته من تاريخ في احد الحقلين والضغط على enter تظهر رسالة خطأ وأعتقد لأن الكود يعتمد على أن تكون بيانات الحقلين مكتوبة حتى يعمل الكود بشكل صحيح
شكراً يا أخي ابو يوسف وربنا يخليلك يوسف
اللهم آتنا في الدنيا حسنة وفي الآخرة حسنة وقنا عذاب النار
بفضل الله وصلت لحا المسألة
وهي اضافة هذا الكود قبل الحدث
On Error Resume Next
أي يكتب الكود هكذا
On Error Resume Next
Private Sub
currentdriverreceivdatem_AfterUpdate()
Dim
sc As Integer
Dim d As
Date
Dim s As
String
sc = Calendar
Calendar
= 0
d =
CDate(currentdriverreceivdatem.Text)
Calendar =
1
s =
CStr(d)
currentdriverreceivdateh = Format(s,
"YYYY/MM/DD")
Calendar = sc
End Sub
اللهم آتنا في الدنيا حسنة وفي الآخرة حسنة وقنا عذاب النار