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

**النجاشي** · مايو 28, 2018

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

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

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

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

تحياتي احبتي

فحص تسلسل التاريح.accdbFetching info...

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

**Shivan Rekany** · مايو 28, 2018

في 28‏/5‏/2018 at 00:39, ابو زاهر said:

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

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

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

Expand

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

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

**النجاشي** · مايو 28, 2018

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

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

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

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

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

kkkk.accdb

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

**صالح حمادي** · مايو 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

**النجاشي** · مايو 28, 2018

في 28‏/5‏/2018 at 18: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

فحص تسلسل التاريح.rarFetching info...

Expand

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

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

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

تحياتي اليكم

**النجاشي** · مايو 31, 2018

في 28‏/5‏/2018 at 18: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

فحص تسلسل التاريح.rarFetching info...

Expand

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

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

**صالح حمادي** · يونيو 1, 2018

نعم.

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

Exit Sub

**النجاشي** · يونيو 1, 2018

في 1‏/6‏/2018 at 08:22, صالح حمادي said:
نعم.

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

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

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

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

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

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

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

**صالح حمادي** · يونيو 2, 2018

السلام عليكم

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** · يونيو 2, 2018

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

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

شكراً لكم

أخواني

@ابو زاهر

@Shivan Rekany

@صالح حمادي

**النجاشي** · يونيو 2, 2018

في 2‏/6‏/2018 at 06:01, Khalf said:

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

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

شكراً لكم

أخواني

@ابو زاهر

@Shivan Rekany

@صالح حمادي

Expand

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

تحياتي

**صالح حمادي** · يونيو 2, 2018

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

**النجاشي** · يونيو 2, 2018

في 2‏/6‏/2018 at 16:39, صالح حمادي said:

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

Expand

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

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

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

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

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

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

فحص تسلسل التاريح.accdbFetching info...

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

**Shivan Rekany** · يونيو 2, 2018

في 2‏/6‏/2018 at 17:02, ابو زاهر said:

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

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

Expand

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

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

**النجاشي** · يونيو 2, 2018

في 2‏/6‏/2018 at 05:21, صالح حمادي 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

Expand

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

في 2‏/6‏/2018 at 19:31, 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).accdbFetching info...
Expand

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

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

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

**صالح حمادي** · يونيو 2, 2018

في 2‏/6‏/2018 at 21:20, ابو زاهر said:

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

Expand

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

شكرا صديقي Shivan Rekany

**النجاشي** · يونيو 2, 2018

في 2‏/6‏/2018 at 22:52, صالح حمادي said:

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

شكرا صديقي Shivan Rekany

Expand

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

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

تسجيل الدخول

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

الردود الموصى بها

النجاشي

Shivan Rekany

النجاشي

صالح حمادي

النجاشي

النجاشي

صالح حمادي

النجاشي

صالح حمادي

Hamdi Edlbi-khalf

النجاشي

صالح حمادي

النجاشي

Shivan Rekany

النجاشي

صالح حمادي

النجاشي

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information