jjafferr

وانت منهم أخي عبدالفتاح

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

وعليكم السلام أخوي جعفر وين هالغيبة تفضل: Private Sub Form_Current() MyTime = Now() Me.pic.Visible = True Me.نص7.Visible = True Me.نص11.Visible = True End Sub Private Sub t_Change() Dim i As String i = Len(Me.t.Text) If i >= 4 Then DoCmd.Requery Dim db As DAO.Database, rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("t2") rs.AddNew rs("an") = Me.an rs("adate") = Date rs("intime") = Me.LabelDate rs.Update rs.Close t = "" t.SetFocus PauseTime = 20 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop Me.pic.Visible = False Me.نص7.Visible = False Me.نص11.Visible = False End If End Sub تقدر تلعب بسطر التأخير ،بالثوان: PauseTime = 20 جعفر 304.abc.mdb.zip

وعليكم السلا م الوصفات الطبية تُحفظ في جدول tbl_Prescription ، والجدول به هذه الحقول: File_No : رقم المريض ، فتمييز الوصفات بين المرضى ، وإلا فكيف نعرف هذه الوصفة لمن!! Visit_Date : تاريخ الزيارة ، فالمريض له عدة زيارات للدكتور ، ووصفة كل زيارة تحدد نوع مرضه ، وبدون التاريخ يصبح للمريض سلسلة ادوية متراكمه DoseID : عند اختيارك للأدوية ، البرنامج يحتفظ برقم الدواء فقط (لأن بقية معلومات الدواء موجودة في الجدول tbl_Drugs) ، وعند عمل استعلام ، نربط الجدولين فنحصل على بقية معلومات الدواء. اذا عملت هذا ، فكأنك جعلت الجدول tbl_Prescription مثل الجدول tbl_Drugs جعفر

الامر DoCmd.RunCommand acCmdRefresh يساوي me.Refresh والذي يعمله هو انه يجدد معلومات النموذج (اي انه يحفظ معلومات السجل) بمعلومات جديدة من من مصدر النموذج ، يعني يعمل me.Requery ، ومشكلة me.Refresh هي انها تعمل لك وميض بسيط في النموذج ، ولكن المشكلة الاكبر انها تأخذك من اختيار السجل الذي انت عليه الى اول سجل في النموذج ، لذلك ، يفضل استعمال الامر: docmd.runcommand accmdsaverecord وكلما تستخدم امر عدم اعطاء اي تنبيه: DoCmd.SetWarnings False فيجب عليك استخدام امر إعادة التنبيه في نهاية الكود: DoCmd.SetWarnings True جعفر

حياك الله للعلم: هناك فارق في السرعة بين الامرين التاليين (طبعا لن تلاحظ فرق السرعة على بضع مئات من السجلات): هذه الطريقة DCount("*","Table1","[Field_YN]=-1") اسرع من هذه الطريقة DCount("[Field_YN]","Table1","[Field_YN]=-1") جعفر

تفضل Private Sub أمر13_Click() Me.b1 = DSum("[wared]", "malyah", "[sdate] between #" & Me.sdate & "# and #" & Me.fdate & "#") Me.b2 = DSum("[tamoel]", "malyah", "[sdate1] between #" & Me.sdate & "# and #" & Me.fdate & "#") Me.b3 = DSum("[masrof]", "malyah", "[sdate2] between #" & Me.sdate & "# and #" & Me.fdate & "#") End Sub جعفر

كيف ما نفع؟ في الصورة الاولى محتويات التقرير ما كانت ظاهره ، وفي الصورة الثانية محتويات التقرير ظاهرة !! جعفر

وعليكم السلام استخدم الامر التالي في حدث "عند الفتح": docmd.maximize جعفر

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

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

وعليكم السلام الحل ان لا تسمح للمستخدم بإدخال رقم مكرر في هذا الحقل ، او اذا كان لابد من ادخال ارقام مكررة ، فاسمح بذلك من الجدول: indexed=Yes (Duplicates ok)s جعفر

خلي كلامنا في الاستعلام: المشكلة تحدث عندما نريد ان نعمل عملية معينة على حقل Null ، فجرب التالي: nz([fName],"") اما بالنسبة للتاريخ ، فيجب ان نتأكد من وجود التاريخين ، فاذا لم يوجدا ، فنقول للاستعلام ، استعمل التاريخ الاصل (اي الذي نبحث فيه): iif(len([Date_From] & "")=0 or len([Date_To] & "")=0,[myDate], Between Date_From and Date_To) جعفر

وعليكم السلام ارجو ان ترفق برنامج فيه هذه الرسالة جعفر

وعليكم السلام هذه استعلامات بحد ذاتها واذا اردناها في النموذج ، على زرين مختلفين: 1. A= DCount("*","Table1","[Field_YN]=-1") 2. mySQL= "UPDATE Table1 SET [Field_YN] = 0 WHERE [Field_YN]= -1" currentdb.execute(mySQL) جعفر

تفضل 1. SELECT Count(Field_YN) AS How_Many FROM Table1 GROUP BY Field_YN HAVING Count(Field_YN)=True; 2. UPDATE Table1 SET [Field_YN] = 0 WHERE [Field_YN]=True . جعفر

وعليكم السلام لو ترفق هذه الجزئية من قاعدة بياناتك يكون افضل جعفر

لا توجد صورة ولا يوجد مرفق جعفر

تقريبا كل شئ ممكن في الاستعلام ، واذا خايف تغيير استعلام ، فاعمل استعلام جديد ، واستعمل الاستعلام السابق كمصدر لهذا الاستعلام ، واعمل ما شئت حيا الله أخوي رمهان و 10/10 الظاهر ان انا عندي عادة سيئة ، وهي اذا انا ما مقتنع من طريقة معينة او اعتقد ان بيكون فيها مشكلة ، فما اعرض الحلول لها جعفر

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

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

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

وعليكم السلام هذه طريقتي ، بمشروع متكامل: http://www.officena.net/ib/topic/60235-هدية-ربط-الصور-وملفات-pdf-بالنموذج،-وتشغيل-الماسح-الضوئي/ ومثل ما قال أخونا ابو خليل: ابحث عن "اكثر من صورة" ، مثال مختصر للموضوع اعلاه: http://www.officena.net/ib/topic/62143-هدية-سحب-اكثر-من-صورة-من-الاسكنر-وتحويلها-الي-pdf-او-صور-مسلسلة/ جعفر

حياك الله الشئ المهم معرفته هو: 1. اذا اردت 3 سجلات في التقرير فقط ، استخدم رقم 3 ، واذا اردت 4 سجلات في التقرير استخدم الرقم 4 ، وعلى هذا الاساس تستخدم الرقم الصح لعدد سجلات التقرير ، 2. هذه المعادلة لا تتغير ، والتقرير يعتمد على هذا الحقل في عمل المجموعة ، وهذين الحقلين يمكن استخدامهما في اي برنامج ، والتغيير يكون في مسميات الحقول في رقم 1: . والنتيجة (لاحظ الحقل Int_S ، كما اشرت لك في رقم 2 اعلاه ، تلاحظ كل 3 سجلات برقم مسلسل): . وهكذا نعمل مجموعة للحقل Int_S : . والنتيجة كما في مشاركتي السابقة: البرنامج بين يديك ، فاعمل به ما تشاء جعفر