ابا حفص

اتمني المشاركه ياجماعه هل الموضوع غير واضح؟

عندي في قاعدة البيانات بيانات لشيك وتقسيماته فجعلت الشيك وتقسيماته في صف واحد هل يمكن عمل استعلام يكون فيه الرسوم في عمود بدلا من صف تحويل الصف الي عمود.rar

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

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

لا اعلم لماذا اثار التعليق تحفظك علي الرغم انك قلت ان الموضوع للمناقشة ... فسؤالي ليس من باب تعليمك فانت استاذ كبير ولاكن من باب تعليمي انا كنت عايز افهم رؤيتك في التحليل او اتخاذ هذا القرار لان انا علاقتي بالاكواد ضعيفه جدا فلو كان رؤيتي صحيحه استعنت بها وان كان بها خلل وضحته فاتعلم شئ جديد. انا باتكلم عن استخدام الكود من خلال استعلام جديد فتحته واخترت الدالة ( Missing_Seq («MyTable»; «MyField التي برمجتها ووضعت المتغيرات المكتوبه ولم تعم ارجو الا يفسد سوء تعبيري للود قضية فقد توحي الكلمات بغير القصد منها فانا تعلمت الكثير من الموقع ورجالة الاطهار الذين يطرحون العلم بلا مقابل ولوجه الله وباخلاص شديد

عندي سؤال لماذا عملت جدول حطيت فيه الارقام متسلسلة ... لماذا لم ترتب الارقام المراد ايجاد الناقص منها تنازليا واخذت اكبرها ليكون الحد الاقصي للبحث (Missing_Seq («MyTable»; «MyField ... انا جربت وفتحت استعلام جديد وقولت اجرب ففتحت الدوال لاقيت دالة ايجاد الارقام الناقصة حطيت اسم الجدول Orders وحطيت اسم الحقل OrderID ولم ينجح التقرير ياتري الخطا فين؟؟؟؟

2003.rar

Database1.rar

هذا مثال علي ما اقصد فعندما يسدد مشروع مبلغ اريد ان احصل علي المديونية النهائية بعد خصم ماسدده Database1.rar

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

Private Sub cmdDisplay_Click() On Error Resume Next Dim Db As DAO.Database Dim Rc As DAO.Recordset Dim ChequesFound 'the array to hold the values from the table Dim ChequeNoStart As Long 'the first check number in the table Dim ChequeNoEnd As Long 'The last check number in the table Dim i As Long 'index counter Set Db = CurrentDb 'open up the recordset looking at only those checks that do not contain a "V", convert these to Long Values Set Rc = Db.OpenRecordset("SELECT CLng(ChequeNo) AS ChequeNumber FROM cheques WHERE ((Left(chequeNo, 1) <> 'V')) ORDER BY CLng(ChequeNo);") 'Loop to the last recordset Do While Not Rc.EOF Rc.MoveNext Loop 'trap incase there are no records If Rc.RecordCount = 0 Then MsgBox "No Records Found" GoTo cmdDisplay_Exit End If 'return to the first record and capture all values into the array Rc.MoveFirst ChequesFound = Rc.GetRows(Rc.RecordCount) 'the rc.getrows will return a two dimensional array so code accordingly ChequeNoStart = ChequesFound(0, 0) ChequeNoEnd = ChequesFound(0, UBound(ChequesFound, 2)) 'make sure that the rowsource type for the output list box is value list lstMissing.RowSourceType = "Value List" DoCmd.SetWarnings False DoCmd.OpenForm "nullform" DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdDeleteRecord DoCmd.Close acForm, "nullform" DoCmd.SetWarnings True 'set the counter to search from the first cheque number to the last cheque number For i = ChequeNoStart To ChequeNoEnd 'call the binary search with the temporary array and the cheque number that 'is being looked for, if this returns false meaning not found then place it into the 'output listbox If BinarySearch(ChequesFound, i) = False Then lstMissing.AddItem i DoCmd.OpenForm "nullform", , , , acFormAdd, acHidden Form_nullform.nnumber = i DoCmd.Close acForm, "nullform" 'if not available in 2k then change switch the above with the below 'lstMissing.RowSource = lstMissing.RowSource & i & ";" End If Next i DoCmd.OpenReport "report1", acViewPreview cmdDisplay_Exit: 'close references and exit sub Set Rc = Nothing Set Db = Nothing End Sub Private Function BinarySearch(pArray, pTarget As Long) As Boolean Dim High As Long Dim Low As Long Dim Middle As Long Dim Found As Boolean Low = LBound(pArray, 2) 'set the intitial lowest point of the array High = UBound(pArray, 2) 'set the initial highest point of the array 'perform a loop that uses mid point comparison until either the target value is found or not Do While Low <= High And Not Found 'take the middle point of the array Middle = Int((Low + High) / 2) 'check to see if the target is at this middle point or not If pTarget = pArray(0, Middle) Then 'it is so set the found flag to be true Found = True ElseIf pTarget < pArray(0, Middle) Then 'it isn't but the target is less than the value at mid point so change the high 'value to be one less than the mid point High = Middle - 1 Else 'the midpoint is lower than the target so set the low value to one more than the 'midpoint Low = Middle + 1 End If Loop 'set the function return boolean to be equal to whether or not the target was found BinarySearch = Found End Function انا اقصد اخي ان هذا هوا الكود المستخدم اين مواطن ذكرالجدول الذي يتم استخدامه لتغيرها لتكون مناسبه لكل حالة وكل مالزم تغييره - وهل يمكن ان اربطها علي نموذج ام لابد ان اربطها علي جدول .. وجزاك الله خير

اتمني اخي محمد ايمن ان لاتنسي السؤاليين الذان سالتهما

اتمني اخي محمد ايمن ان لاتنسي السؤاليين الذان سالتهما

جزاك الله خير لي سؤالين 1- ماهي - الاشياء- الاسماء اقصد التي اغيرها واين موضعها في الكود لتتناسب مع الجدول او الاستعلام الخاص بي 2- كيفية ربطها بنموذج فرعي ارجو الشرح وليس الحل

مش عارف اطبق ... والله بحاول وفشلت

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

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

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

بسم الله الرحمن الرحيم الاخوة العزاء في المنتدي أرجو الافادة والمساعدة عندي مشكلة كالاتي : 1- الشيت الاول من الشهر الفائت لأرقام شيكات لم يتم تحصيلها الشهر الفائت وقيمتها 2- والشيت التاني يتضمن شيكات الجديدة التي سجلت دخول للشركةوفيه أرقام الشيكات وقيمتها والثالث من البنك فيه أرقام الشيكات التي حصلت وقيمتها المطلوب مقارنة الشيت الثالث الذي يأتي من البنك كل شهر مع الشيتين الاول والثاني حتي نعلم الشيكات التي حصلت و ترحل الي شيت منفصل والذين لم يحصلوا يرحلو ا ليستخدموا الشهر القادم ويكونوا مكان الشيت رقم واحد في الشهر الجديد انا مش عارف اقارن ازاي ولا ارحل المعلومات ازاي علما ان هذه العملية تتم يدويا كل شهر وهيه متعبه جدا ________________________________.rar

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

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