امير عاطف

عند حدث KeyDown If KeyCode = vbKeyTab Then DoCmd.CancelEvent End If

تجد حل ما تريد بالروابط التاليه بالمنتدى http://www.officena.net/ib/index.php?showtopic=4443&hl= http://www.officena.net/ib/index.php?showt...1&hl=ساع,or,وقت http://www.officena.net/ib/index.php?showtopic=3559&hl= http://www.officena.net/ib/index.php?showtopic=3295&hl= http://www.officena.net/ib/index.php?showtopic=482&hl=

If MsgBox("هل أنت متأكد من طباعة التقرير", vbQuestion + vbYesNo, "Officena") = vbYes Then 'DoCmd.OpenReport "ReportName" Else SendKeys ("cancel") End If

السلام عليكم : اليك اخي الكريم برنامج اكسس اكسس اكسس اكسس يقوم بتحويل جداول قاعدة البيانات الى صفحات ASP وهذا مثال لأحد الصفحات التي تم عملها .... http://amazecreations.com/dbj/Employee.asp الرابط الأصلي هو من هنـــــــــــــــــــــــــــــــــــــــــــــــــــا البرنامج مع المرفقات AccessToASP.rar

قم بعمل مربع نص عدد الأيام واجعل القيمة به (مربع نص عدد الساعات مقسوم على الرقم 7)

الحمد لله

نفرض أن لديك فيل اكسل اسمه Book1 وقمت بوضعة على البارتشن C Dim strDir As String strDir = "c:\" Shell Chr(34) & "excel.exe" _ & Chr(34) & Chr(34) & strDir & "\" & "book1.xls" & Chr(34), vbMaximizedFocus

بالتأكيد لا يظهر البيانات بآخر سجل بالنموذج الفرعي وانما البيانات المرتبطة بآخر سجل بالنوذج الرئيسي ... تأكد ايضاً من حقول الربط بين كل من النموذج الرئيسي والفرعي

ضع عند حذث الفتح On Open للنموذج الكود التالي : ------- DoCmd.GoToRecord , , acLast

Shell ("excel")

مثلاً دينا ثلاث مربعات نص Text Box الأول وليكن اسمه Start ويتم به وضع تاريخ البداية ونوع التنسيق به هو - تاريخ Date الثاني وليكن اسمه End ويتم به وضع تاريخ النهاية ونوع التنسيق به هو - تاريخ Date الثالث ويتم وضع الفرق بين مربعي النص السابقين ويجب أن يكون تنسيق البيانات به من نوع رقم عام اذاً يتم وضع الكود التالي بمصدر عنصر التحكم لمربع النص الثالث : ---- =nz([end])-nz([start]) تجد مثال مبسط لذلك مع المرفقات example.rar

جمع التواريخ - تاريخ - date

المثال مرة اخرى athkar.rar

تفضل مثال لما تريد

يمكنك عمل ذلك باستخدام معالج بطاقات العنونه للتقارير Label Wizard

هذا يحدث لانخفاض الذاكره Ram او قلة امكانية المعالج Proccesssor او بسبب عدم تركي المشغل الصحيح للشاشه Disply Adapter

يمكن عمل ذلك عن طريق الدالة if أو الدالة select case وتجد أكثر من مثال تطبيق لذلك بالمنتدى !!!! وهذا مثال تطبيقي لما تريد باستخدام الدالة IF If ComboSelect = "Open Form" Then DoCmd.OpenForm "frmformname" ElseIf ComboSelect = "Open Report" Then DoCmd.OpenReport "rptreportname" End If

If Nz(c) < 1 Then MsgBox "يجب وضع عدد الأقساط أولاً", vbCritical, "Officena" c.SetFocus Exit Sub Else DoCmd.SetWarnings False For counter = 1 To Me.c DoCmd.RunSQL "DELETE detail.name, detail.name FROM detail WHERE (((detail.name)=[forms]![frmmain]![name]));" DoCmd.RunSQL "INSERT INTO detail ( num, name ) SELECT nz(DMax('num','detail','name=forms!frmmain!name'))+1 AS Expr1, [forms]![frmmain]![name] AS Expr2;" Next counter DoCmd.SetWarnings True Me.Refresh End If

تفضل المثال التطبيقي على ذلك لتجرب بنفسك TestLoanAmeer.rar

نفترض أن لديك جدولين .. جدول Main ومسجل به (*الإسم *عدد الأقساط) حيث الإسم هو الـمفتاح الأساسي Primary Key جدول Detail ومسجل به (*الاسم *مبلغ القسط *التاريخ *رقم القسط) حيث الاسم هنا هو المفتاح الغريب مع المفتاح الأساسي بالجدول السابق فيكون الحل بالكود التالي حيث : -------- c هو عدد الأقساط name هو الاسم frmname هو نموذج ادخال البيانات num هو رقم القسط If Nz(c) < 1 Then MsgBox "يجب وضع عدد الأقساط أولاً", vbCritical, "Officena" c.SetFocus Exit Sub Else DoCmd.SetWarnings False For counter = 1 To Me.c DoCmd.RunSQL "INSERT INTO detail ( num, name ) SELECT nz(DMax('num','detail','name=forms!frmmain!name'))+1 AS Expr1, [forms]![frmmain]![name] AS Expr2;" Next counter DoCmd.SetWarnings True Me.Refresh End If

يمكنك عمل ذلك بعمل Append Query - استعلام الإلحاق داخل دوارة loop

5 جداول ماتنحذف, في كل ملفات الاكسس حتى الجديده منها

اكثر من موقع لتحميل الكتب بالروابط التالية http://www.ebooksclub.tk http://hellnet.perverz.hu/ebookz http://babis.homeip.net/computers http://truncode.sourceforge.net ftp://ftp.ifmo.ru/dox ftp://217.16.26.42/pub/data/unsorted/2004.06.22

طبعاً بروسيسور 1.7 كاش 128 لا يساعد على الإسترجاع بسرعة .. حيث كان لي تجربه مع قاعدة بيانات كبيره على نفس امكانات البروسيسور السابق وكانة بطيئه نوعا ما في استرجاع البيانات ... وعندما قمت بتجربة قاعدة البيانات على بروسيسور بينتيوم 3 كاش 512 كان ادائه احسن بالطبع ايضاً على بروسيسور 2.4 كاش 256 وكاش 512 الأداء كان افضل وكلما زادت الرامات كان افضل وافضل على وجه العمود امكانات البروسيسور لديك لها عامل كبير على بطء القاعدة

عدد 26000 سجل يمكن أن يتحمله الأكسس وعشر اضعافه اذا اردت اعتقد أن امكانات الجهاز نفسه لها عامل كبير .. تأكد من رامات الجهاز وسرعة البروسيسور واهم شيء يؤثر على ذلك هو كاشات البروسيسور