.Azhar

اخي سلامه . كلام الاستاذ رضوان صحيح وواضح جدا . هل قمت بالتعديل على الاستعلامات لديك ؟

تم تعديل النموذج لكن ماهي البيانات المطلوبه التي تريدها ان تصبح تقرير . ما هو الجدول . انشأ استعلام لغرض انشاء تقرير . انا لم افهم من سؤالك فقط (تعديل النمودج). برنامج التشغيل.rar

لاحظ هذه الصورة

هذا الكود هو لدمج عدة حقول في حقل واحد =[field1] & " " & [field2]& " " &[field3] & " " & [field4]

لاحظ الاسطر التالية مثلا من الكود اعلاه في الوحدة النمطية . ماذا يفعل Case "btnReport" DoCmd.OpenReport "Test", acViewPreview تقوم دالة Case عند النقر على صورة الزر الذي هو اسمه btnReport بتن ريبوت . بفتح تقرير اسمه Test في طريقة العرض قبل الطباعه acViewPreview اعتقد ان الفكرة قد وصلت . لان هذه الازرار تم تعريفها في جدول نحن جعلناه تابع للنظام بوضع كلمة USys.

اما في ما يخص الاوامر للازرار , بمعنى عند الضغط على صورة زر كيف يتم تنفيذ الاوامر , هنا نستخدم وحدة نمطية عامة ونستخدم دالة الكيس فيها . لاحظ هذا الكود لمثال هنا في المنتدى . Public Sub RibbonButtonClick(control As IRibbonControl) Select Case control.Id Case "btnDates" DoCmd.OpenForm "ConcreteBreakDates" Case "btnReport" DoCmd.OpenReport "Test", acViewPreview Case "btn4" DoCmd.OpenForm "frmPrgInfo", , , , , acDialog, "PrgInfoBtn" Case Else MsgBox "Button """ & control.Id & """ click", vbInformation, "Quick Access Toolbar" End Select End Sub هذا رابط المثال . http://www.officena.net/ib/index.php?showtopic=57458 الي ارجوه منك مراجعة الجدول والوحدة النمطية بدقه متناهيه ودراستها بشكل جيد .

استاذي الفاضل تابع هذا الموضوع . http://www.officena.net/ib/index.php?showtopic=57504

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

نعم اخي , السر يكمن في جدول اسمه USysRibbons وتم وضع عبارة USys لغرض جعله من جداول السستم . افتح هذا الجدول ستجد الكود المبين لك ادناه وهو مكتوب بالغة Xml وهو سر خاصية Ribbon الكود كما مبين ادناه <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" loadImage="OnLoadImage"> <ribbon startFromScratch="true"> <tabs> <tab id="tabImageMsoSamples" label="imageMso Samples"> <group id="grpAccess" label="Access"> <button id="btn1" label="CreateReport" imageMso="CreateReport"/> <button id="btn2" label="CreateForm" imageMso="CreateForm"/> <button id="btn3" label="TableDesign" imageMso="TableDesign"/> <separator id="sep1"/> <button id="btn4" label="FileBackupDatabase" imageMso="FileBackupDatabase"/> <button id="btn5" label="PivotGroupItems" imageMso="PivotGroupItems"/> <button id="btn6" label="PivotUngroupItems" imageMso="PivotUngroupItems"/> <separator id="sep10"/> <button id="btn7" label="FileNewDatabase" imageMso="FileNewDatabase"/> <button id="btn8" label="CreateStoredProcedure" imageMso="CreateStoredProcedure"/> <button id="btn9" label="PageSetupDialog" imageMso="PageSetupDialog"/> </group> <group id="grpExcel" label="Excel"> <button id="btn10" label="Camera" imageMso="Camera"/> <button id="btn11" label="Calculator" imageMso="Calculator"/> <button id="btn12" label="ZoomClassic" imageMso="ZoomClassic"/> <separator id="sep2"/>A <button id="btn13" label="BarcodeInsert" imageMso="BarcodeInsert"/> <button id="btn15" label="Lock" A="Lock"/> </group> <group id="grpOutlook" label="Outlook"> <button id="btn17" label="FollowUpComposeMenu" imageMso="FollowUpComposeMenu"/> <button id="btn18" label="CalendarInsert" imageMso="CalendarInsert"/> <button id="btn19" label="ChartInsert" imageMso="ChartInsert"/> <separator id="sep4"/> <button id="btn20" label="NewTaskNumbered" imageMso="NewTaskNumbered"/> <button id="btn21" label="NewContactNumbered" imageMso="NewContactNumbered"/> </group> <group id="grpPowerPoint" label="PowerPoint"> <button id="btn22" label="ActionInsert" imageMso="ActionInsert"/> <button id="btn24" label="FindDialog" imageMso="FindDialog"/> <separator id="sep5"/> <button id="btn25" label="MovieFromFileInsert" imageMso="MovieFromFileInsert"/> <button id="btn26" label="FilePackageForCD" imageMso="FilePackageForCD"/> </group> <group id="grpWord" label="Word"> <button id="btn27" label="BlogHomePage" imageMso="BlogHomePage"/> <button id="btn28" label="AddressBook" imageMso="AddressBook"/> <button id="btn29" label="ContentsAndIndex" imageMso="ContentsAndIndex"/> <separator id="sepX"/> <button id="btn30" label="DataFormWord" imageMso="DataFormWord"/> <button id="btn31" label="MicrosoftAccess" imageMso="MicrosoftAccess"/> <button id="btn32" label="MicrosoftExcel" imageMso="MicrosoftExcel"/> <separator id="sep6"/> <button id="btn33" label="Organizer" imageMso="Organizer"/> <button id="btn34" label="MailSelectNames" imageMso="MailSelectNames"/> </group> <group id="grpCommon" label="Common"> <button id="btn35" label="Help" imageMso="Help"/> <button id="btn36" label="FileSave" imageMso="FileSave"/> <button id="btn37" label="FilePrintPreview" imageMso="FilePrintPreview"/> <separator id="sep7"/> <button id="btn38" label="PrintPreviewClose" imageMso="PrintPreviewClose"/> <button id="btn39" label="Undo" imageMso="Undo"/> <button id="btn40" label="Redo" imageMso="Redo"/> <separator id="sep8"/> <button id="btn41" label="FileOpen" imageMso="FileOpen"/> <button id="btn42" label="FileExit" imageMso="FileExit"/> <separator id="sep9"/> <button id="btn43" label="WebGoBack" imageMso="WebGoBack"/> <button id="btn44" label="WebGoForward" imageMso="WebGoForward"/> <button id="btn45" label="Head" imageMso="Head"/> </group> </tab> <tab id="tabLoadImageSamples" label="loadImage Samples"> <group id="grpBMP" label="BMP"> <button id="btnLoadImage1" label="News" image="news.bmp" size="large"/> <button id="btnLoadImage2" label="Reminder" image="bell.bmp" size="large"/> </group> <group id="grpTIF" label="TIF"> <button id="btnLoadImage3" label="News" image="news.tif" size="large"/> <button id="btnLoadImage4" label="Reminder" image="bell.tif" size="large"/> </group> <group id="grpGIF" label="GIF"> <button id="btnLoadImage5" label="News" image="news.gif" size="large"/> <button id="btnLoadImage6" label="Reminder" image="bell.gif" size="large"/> </group> <group id="grpJPG" label="JPG"> <button id="btnLoadImage7" label="News" image="news.jpg" size="large"/> <button id="btnLoadImage8" label="Reminder" image="bell.jpg" size="large"/> </group> <group id="grpPNG" label="PNG"> <button id="btnLoadImage9" label="News" image="news.png" size="large"/> <button id="btnLoadImage10" label="Reminder" image="bell.png" size="large"/> </group> </tab> <tab id="tabGetImageSamples" label="getImage Samples"> <group id="grpGetImage" label="getImage Samples"> <button id="btnGetImage1" label="Test" getImage="OnGetImage" size="large"/> <button id="btnGetImage2" label="News" getImage="OnGetImage" size="large"/> <button id="btnGetImage3" label="Bell" getImage="OnGetImage" size="large"/> </group> </tab> </tabs> </ribbon> </customUI>

ماهي نسخة الاكسس ؟ اذا كان 2007 انظر لهذا المثال . وهو لطريقة استخدام Ribbon Ribbon.rar

لا تحتاج الى قائمة منسدلة . العلاقات بين الجداول في مشروعك خطأ , تم تعديلها . لا تضع بين تسميات حقول الجداول سبيس (مسطرة) . شاهد التعديل في برنامجك . عدل على الشكل والتسميات انت . المهم انا اعطيتك الفكرة والحل . Lab.rar

شاهد هذا المثال وشاهد ايضا هذا الرابط http://www.ribboncreator2013.de/en/ EN.rar

بعد اذن الاستاذ رضوان اذا لم يعمل لديك استخدم الفارزة المنقوطة Expr2: Nz([SumOfquantity_in];0) كونك تستخدم اللغة العربية اكيد . ولدي ملاحظة لك حاول استبدال التسميات التي يضعها لك الاكسس مثل Expr2 بتسميات تشير للهدف من الحقل حتى يفهم من يرى مشروعك , وايضا في المستقبل سوف تدخل انت في متاهة ماهو ذلك الحقل . تحياتي لك واتمنى لك النجاح .

راجع هذا الموضوع http://www.officena.net/ib/index.php?showtopic=54914&hl=

استخدم هذه الوحدة النمطية Public Function AgeGroup(BirthDate As Date) As String Dim intAge As Integer intAge = DateDiff("yyyy", [BirthDate], Now()) + _ Int(Format(Now(), "mmdd") < Format([BirthDate], "mmdd")) Select Case intAge Case 0 To 17 AgeGroup = "0-17" Case 18 To 25 AgeGroup = "18-25" Case 26 To 30 AgeGroup = "26-30" Case 31 To 35 AgeGroup = "31-35" Case 36 To 40 AgeGroup = "36-40" Case 41 To 45 AgeGroup = "41-45" Case 46 To 50 AgeGroup = "46-50" Case Is > 50 AgeGroup = "50+" End Select End Function واستخدم هذا الكود لاستدعاء الوحدة النمطية =GetAge([BirthDate]) حيث ان BirthDate هو حقل تاريخ التولد في الجدول واذا تريد ان يظهر لك واقع العمر يقع بين ما بين انشأ مربع نص غير منظم على النموذج واستخدم هذا التعبير لمصدر بياناته . =AgeGroup([BirthDate])

استخدم هذا التعبير =Count(IIf([اسم الحقل]="نوع الحركة (مدين)",0))

ماهو امتداد البرنامج ؟

ماذا تحتوي قاعدة البيانات ؟ هل تحتوي على فرومات خاصة بمستويات الامان . هل توجد جمل SQL في محرر الــ VBA اذا قمت بمحاولة تحويل قاعدة البيانات من 2003 الى 2010 حاول بالاحتفاظ بنسخه بمكان اخر . واذا كان البرنامج كبير انا ارى ان تقوم بعمله من جديد في الاكسس 2010 . حاول التحويل وهو بفتح قاعدة بيانات بصيغة Accdb وقم باستيراد كافة موارد برنامجك المعمول في 2003 . اذا واجهتك بعض المشاكل في الماكروات او دوال SQL او بعض ازرار الفورم .. حاول اصلاحها . لكن لا تنسى بالاحتفاض بنسخه .

اذا كنت تستخدم دالة اخفاء الاكسس ,, لا تستطيع اظهار التقرير . ما تريد القيام به لا يمتلكه الاكسس في النسخ القديمة .. فقط في النسخ 2007 فما فوق وفي خاصية الريبون . كذلك ما تريده يستطيع القيام به هو VB.Net لانه يمتلك خاصية الكريستال ريبوت . وهذه المشكله وحسب معلوماتي سوف تعالجها شركة ماكروسوفت بالنسخ القادمة من الاكسس . انا قرأت قبل فتره من احد الاعضاء بانه عمل برنامجه على الاكسس 2015 . حسب علمي ان شركة ماكروسوفت لم تطرح في الاسواق نسخه جديدة من الاوفيس بعد 2013 . ولا يوجد شي اسمه اكسس 2015 . وان كان موجود اين رابطه .

اذا تقصد كيف تتحكم بوجود مؤشر الماوس على الفورم استخدم هذا الكود . Private Sub Form_Load() Me.اسم الحقل او الزر او اي شي موجود على الفورم.SetFocus End Sub

ماذا تقصد وضح اكثر اخي ابو عبد الله

انظر الى هذه الصورة اذا كنت تستخدم الون رار

تفضل استاذ حمدي http://www.officena.net/ib/index.php?showtopic=56193&hl=

اسف استاذ فؤاد انا ارفقت لك مثالين الاول نظري والثاني عملي ,, لا استطيع التعديل على مرفقك حاول انت . تحياتي لك واتمنى النجاح لمشروعك .

اسف استاذ فؤاد على التأخر بالرد لان النت رديء عندي لاحظ هذا المثال المرفق انا استطيع منذ البداية ارفاق لك مثال ... لكن انا دائما احاول ارفاق كود للموضوع او الرد على الموضوع شفوياً حتى تزداد الخبرة عند الاعضاء . Active.rar