mrnooo2000

الموضوع لا يحتاج الى دالة فقط جملة شرط تؤدى ما تريد اذا كانت القيمة أقل من صفر تكون القيمة = صفر

ما دمت تريد التاريخ فى خانة واحدة نفذ ما تريده على نفس حقل التاريخ و لكن اجعل نوع الحقل تكست

اعتقد ان الافضل ان تضع جدول واحد للتقييم و كل مقيم يضيف به سجل خاص به اى ان كل شخص سيكون له 8 سجلات

هذا هو كودك بعد التعديل Me.[emp no] = Me.[emp name] Me.department = DLookup("[department]", "staff1", "[emp no] ='" & Me.empname & "'") Me.floorno = DLookup("[floor no]", "staff1", "[emp no] ='" & Me.empname & "'") لكن من الافضل الا تكون الحقول مرتبطة لعدم تكر…

اعمل التاريخ فى 3 خانات منفصلة خانة لليوم و خانة للشهر و خانة للعام او حتى خانتين واحدة لليوم و الثانية للشهر و العام

تفضل db5.rar

هكذا Database2003.rar

تفضل اخى hyy.rar

اليك هذا المثال و لكن ما تطلبه غير منطقى لانه يعنى تكرار للبيانات بلا داعى db002.rar

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

لا يوجد حد ادنى للملفات المرفوعة اخى الكريم حاول مرة اخرى

عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .

عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .

احفظ السجل أولا

انسخ هذا الكود و ضعه فى النموذج Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) On Error GoTo Err_Form_KeyDown If KeyCode = vbKeyEscape Then KeyCode = 0 End If Exit_Form_KeyDown: Exit Sub Err_Form_KeyDown: MsgBox Err.Description Resume Exit_Form…

اليك هذه الدالة أخى Function AddAppProperty(strName As String, _ varType As Variant, varValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo AddProp_Err dbs.Properties(strName) = var…

عذرا الموضوع مغلق للأسئلة يجب تحديد النوع سؤال وطرح نقاط عليه والحد الأدنى 3 نقاط وإلا سيغلق موضوعك فورا وسيحذف بعد ذلك حتى لو تمت الإجابة عليه .

استخدم خاصية البحث ابحث عن طباعة السجل الحالى او ضع مرفق للتطبيق

تفضل اخى Dim strRemoveList As String Dim astrRemoveItem() As String Dim varItem As Variant Dim lngI As Long With Me.L1 For Each varItem In .ItemsSelected L2.AddItem .ItemData(varItem) strRemoveList = strRemoveList & Chr(0) & .ItemData(varItem) Next varItem If …

جرب هذا الكود Dim lItem As Long For lItem = 0 To Me.L1.ListCount - 1 If Me.L1.Selected(lItem) = True Then L2.AddItem L1.ItemData(lItem) Me.L1.Selected(lItem) = False End If Next lItem