أبوبسمله

اخى عمرو كيف تريد اظهار

6 ساعات مضت, Amr Ashraf said:

فترة لاحقة او سابقة

وانت محدد المعيار بين تاريخين بدايه التوريد ونهايه التوريد ولى سؤال كيف يكون هناك مبيعات سابقه عن ميعاد التوريد

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

بالتوفيق

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

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

2 ساعات مضت, Amr Ashraf said:

مثال لتوضيح المشكلة :

لو افترضنا ان لدينا طلبية ب2500 علم مصر  بداية توريدها 1/1/2022 ونهاية الفترة 8/1/2022 ولم يتم توريد ايا منها يكون الاستعلام   QryFollowUp تمام ويعرض ان الكمية المباعة صفر .. ولكن على افتراض ان تم بيع الصنف المذكور يوم 9/1/2022 سيختفى الصنف من QryFollowUp وذلك نتيجة لمعيار التاريخ الموجود فى الاستعلام.

المطلوب ببساطة يا اخوان ان يكون هناك استعلام يحسب ما تم بيعه لعميل محدد فى فترة محددة من تاريخ الى تاريخ وتكون محددة فى QryPlans .. وفى حالة عدم وجود مبيعات تتوافق مع العميل فى الفترة المذكورة يكون اجمالى البيع QtySold فى QryFollowUp تساوى صفر على سبيل التوضيح فقط مثل الدالة التالية :

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

بالتوفيق

3 ساعات مضت, احمد حبيبه said:

اخى العزيز الفلاحجى

بالفعل هذا ما اريده

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

 

واياكم اخى

فيه خطوه لابد من توضيحها اولا فالاستعلام رئيس قمت باضافه حقل اسمه NumJob لإضافه به رقم حسب المسمى الوظيفى لتسهيل عمليه الفرز وجعل رئيس اللجنه بالاعلى

NumJob: Switch([job2]='رئيس لجنة';1;[job2]='مراقب أول';2;[job2]='مراقب';3;[job2]='ادارى';4;صواب;5)

ثم تم عمل التقرير بالطريقه العاديه عن طريق الويزارد واضافه فرز عن طريق الحقل الجديد NumJob

قم بعمل تنسيقاتك واضافاتك بالتقرير السابق لك كما تريد

بالتوفيق

توزيع1.accdb

السلام عليكم

استاذ @احمد حبيبه القى نظره على الصوره هل هذا ما تريد

ان لم يكن فوضح اكثر بارك الله فيك حتى يتثنى لاخوانك واساتذتنا بمساعدتك

بالتوفيق

منذ ساعه, Amr Ashraf said:

جزاك الله خير . هوا المطلوب ملاحظتش السبب البسيط ده مش عارف ليه .. عامة سلمت يداك 🙂

واياكم استاذ عمر

وانت اللى قمت بالحل فالمشاركه التاليه للاستفسار فلم افعل شىء ربنا يوفقك 😀

وعليكم السلام استاذ @Amr Ashraf

جرب ووافنى بالنتيجه

Amr.accdb

جزاك الله خيرا اخى واستاذى @أبو إبراهيم الغامدي 🌹💐 ان شاء الله فى ميزان حسناتك

الحمد لله قمت بعمل تحديث للويندوز والان كل شىء تمام وشغال زى الفل

متابع شرحك اخى واستاذى

9 دقائق مضت, أبو إبراهيم الغامدي said:

أهلا بك أستاذ أبو خليل..

أشكرك على إطرائك، كما أشكرك أيضا على تطمينك لي بسلامة العمل.

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

جزاك الله خيرا اخى واستاذى العزيز

5 ساعات مضت, أبو إبراهيم الغامدي said:

لتتمكن من نقل هذه الأشياء إلى مشروعك بشكل سليم أنت بحاجة إلى فهم آلية عملها..

اخى واستاذى الغالى لم انقل شىء

قمت بتجربة الملف وظهرت لى تلك الاخطاء فقط

منذ ساعه, أبو إبراهيم الغامدي said:

أهلا بكم..

أعلم أن هذا الأسلوب جديد بعض الشيء لكن أعتقد أنه بالإمكان التأقلم معه! خاصة وأن الشفرة ليست بالمعقدة..

نعم جديد علينا وسيكون من الممتع التعلم اكثر والاستفاده من خبراتك فى هذا المجال

جزاك الله عنا كل خير

