أين الخطأ في الملف المرفق

[كرتوتي]

السلام عليكم اخوتي في منتدانا االرائع ،دمتم لنا نبراسا هاديا

اخوتي المشكل في الملف المرفق يكمن عند الظغط على زر commandbutفي الورقة4 يظهر اليوزر فورم وهو مكون من صفحتين وبعد تسجيل المعطيات .وعند الحفظ في الورقة2 تسجل معطيات التاريخ في الاعمدة k11.n14.z26.ac29.ag33خاطئة اما نجد 00/01/1900او نجد القيمة 0.بحيث اتناء الحفظ من اليوزر فورم 2 اداكانت صفحة معلومات شخصية مفعلة يسجل معطيات التاريخ التي تحملها صحيحة في حين يسجل معطيات التاريخ بصفحة معلومات ادارية خاطئة والعكس يحدث اداكانت صفحة المعلومات الادارية هي المفعلة .

المرجو تصحيح الامر ليسجل معطيات التاريخ صحيحة في كلتا الحالتين .ارجو ان اكون وفقت في شرح المطلوب

رخصة.rar

[كرتوتي]

السلام 14 مشاهدة ولا جواب

هل المشكل من DTPICKER

ارجو التفاعل

[كرتوتي]

لقد بحث في عدة منتديات اجنبية .اظن ان المشكل متمثل في dtpiker مع يوزر فوروم متعدد الصفحات

المرجو من الخبراء حل المشكل

[بن علية حاجي]

السلام عليكم ورحمة الله

 

أخي الكريم، لا أعرف كثيرا فيما يخص عالم الأكواد ولكن ما استنتجته من الملف أن الكود الذي وضعته للفورم (لنقل البيانات من الفورم إلى الورقة 2 باستعمال خاصية tag) لا يتعامل مع الورقتين (المعلومات الشخصية والمعلومات الإدارية) لذا قمت بتحويل كل مضمون ورقة "معلومات إدارية" في الفورم إلى ورقة "معلومات شخصية" ليتم حجز كل البيانات في ورقة فورم واحدة (يمكن تعديلها أكثر للتنظيم) وأعتقد أن العملية استوفت المطلوب.... تجد ذلك في الملف المرفق...  ومرة أخرى لا تستعجل الإجابة على طلبك رغم القراءات الكثيرة...

 

أخوك بن علية

 

الملف المرفق :  رخصة.rar

 

 

 

تم تعديل مايو 28, 2013 بواسطه بن علية حاجي

[كرتوتي]

عفوا المرفق ظهر .الحل المقدم جيد .لكن اريد الفورم متعدد الصفحات لانني بصدد اضافة صفحات اخرى وحفظ معطياتها دفعة واحدة

[عبدالله باقشير]

السلام عليكم

 

جرب التعديل التالي على كود زر الحفظ

Private Sub CommandButton1_Click()

Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
Dim i As Integer

derligne = Feuil3.Range("A65536").End(xlUp).Row + 1
For i = 0 To 1
    Me.MultiPage1.Value = i
    For Each Ctrl In Me.MultiPage1.Pages(i).Controls
        r = Val(Ctrl.Tag)
        If r > 0 Then Feuil3.Cells(derligne, r).Value = Ctrl
    Next
Next
Feuil3.Cells(derligne, 1) = Val(TextBox1)
End

End Sub

في امان الله

[بن علية حاجي]

السلام عليكم ورحمة الله

 

أخي الكريم، تم تعديل على كود الفورم بتبديل السطر :

 If r > 0 Then Feuil3.Cells(derligne, r) = Ctrl

 

بالسطرين :

If r > 0 And r <= 28 Then MultiPage1.Value = 0: Feuil3.Cells(derligne, r) = Ctrl
If r > 28 Then MultiPage1.Value = 1: Feuil3.Cells(derligne, r) = Ctrl
 

 

 

 

تجد ذلك في الملف المرفق التالي :  رخصة2.rar

 

أخوك بن علية

[بن علية حاجي]

السلام عليكم ورحمة الله

 

أخي الحبيب عبد الله، رائع التعديل الذي قمت به بارك الله فيك وفي علمك، زادك الله نورا على نور وجازاك خير الجزاء...

 

أخوك بن علية

[عبدالله باقشير]

السلام عليكم ورحمة الله

 

أخي الحبيب عبد الله، رائع التعديل الذي قمت به بارك الله فيك وفي علمك، زادك الله نورا على نور وجازاك خير الجزاء...

 

أخوك بن علية

 

جزاكم الله خيرا وبارك فيكم

واثايكم بدعائكم واعطاكم بمثله اضعاف مضاعفة

تقبلوا تحياتي وشكري

[كرتوتي]

السلام عليكم الف شكر لك اخي عبد الله باقشير التغيير الذي قمت به رائع ادامك الله في خدمة عباده وجزاك الاجر الكثير

وتحية تقدير الى الاخ بن علية جزاه الله الجنة