الفورم يعطى نتائج خاطئه

[الشاب يوسف]

هذا فورم استاذنا القدير

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

 لكن عندما ادخلتة على ملفى يغير الدرجات الى تاريخ ولا اعرف السبب ......كما فى المرفق

فورم ادخال.rar

 

تم تعديل مايو 26, 2013 بواسطه yousifsamra

[الشاب يوسف]

الأخوه الأعزاء المشكله هى اننى عندما اقوم بالبجث برقم الجلوس وعند قيامى بالتعديل على درجات الطالب من خلال الفورم .... بعد الحفظ اجد بعض الدرجات قلبت الى تاريخ كما فى الصوره

تم تعديل مايو 26, 2013 بواسطه yousifsamra

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

السلام عليكم

ما دمت لا تستخدم تواريخ

استبدل الكود هذا بدل الموجود في الفورم

فقد حذفت منه عدة اسطر تخص التاريخ

Private Sub kh_SaveDate(ByVal nR As Long, Optional ByVal tFil As Boolean = False)
Dim MyVelue, Msg
Dim c As Integer, cc As Integer
''''''''''''''''''''''''''
On Error GoTo 1
''''''''''''''''''''''''''
Application.Calculation = xlCalculationManual
''''''''''''''''''''''''''
If nR > 1 And tFil Then kh_AutoFill
If tSr Then MyRngSeri.Cells(nR + 1, 1).Value = nR
'''''''''''''''''''''''''''
For cc = 1 To LastColumn
    c = Ar(cc)
    If Me.Controls("Textdt" & cc).Enabled = True Then
        With MyRngdate
            MyVelue = Me.Controls("Textdt" & cc).Text
            .Cells(nR + 1, c).Value = MyVelue
        End With
    End If
Next
''''''''''''''''''''''''''
1:
Application.Calculation = xlCalculationAutomatic
''''''''''''''''''''''''''

End Sub

في امان الله

[الشاب يوسف]

استاذى الفاضل اشكرك على مجهودك  العظيم لكن عذرا اخى الكريم مازال يعطى نفس النتائج.......... فهل يمكن حذف خاصية البحث بالتاريخ نهائيا من ملفى جزاك الله خيرا

[الشاب يوسف]

up

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

الكود اعلاه هو الذي يحفظ في الشيت وقد تم حذف الاسطر التي تتعلق بالتاريخ منه

اما الباقي لا يمكنني تغييره فهو مرتبط باكواد اخرى

[صلاح الدين المصلح]

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