السلام عليكم جزاك الله خيرا اخى ابو ابراهيم

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

تقبل تحياتى ومرورى

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

السلام عليكم 🙂

 

بعيد عن مكتبات الوندوز API هناك طريقتين ، جلب التاريخ من السيرفر ، وجلب التاريخ من جهاز آخر

وعليكم السلام اخى ومعلمى العزيز جعفر 🌹💐

تذكرت هذه المواضيع ولكن انشغال العقل لم يتح لى البحث عنهم جزاك الله عنا كل خير

تقبلوا تحياتى اخوكم الصغير احمد

السلام عليكم اخى @ابو جودي

اولا قم بتغيير الايبى بالجدول ثم قم بفتح النموذج  وهذه صوره جهازى وان شاء الله يشتغل على النواتين طبعا معنديش نواه 64 لاقوم بالتجربه

فانتظار تجربتك

GetRemoteTime.mdb

3 ساعات مضت, ابو جودي said:

اولا وقبل اى شئ جزاكم الله خيرا يارب على تعبك 

انا جربت المرفق رقم 2 يفتح ولا يعمل المطلوب ويكأنه لا يوجد اى اكواد

والمرفق رقم 1 تقريبا لم يتم تحويله اصله

واياكم اخى محمد

اذا نحيل الموضوع لاساتذتنا جزاهم الله عنا كل خير @أبو إبراهيم الغامدي

1 ساعه مضت, ابو جودي said:

وجزاكم الله خير الدنيا والاخرة ان شاء الله وكل امة محمد 

ملاحظة صغننه : فى انتظار عودتكم سالم غانم ان شاء الله من الان واياك تيجى من غير الحل  😡 ماشى 

واياكم اخى محمد وكل امه سيدنا محمد صل الله عليه وسلم

مقدرش اتاخر عليك اخى محمد

من فضلك جرب المرفق الاول للنواتين ثم جرب المرفق الثانى كذلك للنواتين ووافنى بالنتجيه

القاكم غدا ان شاء الله تصبحون على خير

GetRemoteTime2.mdb GetRemoteTime1.mdb

3 دقائق مضت, ابو جودي said:

هلا بيك اخي الكريم ... ارجو ن تكون في صحة وعافية .... من طول الغيبات .... سررت برؤية مشاركتك .. كذلك ناقل من استاذى @ناقل 

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

اهلا اهلا اهلا باخى العزيز والناقل الكبير قصدى الناقد 😀 وحشنى والله ووحشنى خفه دمك ياغالى ربنا يعزك 🌹 💐

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

3 دقائق مضت, ناقل said:

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

اهلا بيك اخى ناقل الحمدلله رضا من الله ربنا يعزك اخى انا الاسعد بعودتى وسط اخوانى واحبابى 🌹💐

السلام عليكم اخوانى واساتذتى محمد عصام ومحمد سلامه

برجاء الاطلاع ع الرابط التالى وتجربة الحلول التى به ان شاء الله تنحل المشكله لديكم باذن الله

https://codekabinett.com/rdumps.php?Lang=2&targetDoc=windows-api-declaration-vba-64-bit

تقبلوا تحياتى ومرورى

اهلا ومرحبا بك اخى واستاذى العزيز @husamwahab تسعدنى مشاركتك جزاك الله خيرا

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

نعم اخى واستاذى العزيز @jjafferr لم انتبه لوجود العلاقه الا بعد طلب الاضافه من خلال الاكسس من اخى الفاضل @abouelhassan ولكن كنت استعد للنوم للسفر باكر

ولسه راجع من السفر والحمد لله اخى حسام جزاه الله خيرا قدم المساعده

تمنياتى لكم بالتوفيق وكل عام وانتم بخير

في ٣١‏/٣‏/٢٠٢١ at 20:59, beLaL 100 said:

لو سمحت الاسم btnSave الموجود في زى حفظ بيأخد التعليمه البرمجيه من اين واعتذر لحضرتك علي التأخير 

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

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

بالتوفيق

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

اللهم آمين وجميع المسلمين والمسلمات والمؤمنين والمؤمنات ان شاء الله

14 ساعات مضت, abouelhassan said:

ولو عايز اضيف حسابين اضيف حساب واغير الرقم ثم اضيف الاخر واغير الرقم صح كده

نعم اضف ما تريد ثم حدثهم بالترتيب من الاصغر الى الاكبر يعنى 2 ثم 3 وهكذا

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

