رساله في حاله تسلسل التاريخ خطاء

[النجاشي]

السلام عليكم ورحمه الله وبركاته

احبتي الكرام عندي فورم YWMA اريد عند الضغط علي زر امر فحص تسلسل التاريخ

يعطينا رساله    (يوجد تسلسل خطاء بالتاريخ بفاتوره رقم.......) 

تسلسل التاريخ الخطاء موضح بالصوره

تحياتي احبتي

 

فحص تسلسل التاريح.accdb

تم تعديل مايو 28, 2018 بواسطه ابو زاهر

[Shivan Rekany]

5 ساعات مضت, ابو زاهر said:

احبتي الكرام عندي فورم YWMA اريد عند الضغط علي زر امر فحص تسلسل التاريخ

يعطينا رساله    (يوجد تسلسل خطاء بالتاريخ بفاتوره رقم.......) 

تسلسل التاريخ الخطاء موضح بالصوره

اتفضل
تم استخدام هذا الكود
 

Private Sub أمر6_Click()
    Dim Aded As Long
    Dim FirDate As Date
    Dim Curdate As Date
    Dim Curdate1 As Date
    Dim Teakid As Byte
        Aded = Me.YWMA_sub.Form.Recordset.RecordCount
        Me.YWMA_sub.SetFocus
        Me.YWMA_sub.Form.Atarih.SetFocus
        DoCmd.GoToRecord , , acFirst
        FirDate = Me.YWMA_sub.Form.Atarih
    For i = 0 To Aded - 1
        Curdate1 = Me.YWMA_sub.Form.Atarih
            If Curdate1 > FirDate Then
                    Curdate = Me.YWMA_sub.Form.Atarih
                    Teakid = 1
            End If
        If Curdate1 > FirDate Then
                DoCmd.GoToRecord , , acNext
            ElseIf Curdate1 = FirDate And Teakid = 0 Then
                DoCmd.GoToRecord , , acNext
            Else
                MsgBox " ( " & Me.YWMA_sub.Form.Rjmfatwra & " ) " & "هناك تسلسل التاريخ خطأ في رقم الفاتورة", vbMsgBoxRtlReading, "تنبيه"
                
                        Exit Sub
        End If
    Next i
End Sub

 

فحص تسلسل التاريح.accdb

[النجاشي]

استاذي @Shivan Rekany نورت المنتدي بعد الغياب عسي تكن بخير يالغالي

استاذي السموحه عملت المطلوبي صحيح  ولكن لم اطرح ما في جعبتي كامل السموحه منك 

اريد تعديل للكود يكون يقرا من الجدول  وليس من النموذج الفرعي 

القاعده الحاليه النموذج مجرد زر فيه فقط

شاكر اليك ابو محمد  

kkkk.accdb

تم تعديل مايو 28, 2018 بواسطه ابو زاهر

[صالح حمادي]

السلام عليكم

استعمل هذا الكود:

Dim rst  As DAO.Recordset
Dim ddate As Date
Dim i As Integer, RC As Integer
Set rst = CurrentDb.OpenRecordset("SELECT * FROM [HRR]")
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    For i = 1 To RC
       If rst!Atarih < ddate Then
          MsgBox "هناك تسلسل خاطئ في التاريخ للفاتورة رقم: " & rst!Rjmfatwra
          Exit Sub
        Else
       ddate = rst!Atarih
        rst.MoveNext
        End If
Next i

 

فحص تسلسل التاريح.rar

[النجاشي]

3 ساعات مضت, صالح حمادي said:

السلام عليكم

استعمل هذا الكود:

Dim rst  As DAO.Recordset
Dim ddate As Date
Dim i As Integer, RC As Integer
Set rst = CurrentDb.OpenRecordset("SELECT * FROM [HRR]")
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    For i = 1 To RC
       If rst!Atarih < ddate Then
          MsgBox "هناك تسلسل خاطئ في التاريخ للفاتورة رقم: " & rst!Rjmfatwra
          Exit Sub
        Else
       ddate = rst!Atarih
        rst.MoveNext
        End If
