ابوخليل

تفضل Private Sub Form_Load() Dim i, ii As Byte Dim dt1, dt2 As Date dt1 = DMax("dater1", "table1") dt2 = (Date) - 1 i = dt2 - dt1 For ii = 1 To i DoCmd.GoToRecord , , acNewRec dt1 = dt1 + 1 Me.dater1 = dt1 Next Me.Requery End Sub وهذا تطبيق : db4.mdb

تفضل وكما ذكرت لك الحل في خصائص العلاقة اتمنى ان يكون هو مطلوبك Sample.rar

الآن اتضحت الرؤية قيد النظر ...

عليكم السلام انت تريد عرض الأسماء على الشجرة ، وبالنقر على الاسم يفتح النموذج الخاص به ؟ اذا كان هذا صحيحا تفضل هذا مثال بسيط يمكنك محاكاته في برنامجك . Tree view22.mdb

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

عظم الله اجركم وجبر مصابكم وغفر لوالدكم اللهم اغفر له وارحمه وأكرم نزله وأبدله دارا خيرا من داره وأسكنه الفردوس الأعلى من الجنة إنا لله وإنا اليه راجعون

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

شكرا اخونا وحبيبنا وأستاذنا ابا جودي على المداخلة المفيدة وكلماتك الرقيقة وشعورك النبيل

عليكم السلام هذا الأمر لإظهار مربع خصائص الطابعة الافتراضية Shell "rundll32 printui.dll,PrintUIEntry /p /n""" & Printer.DeviceName & """", vbNormalFocus وهذا لإظهار مربع حوار الطباعة DoCmd.RunCommand acCmdPrint

تم التعديل خطوات التعديل : 1- التعديل على السطر : Me.DayZero = -1 * Weekday(MyGrDate) ليصبح : Me.DayZero = -1 * Weekday(MyGrDate) + 1 2- التعديل على مسميات الايام : احد /اثنين / ثلاثاء ... الخ ( تعديل الارقام داخل التسمية ) UmAlQuraUp.rar

العنوان مخالف .. المنتدى عربي فاكتب بالعربية

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

قد تستغرب ! لماذا لم تحصل على اجابة السبب ان مثالك المرفق لا يشتمل على بيانات كافية كما في الصورة التي ارفقتها يجب ان تتأكد من مثالك قبل رفعه

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

سبق وأن وجهتك الى المطلوب هنا ايضا الاخوة هنا طلبوا شرح وافي للبرنامج بمعنى انك تشرح عمل البرنامج وكأنك تعمل على الورق والدفاتر 1- البيانات التي يتم ادخالها على كافة العمليات .. 2- والنتائج المنتظرة يجب ان تنسى اكسل كليا ، اكسس سيتم عمله من الصفر

عليكم السلام لا يمكنني التعديل على المرفق هذه الدالة تستخرج مسار سطح المكتب لديك Function GetDesktop() As String Dim oWSHShell As Object Set oWSHShell = CreateObject("WScript.Shell") GetDesktop = oWSHShell.SpecialFolders("Desktop") Set oWSHShell = Nothing End Function

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

انا في اكسل صف ابتدائي فإذا لم تجدي رد من الاعضاء هنا ، فأرى ان تنقلي سؤالك مع مثالي المرفق ومثالك الاخير الى منتدى اكسل اعتقد بأنك ستجد بغيتك هناك ان شاء الله

هذا مثال من عمل معلمي الأستاذ القدير عبدالله باقشير ( خبور ) ارجوا ان تجدي به ما يحقق حاجتك استيراد وتصدير اكسل إلى اكسس.rar

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

اعتقد اذا تم التصفح من خلال الأداة WebBrowser فإنه يمكنك استهداف اي حقل اما اذا تم فتح المتصفح حرا خارج اكسس فإني لم امر بهذه التجربة ، ولا اعلم ان كان الامر SendKeys يقوم بالمهمة لعل احدا من اخوتنا الخبراء الأفاضل يفيدنا في ذلك

لا اعلم ما هي المشكلة لديك هل لنسخة اكسس دخل في ذلك ؟؟ فأنا اعمل على الاصدار 2003 ولا يمكنني فتح المرفق الأخير المثال عندي يعمل على اكمل وجه ، انظر الصور ( عند زيادة البيانات وحين تكون قليلة )

هذا ما يحدث بالفعل عند عرض النموذج للطباعة يمر الكود على جميع الحقول ، عندها يأخذ المتغير fildMaxHeight اعلى قيمة ارتفاع لاحظ ان قيمة المتغير لن تتغير حتى يتم غلق النموذج وفتحه مرة أخرى على البيانات الجديدة . لن يختلف الأمر .. فقط مكان الحدث قم بتغيير الأحداث من رأس الصفحة hed1 الى التفصيل Detail

تفضل حسب طلبك Dim fildMaxHeight As Integer Dim ctl As Control Private Sub hed1_Format(Cancel As Integer, FormatCount As Integer) Me.hed1.Height = fildMaxHeight End Sub Private Sub hed1_Print(Cancel As Integer, PrintCount As Integer) For Each ctl In Me.Section(5).Controls If ctl.Height > fildMaxHeight Then fildMaxHeight = ctl.Height End If Next For Each ctl In Me.Section(5).Controls Me.Line (ctl.Left, ctl.Top)- _ Step(ctl.Width, fildMaxHeight), vbWhite, BF Me.Line (ctl.Left, ctl.Top)- _ Step(ctl.Width, fildMaxHeight), vbBlack, B Next End Sub ضبط ارتفاع جميع الخلايا_ تقرير .mdb

عليكم السلام انت وضعت الحقول في قسم (مقطع) رأس الصفحة يمكن تحقيق مطلوبك ولكن تطبيق الكود داخل تفصيل التقرير اكثر اتقانا سأوافيك بمثالك معدلا وسوف نطبق من خلاله الحالتين