Private Sub btnRun_Click()

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
    
    strSql = "SELECT tbl_Items.iPage " & _
             "FROM tbl_Items " & _
             "WHERE tbl_Items.iPage >= " & Me!cmbIPageID.Column(0)
             
    If IsNull(cmbIPageID) Then
        MsgBox "من فضلك اختر القيمه التى تريد تحديثها"
        Me.cmbIPageID.SetFocus
        Me.cmbIPageID.Dropdown
        Exit Sub
    End If
    
    Set rs = db.OpenRecordset(strSql)

    rs.MoveLast: rs.MoveFirst
 
    For i = 0 To rs.RecordCount - 1
        rs.Edit
        rs.Fields(0) = rs.Fields(0).Value + 1
        rs.Update
        rs.MoveNext
    Next
    Me!cmbIPageID = ""
    
    rs.Close
    db.Close
    
    Set rs = Nothing
    Set db = Nothing
    
End Sub

بالتوفيق

DATA14_2.mdb

وعليكم السلام اخى الفاضل @abouelhassan

اتفضل حاجه بسيطه على قد حالى وع قد ما فهمت

تم اضافه فورم frmUPDate وبه حقل نص واحد وزر امر

بعد ان تقوم بالتعديلات التى تعملها

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

باقوم ناسخ عامود ipage_number الى صفحة اكسيل واضيف الحساب الجديد وليكن مثلا مديونيات

شوف الرقم اللى قمت باضافته بقى رقم كام

افتح فورم frmUPDate وفى حقل النص ضع هذا الرقم ثم قم بالضغط عالزر

Private Sub btnRun_Click()

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    Set db = CurrentDb
    
    strSql = "SELECT tbl_Items.iPage " & _
             "FROM tbl_Items " & _
             "WHERE tbl_Items.iPage >= " & Me!txtUPDate
             
    If IsNull(Me!txtUPDate) Then Exit Sub
    Set rs = db.OpenRecordset(strSql)
   
    rs.MoveLast: rs.MoveFirst
    
    For i = 0 To rs.RecordCount - 1
        rs.Edit
        rs.Fields(0) = rs.Fields(0).Value + 1
        rs.Update
        rs.MoveNext
    Next
    
End Sub

قمت بوضع نفس المسمى المديونات بقى رقم 3 ضع رقم 3 فالحقل و اضغط عالزر

جرب ووافنا بالنتيجه

بالتوفيق

DATA14(1).mdb

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

بالتوفيق

بسم الله ماشاء الله ولا قوه الا بالله

جزاك الله خيرا معلمنا العزيز جعفر تسلم ايدك وراسك وانا اللى هبخرك المرادى صحيح بخورنا ممكن ميعجبش اصحابك بس هنجود بالموجود 😄

متابع فى صمت لاتعلم

السلام عليكم

مشاركه مع اخى الفاضل @ابو محمد 316 جزاه الله خيرا 💐

اتفضل اخى @mrbakr ان شاء الله يكون ما تريد

Private Sub Command405_Click()

    Dim strSql As String
    Dim TempQdf As QueryDef
    Dim db As DAO.Database
    Set db = CurrentDb
  
    strSql = "Select * from الموظفين"
    
    If Me.Fr_U.Form.Filter <> "" Then
        strSql = strSql & " WHERE " & Me.Fr_U.Form.Filter
    End If
    
    Set TempQdf = db.CreateQueryDef("ExportFiltered", strSql)
    DoCmd.OutputTo acOutputQuery, TempQdf.Name, acFormatXLSX, "", True, "", , acExportQualityPrint
    db.QueryDefs.Delete TempQdf.Name

'DoCmd.OutputTo acOutputQuery, "u", acFormatXLSX, "", True, "", , acExportQualityPrint

End Sub

بالتوفيق

123_1.accdb

1 ساعه مضت, jjafferr said:

مع اني كنت افكر اعمل لي قاعدة بيانات ، ومنها ابحث 😁

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

الحقيقة اني فكرت فيها بعد وضع الرد السابق واعتقد انها بتكون مفيدة وايضا لوجمعت بين فكرتك وموضوع البحث يكون الفائدة اكبر

بالتوفيق يا ابا عبد الله

مرحبا اساتذتى الاعزاء جزاكم الله خيرا

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

وسوف انتظر تطبيق فكرته 🙂 ومشاركته اياها لنا

تمنياتى لكم بالتوفيق