Next i

 

فحص تسلسل التاريح.rar

الف الف شكر استاذي الغالي نعم هذا ما كان بجعبتي  الله يعطيك العافيه

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

ما يسعني الا ان اقول جزاكم الله خير  استاتذي الكرام 

تحياتي اليكم

[النجاشي]

في ٢٨‏/٥‏/٢٠١٨ at 21:25, صالح حمادي said:

السلام عليكم

استعمل هذا الكود:

Dim rst  As DAO.Recordset
Dim ddate As Date
Dim i As Integer, RC As Integer
Set rst = CurrentDb.OpenRecordset("SELECT * FROM [HRR]")
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    For i = 1 To RC
       If rst!Atarih < ddate Then
          MsgBox "هناك تسلسل خاطئ في التاريخ للفاتورة رقم: " & rst!Rjmfatwra
          Exit Sub
        Else
       ddate = rst!Atarih
        rst.MoveNext
        End If
Next i

 

فحص تسلسل التاريح.rar

استاذي ممكن تعديل للكود مثلا عند ظهور الرساله ويوجد تواريخ كثيره ملخبطه  تظهر الرياله اضغط موافق يعطينا  التاريخ  التالي الملخبط اي دوران بالجدوال 

السموحه منك تعبنك معي بالغالي

[صالح حمادي]

نعم.

احذف هذه العبارة من الكود:

Exit Sub

 

[النجاشي]

8 ساعات مضت, صالح حمادي said:

نعم.

احذف هذه العبارة من الكود:

Exit Sub

 

استاذي الغالي صالح لقد قمت بحذف العباره كما قلت لي  وكان يظهر تكرر  الرساله ممتاز ولكن رقم الفاتوره التالي لم يظهر 

انظر الي الثلاثه السجلات تاريخها خطاء ستلاحظ الرساله تعطينا اول رقم فاتوره خطاء والثاني والثالث لم يظهر 

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

التحيه والشكر اليك استاذي الكريم والسموحه تعبتك 

التحيه والتقدير اليك استاذي 

فحص تسلسل التاريح.accdb

[صالح حمادي]

السلام عليكم

Dim rst  As DAO.Recordset
Dim rst  As DAO.Recordset
Dim ddate As Date
Dim i As Integer, RC As Integer
Set rst = CurrentDb.OpenRecordset("SELECT * FROM [HRR]")
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
For i = 1 To RC
    If rst!Atarih < ddate Then
       MsgBox "هناك تسلسل خاطئ في التاريخ للفاتورة رقم: " & rst!Rjmfatwra
    Else
       ddate = rst!Atarih
    End If
    rst.MoveNext
Next i

غير مكان السطر: rst.MoveNext

اجعلها تحت End If

[Hamdi Edlbi-khalf]

عمل أنيق و سؤال أنيق

أعجبني السؤال و الإجابة

شكراً لكم

أخواني

@ابو زاهر

@Shivan Rekany

@صالح حمادي

[النجاشي]

5 ساعات مضت, Khalf said:

عمل أنيق و سؤال أنيق

أعجبني السؤال و الإجابة

شكراً لكم

أخواني

@ابو زاهر

@Shivan Rekany

@صالح حمادي

شكر إليك ما زلنا منتظرين الفرحه الكبري بإذن الله حتا نحصل على المراد

تحياتي

[صالح حمادي]

لم تخبرني هل هذا هو المطلوب أم لا ؟

[النجاشي]

40 دقائق مضت, صالح حمادي said:

لم تخبرني هل هذا هو المطلوب أم لا ؟

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

تحياتي إليك يالغالي القي نظره للصور توضح والقاعده 

عندي الخطاء بفاتوره رقم A00004 وA00005 و A00006

فالمطلوب يتغير رقم الفاتوره كلما ضغطت زر موافق بالرساله كما في الصوره

السموحه صراحه تعبتك يالغالي 

