ابوخليل

تفضل خانة الاختيار قيمتها : اما سالب واحد ، او صفر ويمكن ان تأخذ قيمة منطقية : True Or False Progrming2.rar

تفضل تم تعديل الكود ويعمل بكفاءة عندي لا يعمل بسبب التاريخ الهجري واعتقد السبب في النظام عندي جرب ووافني بالنتيجة Dim i As Integer i = DCount("id", "tamam_tarhel", "raf='" & "electronic" & "'" & " And tarekh=#" & Date & "#") If i > 0 Then Me.av.BackColor = 64636 Me.av.ForeColor = 9382400 Else Me.av.BackColor = 2037680 Me.av.ForeColor = 16053492 End If

وعليكم السلام استخدام الحروف العربية تسبب لخبطة في ترتيب الجمل داخل الكود مما يصعب فهمه بل يستحيل هذا تعديل للكود بطريقتك if DLookup("[الرف]","التمام_ترحيل","[الرف]='" & [الإلكترونيات] & "'" and "[التاريخ]=#" & date() & "#" )Then وهذا تعديل بعد كتابة الحروف بطريقة صحيحة يفهمها طالب العلم if DLookup("[raf]","tmamTrhel","[raf]='" & [Electronyat] & "'" and "[tareekh]=#" & date() & "#" )Then

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

وعليكم السلام ورحمة الله جرب حول المرفق الى صيغة mdb لعلك تجد تفاعلا اكثر

انظر هنا

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

قيد النظر ...

هلا استاذ كرار .. وينك اخوي ؟ .. فاقدينك ان شاء الله بخير وعافية تفضل هذا الكود من محفوظاتي : Option Compare Database Private Declare Function SetWindowLong Lib "user32" Alias _ "SetWindowLongA" (ByVal hWnd As Long, ByVal nindex As Long, _ ByVal dwnewlong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal hWnd As Long, ByVal nindex As Long) As Long Const WS_CLOSEBOX = &H80000 Const GWL_STYLE = (-16) Sub RemoveCloseBox() Dim i As Long Dim hWnd As Long hWnd = Application.hWndAccessApp i = GetWindowLong(hWnd, GWL_STYLE) i = i And Not (WS_CLOSEBOX) i = SetWindowLong(hWnd, GWL_STYLE, i) End Sub Private Sub Form_Open(Cancel As Integer) RemoveCloseBox End Sub Private Sub Form_Close() DoCmd.Quit End Sub اخفاء ايقونة اطار.rar

يمكن اخفاء زر الاغلاق ولكن سيختفي ضمنا زري التكبير والتصغير ما رأيك ؟

تفضل تم عمل المطلوب QT2016Up.rar

في الاعدادت خصائص النموذج / لسان التبويب تنسيق اجعل القيمة : زر الاغلاق = لا

ما الرابط بين هذه الاسماء وكيف سيتعرف اكسس على الأب و بنيه وزوجته يوجد اكثر من واحد من الآباء اسمه احمد و خليل و .. الخ

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

هذا تطبيق للكود اعلاه تجد في الحدث سطرين واحد لتشغيل القاعدة الثانية حين تكون بجانب الاولى وهو المفعل الآن والثاني لتشغيل القاعدة الثانية من اي مكان وعليك فقط ضبط الامتداد ، وهو الآن غير مفعل AB.rar

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

هل هذا سؤال ؟

وهو طريقة رصد ساعات الاستئذان فمعذرة اخي الحبيب

صحيح كان الاولى التجربة حتى نختصر الوقت والجهد تفضل اخي الحبيب Private Sub Form_BeforeInsert(Cancel As Integer) On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", Date), 2) prtTxt = CLng(Mid(DMax("ID", "tbl1"), 2, 2)) xLast = CLng(Right(DMax("ID", "tbl1", prtTxt = prtyr), 5)) If IsNull(xLast) Then xNext = 1 Else xNext = xLast + 1 End If Me!ID = "S" & prtyr & Format(xNext, "00000") End Sub ترقيم مع السنة وزيادة حرف.rar

تمام حتى لو فرضنا ان المستخدم سيقوم بادخال رقم يمثل الساعات فلا بد ان يدخل ضمنا معرف الموظف + تاريخ اليوم وما دمنا سنستخدم جدولا فرعيا مرتبطا بجدول الاسماء والعلاقة ستكون بين المعرفين فسيتم رصد المعرف آليا بمجرد الكتابة في الجدول الفرعي ويتبقى التاريخ الذي هو ايضا سنعمل على رصده آليا بعد ادخال الساعات المنقضية وهكذا ستكون الفلترة بناء على هذا التاريخ المدخل

وعليكم السلام تفضل على اعتبار ان قاعدة البيانات B موجودة بجانب القاعدة A واسم الزر في القاعدة A هو openDB Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub openDB_Click() ShellExecute Me.hwnd, "open", CurrentProject.Path & "\" & "B.mdb", "", "", 1 End Sub

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

معذرة اخي محمد لم انتبه ان المسألة بحاجة الى تعديل آخر لاحظ السطر هذا الموجود في الكود xNext = Val(Mid(xLast, 3, 5)) + 1 فيه حاجة لازم تتغير في السطر اعلاه ، لأننا اضفنا حرفا الى الترقيم الذي هو حرف s فالرقم 3 يعني اننا سنبدأ العد من اليسار ابتداء من الحرف الثالث الى السابع ، ثم نضيف اليه واحد ولكن الحرف الثالث من اليسار في الكود الأصلي هو الرقم الذي يأتي بعد السنة ( التي هي رقمين ) ولكننا اضفنا حرف s قبل رقمي السنة لذا يجب ان نعدل الـرقم 3 الى 4 لكي نبدأ من الحرف ( او الرقم ) الرابع لذا يجب ان نعدل السطر المذكور ليصبح xNext = Val(Mid(xLast, 4, 5)) + 1 اعلم انه يكفيك الاشارة الى مكان الخلل ولكني تبسطت بالشرح لمن يأتي لاحقا

تفضل ترقيم تلقائي في الاستعلام2.rar

السلام عليكم ان سمحتوا لي بالمداخلة انا لم اطلع على المرفق بسبب الاصدار ، ولكن المطلوب واضح انا مع الوزير باعتماد التاريخ في الخروج والعودة التصور : جدول فرعي يشتمل على المعرف وحقلي الخروج والعودة ونوعهما ( تاريخ ووقت/ جنرال ) كل العمل المطلوب من المستخدم نقر زر الخروج لرصد التاريخ والوقت ، ومثله في العودة النتائج المنتظرة من هذه العملية : - امكانية الفلترة وجمع الفارق خلال الشهر للتنبيه وقت الحاجة ( عند التجاوز ) - امكانية الفلترة وجمع الفارق حسب الشهر المحدد - امكانية الفلترة وجمع الفارق خلال كامل المدة او اختيار فترة زمنية محددة