طريقه فرز سندات الايردات باليوميه

[النجاشي]

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

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

للتوضيح اكثر

 عندما ابحث بتاريخ اقدم باليوميه اريد التاريخ الذي بنموذج اليوميه  = التاريخ الذي باليوميه ايردات 

جزاكم الله خير 

a555.rar

تم تعديل يوليو 27, 2017 بواسطه ابو زاهر

[النجاشي]

للرفع

[النجاشي]

 في نماذج اليوميه ايردات  وضعت الكود الاتي

في الحالي

تابع15.Requery 

وهذا عند التحميل

Me.n1 = Forms![اليوميه]![n1]
Me.n2 = Forms![اليوميه]![n2]

وكذا انحلت المشكله يغلق الموضوع شكر خاص لاخي واستاذي جعفر والأستاذ شفان دوما وهم سند لي شكر لكم من كل أعماق قلبي  وشكر لكل المشاركين

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

[jjafferr]

السلام عليكم

 

الحمدلله انك استطعت الوصول الى حل

بالنسبة الى السجل السابق والسجل التالي ، تستطيع استعمال هذا الكود

Private Sub cmd_Previous_Click()
On Error GoTo err_cmd_Previous_Click

    DoCmd.GoToRecord , , acPrevious
    
Exit Sub
err_cmd_Previous_Click:

    If Err.Number = 2105 Then
        MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه"
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

Private Sub أمر176_Click()
On Error GoTo err_أمر176_Click

'    Me.Refresh
'
'    With Recordset
'        If .AbsolutePosition = .RecordCount - 1 Then
'            MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه"
'        Else
'            DoCmd.GoToRecord , , acNext
'        End If
'    End With
    
    DoCmd.GoToRecord , , acNext
            
Exit Sub
err_أمر176_Click:

    If Err.Number = 2105 Then
        MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه"
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
        
End Sub

.

جعفر

[النجاشي]

21 دقائق مضت, jjafferr said:

السلام عليكم

 

الحمدلله انك استطعت الوصول الى حل

بالنسبة الى السجل السابق والسجل التالي ، تستطيع استعمال هذا الكود

Private Sub cmd_Previous_Click()
On Error GoTo err_cmd_Previous_Click

    DoCmd.GoToRecord , , acPrevious
    
Exit Sub
err_cmd_Previous_Click:

    If Err.Number = 2105 Then
        MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه"
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

Private Sub أمر176_Click()
On Error GoTo err_أمر176_Click

'    Me.Refresh
'
'    With Recordset
'        If .AbsolutePosition = .RecordCount - 1 Then
'            MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه"
'        Else
'            DoCmd.GoToRecord , , acNext
'        End If
'    End With
    
    DoCmd.GoToRecord , , acNext
            
Exit Sub
err_أمر176_Click:

    If Err.Number = 2105 Then
        MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه"
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
        
End Sub

.

جعفر

اخي جعفر العفو انا ما أوصلت لك الفكره بطريقه صحيحه

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

اليوميه.rar

[jjafferr]

في عدة طرق ، 

بس الاسهل ، مع الحدث بعد تحديث n1 ، مع الضغط على زر البحث:

Private Sub أمر176_Click()

    Me.n1 = Me.n1 - 1
    Call n1_AfterUpdate
    Call أمر20_Click
    
End Sub

Private Sub أمر183_Click()

    Me.n1 = Me.n1 + 1
    Call n1_AfterUpdate
    Call أمر20_Click

End Sub

 

جعفر

[النجاشي]

18 دقائق مضت, jjafferr said:

في عدة طرق ، 

بس الاسهل ، مع الحدث بعد تحديث n1 ، مع الضغط على زر البحث:

Private Sub أمر176_Click()

    Me.n1 = Me.n1 - 1
    Call n1_AfterUpdate
    Call أمر20_Click
    
End Sub

Private Sub أمر183_Click()

    Me.n1 = Me.n1 + 1
    Call n1_AfterUpdate
    Call أمر20_Click

End Sub

 

جعفر

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

[jjafferr]

[النجاشي]

في ‏٥‏/‏١١‏/‏١٤٣٨ at 20:35, jjafferr said:

السلام عليكم استاذي @jjafferr  ممكن  تعديل الكود بدون ظهور رساله عند البحث بنموذج اليوميه او عند الضغط على زر ليوميه التاليه والسابقه  حسيت ان الرساله تضيقنا شويه ممكن اسبعاد الرساله  شاكر لك احي وكل الاحباب المشاركين

تحياتي

[النجاشي]

للرفع

[jjafferr]

وعليكم السلام

 

امام كل سطر مال الرسائل ، مثل

MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه"

ضع اشارة قبل السطر ، هكذا
' MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه"

او
rem MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه"

 

وبيتحول لون السطر الى الاخضر ، وخلاص

 

جعفر

[النجاشي]

12 دقائق مضت, jjafferr said:

وعليكم السلام

 

امام كل سطر مال الرسائل ، مثل

MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه"

ضع اشارة قبل السطر ، هكذا
' MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه"

او
rem MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه"

 

وبيتحول لون السطر الى الاخضر ، وخلاص

 

جعفر

معذرتا استاذي @jjafferr كذا تعطل عمل الزر لما وضعت الكود اريد وضيفه الزر تتكون شغاله التالي والسابق بس لا يظهر الرساله لاتوجد سندات من نوع كذا وكذا  القي نظره  علي القاعده

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

تحياتي لك

اليوميه.rar

[jjafferr]

وعليكم السلام

 

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

.

واذا تريد ان توقف الرسائل ، فانظر الى اي سطر يبدأ بـ Msgbox ،ومثل ما اخبرتك ، خلي الاشارة امامه ، ولن تشتغل هذه الرسالة (ولكن لا تعملهم كلهم مرة واحدة ، والا لن تعرف ايهم تريد او لا تريد)

 

جعفر

703.a555.mdb.zip

[النجاشي]

2 ساعات مضت, jjafferr said:

وعليكم السلام

 

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

.

واذا تريد ان توقف الرسائل ، فانظر الى اي سطر يبدأ بـ Msgbox ،ومثل ما اخبرتك ، خلي الاشارة امامه ، ولن تشتغل هذه الرسالة (ولكن لا تعملهم كلهم مرة واحدة ، والا لن تعرف ايهم تريد او لا تريد)

 

جعفر

703.a555.mdb.zip

بارك الله فيك اخي@jjafferr  صحيح انا لخبطت الان وصلت الفكره لدي كويس ضبط الحمد الله.

 واسال اللله رب العرش الكريم ان يزيدك علما ويحفظك من اى مكروه ونفع بك الإسلام والمسلمين

كم انت طيب القلب  تحياتي