الله يعطيك العافيه استاذي

فحص تسلسل التاريح.accdb

 

 

 

تم تعديل يونيو 2, 2018 بواسطه ابو زاهر

[Shivan Rekany]

2 ساعات مضت, ابو زاهر said:

عندي الخطاء بفاتوره رقم A00004 وA00005 و A00006

فالمطلوب يتغير رقم الفاتوره كلما ضغطت زر موافق

اتفضل تم استخدام الكود هكذا
 

Private Sub أمر6_Click()
    Dim rst  As DAO.Recordset
        Dim ddate As Date
            Dim i As Integer, RC As Integer
                Set rst = CurrentDb.OpenRecordset("SELECT * FROM [HRR]")
                        rst.MoveLast: rst.MoveFirst
                    RC = rst.RecordCount
    For i = 1 To RC
       If rst!Atarih < ddate Then
                MsgBox (rst!Rjmfatwra & " هناك تسلسل خاطئ في التاريخ للفاتورة رقم ")
            Else
                ddate = rst!Atarih
        End If
                rst.MoveNext
    Next i
End Sub

ومن قبل قام استاذ صالح بتعديل الكود
واليك المرفق بعد تعديل
 

 

فحص تسلسل التاريح (1).accdb

تم تعديل يونيو 2, 2018 بواسطه Shivan Rekany

[النجاشي]

15 ساعات مضت, صالح حمادي said:

السلام عليكم

Dim rst  As DAO.Recordset
Dim rst  As DAO.Recordset
Dim ddate As Date
Dim i As Integer, RC As Integer
Set rst = CurrentDb.OpenRecordset("SELECT * FROM [HRR]")
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
For i = 1 To RC
    If rst!Atarih < ddate Then
       MsgBox "هناك تسلسل خاطئ في التاريخ للفاتورة رقم: " & rst!Rjmfatwra
    Else
       ddate = rst!Atarih
    End If
    rst.MoveNext
Next i

غير مكان السطر: rst.MoveNext

اجعلها تحت End If

استاذي صالح الله يعطيك العافيه هو المطلوب بكله والسموحه يالغالي لم انتبه لهذه المشاركه  الف الف شكر رينا بعطيك العافيه تماما الان 

 

1 ساعه مضت, Shivan Rekany said:

اتفضل تم استخدام الكود هكذا
 

Private Sub أمر6_Click()
    Dim rst  As DAO.Recordset
        Dim ddate As Date
            Dim i As Integer, RC As Integer
                Set rst = CurrentDb.OpenRecordset("SELECT * FROM [HRR]")
                        rst.MoveLast: rst.MoveFirst
                    RC = rst.RecordCount
    For i = 1 To RC
       If rst!Atarih < ddate Then
                MsgBox (rst!Rjmfatwra & " هناك تسلسل خاطئ في التاريخ للفاتورة رقم ")
            Else
                ddate = rst!Atarih
        End If
                rst.MoveNext
    Next i
End Sub

ومن قبل قام استاذ صالح بتعديل الكود
واليك المرفق بعد تعديل
 

 

فحص تسلسل التاريح (1).accdb

شكر اليك استاذي ابو محمد نعم هو المطلوب ولكنني لم انتبه  لمشاركت الاستاذ صالح 

ربنا يعطيكم العافيه استاتذي الكرام شكر شكر كثير حلو جدا 

تحياتي  اليكم استاتذتي الكرام

[صالح حمادي]

1 ساعه مضت, ابو زاهر said:

استاذي صالح الله يعطيك العافيه هو المطلوب بكله والسموحه يالغالي لم انتبه لهذه المشاركه  الف الف شكر رينا بعطيك العافيه تماما الان

الحمد لله. ربي يوفقك

شكرا صديقي Shivan Rekany

[النجاشي]

13 دقائق مضت, صالح حمادي said:

الحمد لله. ربي يوفقك

شكرا صديقي Shivan Rekany

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

ربنا يوفق الجميع لما يحبه ويرضاه