بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
-
Posts
1170 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
8
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو عمر ضاحى
-
احضار الاولاد والعمر وصلة القرابة لنفس الشخص فقط
عمر ضاحى replied to Tarekfathallah's topic in قسم الأكسيس Access
اين جدول المرضى ال هاخذ منه combo6 له البيانات -
احضار الاولاد والعمر وصلة القرابة لنفس الشخص فقط
عمر ضاحى replied to Tarekfathallah's topic in قسم الأكسيس Access
هل هذا الذى فى جدول T_aa ؟ اين الجدول الخاص به ؟ اعتقد انه فى جدول child_family صحيح ؟ -
^_^ محدش عنده فكره
-
احضار الاولاد والعمر وصلة القرابة لنفس الشخص فقط
عمر ضاحى replied to Tarekfathallah's topic in قسم الأكسيس Access
اعتذر لك مش قادر افهم حضرتك يعنى المفترض لما اختار اسم المريض من combo2 ايه ال يظهر لى فى combo6 ولما اختار من combo6 ايه ال يظهر لى فى النموذج الفرعي -
احضار الاولاد والعمر وصلة القرابة لنفس الشخص فقط
عمر ضاحى replied to Tarekfathallah's topic in قسم الأكسيس Access
جرب المرفق هل هذا ما تريد ؟ مساعدات مرضية جديد2.accdb -
هذا مخالف يمكن ان تستخدم داله if مثل If IsNull(المعيار) Then الحالة الاولى Else الحالة الثانيه End If
-
السلام عليكم ورحمة الله وبركاته رمضان كريم ^_^ ويتقبل الله منا ومنكم صالح الاعمال انا معي دالة لكن مش عارف اوصل للصيغه الصحيحه لحلها الهدف من الداله هو الوصول لاعلى قيمه (رقم) فى جدول تحت معيارين الاول مطابقة رقم الموظف الثاني ان يكون داخل السنه الحالية اولا الداله بهذه الصيغه تعمل جيدا =Nz(DMax("[NoM7alfa]";"tblM7alfa";"[EmpNoM7alfa]=[Forms]![frmSearch]![SubfrmQTGetAlll].[Form]![Emp_No]" And [M7alfaDate]<=#31/12/2022#);0)+1 لكن لما حبيت اجعل المعيار الثاني يكون تلقائى فكرت باستخدام دالة Between و ايضا DateSerial Between DateSerial(Year(Date); Month(Date); 1) AND DateSerial(Year(Date); Month(Date) + 1; 0) حتى احصل على تاريخ بين اول السنه واخر السنه الحاليه الان اريد ان ادمج بين الدالتين فكرت ان اجعلها هكذا =Nz(DMax("[NoM7alfa]";"tblM7alfa";"[EmpNoM7alfa]=[Forms]![frmSearch]![SubfrmQTGetAlll].[Form]![Emp_No]" And [M7alfaDate]<= Between DateSerial(Year(Date); Month(Date); 1) AND DateSerial(Year(Date); Month(Date) + 1; 0) );0)+1 لكنها لا تعمل ويظهر لى خطأ فى تركيب الداله
-
انت ممكن فى النموذج والتقرير تجمع بين الحقل الرقمي والنص معا باستخدام & وهذا ايضا يتطلب ان يكون هناك حقل نصي فى الاساس وايضا حقل رقمي وتجمع بينهم فى حقل ثالث او مباشرتا فى النوذج والاستعلام والتقرير
-
هدية هدايا الأكسس 🎁 | 02| الكاتب الذكي لدوال المجال Dloockup وأخواتها 😊
عمر ضاحى replied to Moosak's topic in قسم الأكسيس Access
الف الف شكر اشتغلت تمام ^_^ ربي يحفظك من كل شر -
هناك الكثير من المواضيع التى تتحدث عن هذا الامر ممكن حضرتك تراجعها واذا واجهتك مشكله اثناء التنفيذ برجاء وضع موضوع موضح فيه المشكله تحديدا مع مرفق اتركك الان مع مواضيح تخص طلبك وسوف تستفاد منها ان شاء الله
-
احضار الاولاد والعمر وصلة القرابة لنفس الشخص فقط
عمر ضاحى replied to Tarekfathallah's topic in قسم الأكسيس Access
يا هلا انت قدامك طريقه من اثنين (حسب رأئي الذى قد يكون خطأ) اما انك تعمل حقل فى النموذج الرئيسي يكون فيه رقم المريض وتعمل استعلام عن بيانات المريض بناءا على معيار رقم المعرف فى النموذج الرئيسي ورقم المعرف فى النموذج الرئيسي يكون قائمة مصدرها ارقام واسماء المرضي من الجدول وبكده عند اختيار رقم المعرف تظهر جميع البيانات للمريض او تستخدم دالة DLookUp كمثال :- DLookUp("[name_marid]";"[t_name&datemousade]";"[id_name&family] ="& [Forms]![T_ALL]![id] &"") وتضعها فى كل حقل تريد استدعاء البيانات طبعا لا تنسي تغير اسم الشئ الذى تريد استدعائه مثل انا هنا باستدعي الاسم [name_marid] اتمنى اكون شرحة لك الحل -
هدية هدايا الأكسس 🎁 | 02| الكاتب الذكي لدوال المجال Dloockup وأخواتها 😊
عمر ضاحى replied to Moosak's topic in قسم الأكسيس Access
نفس النتيجه مرفق ملف للنظ والوقوف على المشكله وين S7.rar -
هدية هدايا الأكسس 🎁 | 02| الكاتب الذكي لدوال المجال Dloockup وأخواتها 😊
عمر ضاحى replied to Moosak's topic in قسم الأكسيس Access
انا عندي نفس الشئ لكن مع هذا الحقل لا يفعل (لا ادري ما السبب) -
هدية هدايا الأكسس 🎁 | 02| الكاتب الذكي لدوال المجال Dloockup وأخواتها 😊
عمر ضاحى replied to Moosak's topic in قسم الأكسيس Access
هلا يا هلا باستاذى @ناقل المشكلة التى ارها هى لما لم يستطع التعرف على نوع الحقل مباشرتا مثلما تعرف على الحقل الذى بالاعلى -
بالنسبه لسؤالك لا يمكن ان نضيف نص فى حقل رقمي لكن يقبل رقم فى حقل نصي اما الوحدات يجب ان تكون نص لكى تقبل ارقام ونصوص معا اما اذا كنت تريد ان تجعل الوحده رقم لكى تستخدمها فى العمليات الحسابيه وغيرها فيمكن ان تجعل للوحدات جدول مستقل وتربطه بالجدول الاساسى وفى الجدول المستقل للوحدات اجعل فيه حقل نصي وحقل رقمي لنفس الوحده (طبعا بخلاف الحقل الرقمي الذى سوف تقوم بربطه بالجدول الاساسى) وفى الحقل النصي اكتب اسم الوحده بالاحرف والارقام معا مثل ( 100 لتر ) وفى الحقل الرقمي اكتب 100 وعند عرض الفاتورة مثلا يظهر الحقل النصي لكن عتد استخدام العمليات الحسابيه يتم استخدام الحقل الرقمي فى الخلفيه هذا ما فكرت فيه وقد تجد افكار افضل من افكارى هنا (هذا اكيد) ^_^
-
هدية هدايا الأكسس 🎁 | 02| الكاتب الذكي لدوال المجال Dloockup وأخواتها 😊
عمر ضاحى replied to Moosak's topic in قسم الأكسيس Access
الحقل رقمي لكن لا يعمل كما هو فى الصورة يوجد حقلين رقمي لكن احدهم تعرف عليه والاخر لا لما ؟ -
هل هذا ما تريد ؟ رصيد تراكمي.rar
-
اعتقد ان مثل هذه المواضيع مخالف للقوانين هنا (والله اعلم) لكن مهتم ^_^
-
ارفع نسخه من التقرير علشان اعرف اعمله لك ممكن تستخدم داله Replace لست متأكد من فاعليتها لكن قد تفيد بطريقة ما
-
جرب كده شوف الفكره دي هنا علشان انا منتظهر تظهر لك الاخطأ ونبدأ نحل فيها مع بعض برنامج.accdb
-
لكي تعم الفائده يجب وضع المشكله بكل تفاصيلها هنا وايضا الحل (طريقة الحل حتى اتعلم انا وغيري من هذه المشاكل ونخرج بافكار جديده تنفع الاخرين)
-
هدية هدايا الأكسس 🎁 | 02| الكاتب الذكي لدوال المجال Dloockup وأخواتها 😊
عمر ضاحى replied to Moosak's topic in قسم الأكسيس Access
اضيف فين ؟ هنا ؟ Public Function GetColType(Tb_Name As String, Col_Name As String) As String Dim db As DAO.Database Dim objRecordset As DAO.Recordset Dim i As Integer Set objRecordset = CurrentDb.OpenRecordset(Tb_Name) For i = 0 To objRecordset.Fields.Count - 1 Debug.Print objRecordset.Fields.Item(i).Type & " -" & objRecordset.Fields(i).Name If Col_Name = objRecordset.Fields(i).Name Then Select Case objRecordset.Fields.Item(i).Type Case Is = 4: GetColType = 1 Case Is = 10: GetColType = 2 Case Is = 5: GetColType = 1 Case Is = 20: GetColType = 1 Case Is = 8: GetColType = 3 Case Is = 1: GetColType = 4 Case Is = 4: GetColType = 1 Case Is = 3: GetColType = 1 End Select End If Next i End Function واعرف الارقام من وين ؟ ------------- تعديل-------------- لقد انتبهت الى هذا 4 -Emp_No_Att 10 -Name 8 -Att_Date 10 -Timetable 10 -On duty 10 -Off duty 10 -Clock In 10 -Clock Out 10 -Late 10 -Early 1 -Absent 7 -OT Time 10 -Exception 10 -Department 10 -ATT_Time 10 -Notes 4 -SnMonth 8 -PayrollRegSN هل هذه الارقام التى تقصدها ؟ وكيف استخدمها -
بس مبدئيا انا لما راجعت الاستعلامات وجدتها استعلامات بدون اى معايير واعتقد ان مشكلتك فى المعيار انت لما بتعمل استعلام يجب ان تضع المعيار لكل حاله مثلا ان يظهر البيانات الخاصه بال ID رقم 1 فقط او 7 فقط وهكذا فممكن حضرتك تشرح لنا الاليه التى يجب ان يكون البرنامج شغال بها حتى نفهم نحن ونعرف اين نضع المعيار