jjafferr

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

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

السلام عليكم اعمل حقل في النموذج باسم v لرقم القرية ، ثم استخدم هذا الكود: Private Sub fcount_AfterUpdate() Call result Call Make_SQL End Sub Private Sub mcount_AfterUpdate() Call result Call Make_SQL End Sub Function Make_SQL() m_SQL = "SELECT TOP " & Me.mcount & " ibv, [name#], gender, v " m_SQL = m_SQL & "FROM nregistration " m_SQL = m_SQL & "WHERE gender = 'male' And v ='" & Me.v & "'" 'm_SQL = m_SQL & " ORDER BY [name#], gender" 'Debug.Print m_SQL f_SQL = "SELECT TOP " & Me.fcount & " ibv, [name#], gender, v " f_SQL = f_SQL & "FROM nregistration " f_SQL = f_SQL & "WHERE gender = 'Female' And v ='" & Me.v & "'" f_SQL = f_SQL & " ORDER BY gender Desc, [name#]" 'male First 'f_SQL = f_SQL & " ORDER BY gender, [name#]" 'Female First 'Debug.Print f_SQL u_SQL = m_SQL & vbCrLf & "Union All" & vbCrLf & f_SQL 'Debug.Print u_SQL Me.join.Form.RecordSource = u_SQL End Function . هذا عبارة عن 3 استعلامات ، استعلام للرجال ، وثاني للنساء ، وثالث يجمعهم (استعلام توحيد Union Query) ، وفرز النساء يأتي اولا بسبب ان الجنس موجود بطريقة تصاعديه ، فاذا اردت ان تجعل الرجال اولا، فغير بين هذين السطرين: f_SQL = f_SQL & " ORDER BY gender Desc, [name#]" 'male First 'f_SQL = f_SQL & " ORDER BY gender, [name#]" 'Female First جعفر 560.filter.accdb.zip

الافضل في هذه الحالة ان تكون عندك مجموعة اعمدة جاهزة في تقرير ، ثم تعمل لك نموذج فيه اسماء الاعمدة/الحقول اللي في التقرير ، وتضع علامة علامة نعم/لا لكل حقل تريده في التقرير ، وعلى هذا الاساس ، ينطبع التقرير من الاكسس بمزاجهم ويمكن ارسال البيانات الى الوورد بعدة طرق ، منها ما شرحته هنا: http://arabteam2000-forum.com/index.php?/topic/280527-تنسيق-تقرير-أكسيس-مثل-تنسيق-ملف-وورد/&do=findComment&comment=1351657 جعفر

ما شاء الله اخوي شفان ، ما كنت ادري عندك هذه الشعبية لو كنا عاملين عزيمة ، ما ادري كم ذبيحة كنت بتحتاج جعفر

على اي سطر من الكود؟

وعليكم السلام رجاء شرح ما تريد وبالتفصيل ، وابدء باسم النموذج واسم الحقل واسم الجدول ن ثم ماذا يجب ان نرى ، وماذا تريد ان يصير انت صاحب البرنامج وادرى به منا جعفر

الآن سؤالك اصبح غير واضح!! رجاء شرح ما تريد وبالتفصيل ، وابدء باسم النموذج واسم الحقل واسم الجدول ن ثم ماذا يجب ان نرى ، وماذا تريد ان يصير انت صاحب البرنامج وادرى به منا جعفر

تفضل هذا مثال ، وانت ضبطه على برنامجك for JPG files Shell ("cmd /c mspaint /p " & "D:\test.jpg") for PDF files Shell ("C:\Program Files\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe /p /h " & "D:\Sheet.pdf") جعفر

وعليكم السلام تفضل (طبعا غير معروف عندنا المعايير بالضبط ، فهناك احتمال محتاج تغيير حسب المعايير) task1 = "select top " & strmcount & " * from nregistration where " & strtotal1 & " And " & strtotal2 جعفر

وعليكم السلام اهلا وسهلا بك في المنتدى قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف رجاء فتح موضوع جديد بعنوان واضح مخالف - يُقفل جعفر

اختي طلبك غير واضح ، رجاء اعطينا مثال جعفر

او تغيير اعدادات الوندوز: جعفر

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

وعليكم السلام ماشايف ليش لا !! جعفر

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

شكرا أخي صالح في الواقع انا لم ادرس البرمجة (نعم مادة الفورتران في بداية دراستي الجامعية) ، ولم ادخل في تدريب ، وحتى ما عندي رخصة سواقة الحاسوب وانما كل الذي عندي من تجارب عملية ، لذلك ترى الفرق واضح من طريقة عرضك للموضوع ، وطريقة عرضي جعفر

وعليكم السلام هذا الموضوع شبيه بموضوعكم: جعفر

وعليكم السلام تفضل: كل شئ مربوط برقم الحقل Me.E_ID : هذا السطر يعمل نسخة من الصورة ويحفظها في مجلد الصور 'Copy the file to the PIC Folder FileCopy [PicFile], Application.CurrentProject.Path & "\PIC\" & Me.E_ID & ".jpg" وهاذ السطر يحذف الصورة من المجلد 'Delete the file from the PIC Folder Kill Application.CurrentProject.Path & "\PIC\" & Me.E_ID & ".jpg" وهذا السطر يعمل نسخة من ملف PDF ويحفظها في مجلد 'Copy the file to the PDF Folder FileCopy [PicFile], Application.CurrentProject.Path & "\PDF\" & Me.E_ID & ".pdf" جعفر Za-EMP5.zip

بس عندي سؤال: ليش غيّرت صيغة البرنامج من mdb الى accdb ؟ الاثنين يشتغلون على الاكسس 2010 !! جعفر

السلام عليكم نفس كلام اخي ابوعبدالله ، ولكن بطريقة انا متعود عليها ارجع الى نسختك الاولى ، ثم في صفحة VBA . وغير الاسم الى مثلا: . دائما غيّر اسم المشروع ، وابدا لا تسمي اسم المشروع Database او DB ، واستخدم السطر الثاني بدل الاول: 'With Application.FileDialog(msoFileDialogFilePicker) With Application.FileDialog(3) واحفظ عملك ، والسلام جعفر 558.backup.accdb.zip