jo_2010
-
Posts
874 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
1
نوع المحتوي
التقويم
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو jo_2010
-
اخى الفاضل زياد اشكرك على سرعة الرد ولكن مااريدة هو العمل على الاستعلام الجدولى الذى اريد ان يظهر التقريركما بالشكل فى الاستعلام بحيت تكون اسماء التحاليل هى راس العمود ارجو مساعدتى ان امكن ولك الشكر مقدما
-
الخبراء الافاضل ارجو مساعدتى عملت قاعدة بيانات بسيطة بها نموذج مرتبط باستعلام جدولى اريد بعد تصفية النموذج من خلال الكمبوبوكس الضغط على زر لفتح تقرير يعرض الموجود فى النموذج فقط بعد الفلترة والتصفية اليكم القاعدة للتعديل عليها لكم كل الشكر والتقدير Database1.rar
-
لم استطيع الاستفادة منها هل توجد امثلة اسهل من هذا المثال
-
الاستاذ الفاضل ابو عارف ارجوك الرد علي في طلبي هذا اضاف تصفبة لحق تالت بدل من ٢ وشكرا لك
-
استاذي الفاضلjjafferr الكود يعمل بصورة جيدة لك خالص الشكر اشكرك علي سعة صدرك ممكن اطلب طلب من حضرتك هل يمكن عمل تصفية لاستعلام جدولي من خلال نموذج وعرض تقرير فية نتيجة التصفية فقط
-
كحاستاذي الفاضلjjafferr اشكرك علي اهتمامك وسرعة الرد علي ولكن أين نص الرسالة التي تفيد بانة لاتوجد بيانات في حالة عدم توافر ببانات مطابقة لtext1 text2 text3 النص هو اختيار من كمبوبوكس لمنطقتين المنشية او طرة كحاستاذي الفاضلjjafferr اشكرك علي اهتمامك وسرعة الرد علي ولكن أين نص الرسالة التي تفيد بانة لاتوجد بيانات في حالة عدم توافر ببانات مطابقة لtext1 text2 text3 الحقل الثالث نص واختيار من كمبوبوكس لمنطقتين المنشية او طرة
-
اخى الفاضل خالص الشكر لحضرتك لاهتمامك بالرد على اود ان اخبر حضرتك بان هذا الكود يعمل جيدا ولكن على حقلين فقط Dim rst As Recordset Set rst = Form.RecordsetClone [rst.FindFirst "Code_Month=" & [C] & " And C_year=" & [Y If Not rst.EOF Then Bookmark = rst.Bookmark فهل من الممكن بخبرتك اضافة حقل جديد حيث اننى لا اجيد التعامل مع الاكواد بصورة جيدة وهذا الكود حصلت علية من هذا المنتدى الرائع الذى علمنى الكثير واسف ان اطلت على حضرتك
-
استاذي الفاضلjjafferr Dim rst As dao.Recordset dim myWhere as string Set rst = Form.RecordsetClone myWhere = "ID=" & [Text1] myWhere = myWhere & " And Code=" & [Text2] myWhere = myWhere & " And Age=" & [Text3] rst.FindFirst myWhere If Not rst.EOF Then Bookmark = rst.Bookmark اشكرك علي اهتمامك وسرعة الرد علي ولكن الكود بعد تجربتة لازم لايعمل ويعطى رسالة خطا
-
ارجوكم ايها الخبراء افيدوني
-
Dim rst As Recordset Set rst = Form.RecordsetClone rst.FindFirst "ID=" & [Text1] & " And Code=" & [Text2] If Not rst.EOF Then Bookmark = rst.Bookmark بعد التحية وصباح الخير ارجو التعديل على هذا الكود لكى يسمح باضافة حقل اخر مثل Age مثلا لكى تصبح الفلترة 3 حقول بدل 2 ويعطى رسالة بانة لا توجد بيانات فى حالة عدم وجود بيانات مطابقة
-
Dim rst As Recordset Set rst = Form.RecordsetClone rst.FindFirst "ID=" & [Text1] & " And Code=" & [Text2] If Not rst.EOF Then Bookmark = rst.Bookmark الخبير الفاضل ابو عارف هذا الكود الرائع يعمل بصورة جيدة بحثت عنة كثيرا حتى وجدتة فلك كل الشكر ماذا افعل اذا اردت التصفية 3 حقول بد من 2 ارجو افادتى ولل خالص الشكر واعطاء رسالة فى حالة عدم وجود بيانات مطابقة للحقول التصفية
-
اخواتى فى الله اسعد الله اوقاتكم ارجو مساعدتى عندى نموذج بحث اريد عند كتابة اسم شخص وليكن احمد كل السجلات التى تحتوى احمد يتم تلوين الخلفية لهذا الحقل
-
اخواتى فى الله اسعد الله اوقاتكم ارجو مساعدتى عندى نموذج يحتوى على بعض المرضى ولكل مجموعة مرضى من منطقة سكنية مختلفة اريد زر عند الضغط علية يجعل القيمة الافتراضية القاهرة مثلا فى خانة السكن وبعد الانتهاء من تسجيل مرضى القاهرة اضغط على زر اخر او نفس الزر يقوم بتغيير القيمة الافتراضية الاسكندرية مثلا فى خانة السكن لتسجيل مرضى الاسكندرية للعلم هما فعلا منطقتين للسكن ولكم خالص الشكر
-
اخى الفاضل AlwaZeeR هل يمكن استخدام هذا الكود مع حقل التاريخ بشرط يكون تاريخ امس هو القيمة الافتراضية حاولت تنفبذها وفشلت Me.Date.DefaultValue = Date - 1 يعطى تاريخ 30ديسمبر 1890
-
اشكرك اخى الكريم جزاك الله بكل الخير
-
اخواتى فى الله اسعد الله اوقاتكم ارجو مساعدتى عندى نموذج يحتوى على بعض المرضى ولكل مجموعة مرضى من منطقة سكنية مختلفة اريد زر عند الضغط علية يجعل القيمة الافتراضية القاهرة مثلا فى خانة السكن وبعد الانتهاء من تسجيل مرضى القاهرة اضغط على زر اخر او نفس الزر يقوم بتغيير القيمة الافتراضية الاسكندرية مثلا فى خانة السكن لتسجيل مرضى الاسكندرية للعلم هما فعلا منطقتين للسكن ولكم خالص الشكر
-
اشكر سرعة رد خضرتك لكن انا مبتدئ فى الاكسيس وعندى 5 ازرار كل زر يقوم بعمل معين اريد عند الضغط على مفتاح f مثلا يتم بالفعل ضغط على الزر الاول وتنفيذ الامر المبرمج علية كانى ضغط علية بالماوس لكن اريد ان استعمل الكيبورد دون الحاجة الى ماوس ثانيا اين اضع If KeyCode = vbKeyF1 Then DoCmd.OutputTo acOutputReport, "Q", acFormatPDF, , True, , , acExportQualityPrint End If عند حدث اية.......؟
-
السادة الخبراء بعد التحية عند قاعدة بيانات بها ازرار اوامر اريد مثلا عند الضغط على مفتاح رقم 1 من الكيبورد يتم الضغط على المفتاح الاول وتنفيذ الماكرو او الامر الموجود بة وهكذا حتى 5 مفاتيح هل ماافكر فية صعب ام ممكن تنفيذة ولكم الشكر
-
اشكركم على سعة صدركم وسرعة الاستجابة ولكن استاذى الفاضل AlwaZeeR انا قمت بمشاركة ملف search للتعديل علية لكى يتم تلوين خلفية المربع التى تحتوي على حروف البحث ولك كل اشكر والتقدير
-
الى الاخ الفاضل والخبير المعتمد AlwaZeeR الرابط الخاص https://www.officena.net/ib/topic/85048-بحث-ملون-الحروف-والخلفية/ اللى حضرتك اشرت الية لا يفتح والصفحة غير موجودة انا اريد متل هذا الموضوع بحث-ملون-الحروف-والخلفية للاهمية ولك خالص الشكر
-
Search.zipاساتذتى الافاضل وجدت نموذج البحث الرائع هذا فى منتدنا القيم الذى يحتوى على كنوز من الاكواد والبرامج التى تعلمت منها الكتير ارفق ملف اكسيس بة نموذج بحث يقوم بتلوين الحروف عند البحث ارجو من الخبراء الافاضل ذيادة الشكل الجمالى بتلوين الخلفية والنص ولكم من خالص الشكر
-
استاذنا الكبير شكرا الف شكر على سرعة الاستجابة كتر الف خيرك وجعلك الله عونا لنا هل هنا كود يمنع طباعة النماذج لانى فى بغض الاحيان اعطي امر بالطباعة للنموذج بطريق الخطا ولك الشكر مقدما
-
السادة الافاضل المميزين عندى نموذج بة حقل بة خانة اختيار صح او خطا عند وضع علامة صح امام اكتر من شخص مختلف اريد مفتاح لالغاء كل هذة العلامات دفعة واحدة لكم خالص تحياتى
-
السادة الافاضل المميزين رمضان كريم وكل سنة وانتم طيبين عندى جدول بة حقل نص البيانات كالتالى sugar;cbc;urea اريد استعلام يكتب كل منهم فى سطر مستقل urea cbc sugar ارجو مساعدتى ان امكن ولك خالص الشكر
-
اضافةالاسعار تلقائى بعد اختيار الاصناف من كمبوبوكس متعدد
jo_2010 replied to jo_2010's topic in قسم الأكسيس Access
الى الاخ الفاضل kaser906 كيف استخدم طريقة الاستاذ رمهان لعمل هذا الاستعلام لانى مش عارف ممكن تعرفنى كيف اعملها المريض محمد على بتاريخ 5/5/2018 عمل cbc;urine فى الاستعلام التاريخ الاسم المطوب 5/5/2018 محمد على cbc 5/5/2018 محمد على urine ممنون ليك كتير