بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
.Azhar
-
Posts
327 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
1
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه .Azhar
-
-
تم تعديل النموذج لكن ماهي البيانات المطلوبه التي تريدها ان تصبح تقرير .
ما هو الجدول .
انشأ استعلام لغرض انشاء تقرير .
انا لم افهم من سؤالك فقط (تعديل النمودج).
-
لاحظ هذه الصورة
-
هذا الكود هو لدمج عدة حقول في حقل واحد
=[field1] & " " & [field2]& " " &[field3] & " " & [field4]
-
1
-
-
لاحظ الاسطر التالية مثلا من الكود اعلاه في الوحدة النمطية . ماذا يفعل
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
الي ارجوه منك مراجعة الجدول والوحدة النمطية بدقه متناهيه ودراستها بشكل جيد .
-
استاذي الفاضل تابع هذا الموضوع .
-
لاحظ الكود ودقق النظر فيه ستجد ان كل 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> -
-
لا تحتاج الى قائمة منسدلة .
العلاقات بين الجداول في مشروعك خطأ , تم تعديلها .
لا تضع بين تسميات حقول الجداول سبيس (مسطرة) .
شاهد التعديل في برنامجك .
عدل على الشكل والتسميات انت . المهم انا اعطيتك الفكرة والحل .
-
-
بعد اذن الاستاذ رضوان اذا لم يعمل لديك استخدم الفارزة المنقوطة
Expr2: Nz([SumOfquantity_in];0)
كونك تستخدم اللغة العربية اكيد .
ولدي ملاحظة لك حاول استبدال التسميات التي يضعها لك الاكسس مثل Expr2 بتسميات تشير للهدف من الحقل حتى يفهم من يرى مشروعك , وايضا في المستقبل سوف تدخل انت في متاهة ماهو ذلك الحقل .
تحياتي لك واتمنى لك النجاح .
-
-
استخدم هذه الوحدة النمطية
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])
-
1
-
-
فمااحتاجه هو جمع القيم المالية المقابلة لنص معين فقط مثلا جمع مبالغ المدين او الاستيفاء..الخ.
استخدم هذا التعبير
=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
-
ماذا تقصد وضح اكثر اخي ابو عبد الله
-
انظر الى هذه الصورة اذا كنت تستخدم الون رار
-
1
-
-
-
اسف استاذ فؤاد انا ارفقت لك مثالين الاول نظري والثاني عملي ,, لا استطيع التعديل على مرفقك حاول انت .
تحياتي لك واتمنى النجاح لمشروعك .
-
1
-
-
اسف استاذ فؤاد على التأخر بالرد لان النت رديء عندي
لاحظ هذا المثال المرفق
انا استطيع منذ البداية ارفاق لك مثال ... لكن انا دائما احاول ارفاق كود للموضوع او الرد على الموضوع شفوياً حتى تزداد الخبرة عند الاعضاء .
يوجد خطا فى التقرير
في قسم الأكسيس Access
قام بنشر
اخي سلامه . كلام الاستاذ رضوان صحيح وواضح جدا .
هل قمت بالتعديل على الاستعلامات لديك ؟