طاهر اوفيسنا

Sub MyMsg() Dim Mytxt As String Mytxt = "وعليكم السلام اخي عبد الله شكرا لك على الإيضاح" MsgBox Mytxt End Sub

اخي عبد الله شكرا لك ولكن هاهي لغة الجهاز عربية والمشكلة مازالت قائمة

السلام عليكم إخواني ممكن تصحيح لهذا الشروط بدالة if بشرطين وهما إذا كانت الوضعية تساوي "متعاقد بالتوقيت الجزئي" تظهر هذه المربعات النص Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) If [الوضعية] = "متعاقد بالتوقيت الجزئي" Then [x1].Visible = True If [الوضعية] = "متعاقد بالتوقيت الجزئي" Then [x2].Visible = True If [الوضعية] = "متعاقد بالتوقيت الجزئي" Then [x3].Visible = True If [الوضعية] = "متعاقد بالتوقيت الجزئي" Then [x4].Visible = True If [الوضعية] = "متعاقد بالتوقيت الجزئي" Then [x05].Visible = True If [الوضعية] = "متعاقد بالتوقيت الجزئي" Then [x06].Visible = True If [الوضعية] = "متعاقد بالتوقيت الجزئي" Then [x07].Visible = True وإذا كانت الوضعية تساوي "متعاقد بالتوقيت الكامل" تختفي هذه المربعات النص If [الوضعية] = "متعاقد بالتوقيت الكامل" Then [x1].Visible = False If [الوضعية] = "متعاقد بالتوقيت الكامل" Then [x2].Visible = False If [الوضعية] = "متعاقد بالتوقيت الكامل" Then [x3].Visible = False If [الوضعية] = "متعاقد بالتوقيت الكامل" Then [x4].Visible = False If [الوضعية] = "متعاقد بالتوقيت الكامل" Then [x5].Visible = False If [الوضعية] = "متعاقد بالتوقيت الكامل" Then [x6].Visible = False If [الوضعية] = "متعاقد بالتوقيت الكامل" Then [x7].Visible = False وشكرا مسبقا

المشكلة عندي عندما يتم لصق اسم عربي في اوامر VB او نسخ من اوامر VB الى مشاركات المنتدى مثلا نرى هذه الرموز وماعرفت ما مشكلتها ؟

السلام عليكم إخواني ممكن مساعدة بخصوص برنامج تنبيه بنهاية إجازات عمال ودخولهم الى العمل بتاريخ اليوم المشكلة انه دائما يظهر على شريط النص المتحرك بالأعلى الا عاملا واحدا وشكرا لكم تنبيه.rar

إستعمل هذا المعيار في الإستعلام In (SELECT [Nom] FROM [Employee] As Tmp GROUP BY [Nom] HAVING Count(*)>1 ) غير مايلي : Nom هو إسم الحقل و Employee هو إسم الجدول بما يوجد لديك وفقا لحقولك تريد إظهار المكرر به او إذا كان مرفقك بالمشاركة القديمة إستعمل هذا الإستعلام SELECT جدول1.المعرف, جدول1.[رقم البطاقة], جدول1.[الاسم الموظف] FROM جدول1 WHERE (((جدول1.[رقم البطاقة]) In (SELECT [رقم البطاقة] FROM [جدول1] As Tmp GROUP BY [رقم البطاقة] HAVING Count(*)>1 )));

شكرا لك أخي youcef الآن تفطنت للمشكلة وهي في : رأس النموذج Private Sub changeColor() If Me.detach = "استقالة" Or Me.detach = "عطلة مرضية" Or _ Me.detach = "متقاعد" Or Me.detach = "منتدب" Or _ Me.detach = "وفاة" Then Me.رأس_النموذج.BackColor = vbRed Else Me.رأس_النموذج.BackColor = RGB(198, 217, 241) End If End Sub

وهو كذالك أخي yousef بارك الله فيك اولا عملت عند مربع نص detach Private Sub detach_AfterUpdate() Call changeColor End Sub ثانيا ياحبذا اعرف اين يوجد changeColor بعد التحديث ثالثا لأني طبقت الفكرة على نموذج أخر ولم افلح

لم احظى بالاجابة الشافية والكافية اخي ابو عبد الله جربت الفكرة ولم افلح

السلام عليكم إخواني ممكن مساعدة بخصوص تلوين خلفية النموذج إذا كانت الوظيفة اي detach تساوي (إستقالة - عطلة مرضية - متقاعد - منتدب - وفاة) تلوين نموذج.rar

اخي رمهان معذرة عن المداخلة لقد اعجبت بالفكرة وحاولت تطبيقها على هذا الإستعلام فلم أفلح SELECT Employee.EmployeeID, Employee.[Nom et Prénom], Employee.[Nom et Prénom_latin], Employee.[Name COMPTE], Employee.[N° COMPTE], Employee.Transfer FROM Employee GROUP BY Employee.EmployeeID, Employee.[Nom et Prénom], Employee.[Nom et Prénom_latin], Employee.[Name COMPTE], Employee.[N° COMPTE], Employee.Transfer; الوحدة النمطية 'رمهان 'abc_2_me@hotmail.com Public Function fn(p) Set rs = CurrentDb.OpenRecordset("SELECT DISTINCT Employee.Nom et Prénom FROM Empolyee WHERE ((([EmployeeID] & [Name COMPTE] & [Name COMPTE] & [N° COMPTE])='" & p & "'));") rs.MoveLast rs.MoveFirst For I = 1 To rs.RecordCount xn = xn & rs(0) & " - " rs.MoveNext Next I fn = Left(xn, Len(xn) - 3) End Function Public Function fn2(p) Set rs = CurrentDb.OpenRecordset("SELECT DISTINCT Employee.Product_ID FROM Employee WHERE ((([EmployeeID] & [Name COMPTE] & [Name COMPTE] & [N° COMPTE])='" & p & "'));") rs.MoveLast rs.MoveFirst For I = 1 To rs.RecordCount xn = xn & rs(0) & " & " rs.MoveNext Next I fn2 = Left(xn, Len(xn) - 3) End Function ارجو التعديل وفقك الله وسدد خطاك

تفضل اخي اتمنى يكون المطلوب نموذج1.rar

السلام عليكم استاذ رضوان واخي ناصر عذرا للمداخلة كنت قد اتبعت منهجية معادلات البرنامج منذ البداية وقد إستفدت منها بالنسبة للموظفين حديثي التوظيف المشكلة منتهية اما الموظفين القديمي التوظيف مثلا موظف وظف منذ 1985/08/01 ويلزمه 50 يوم عطلة سنوية عن كل سنة يعني من ذاك الوقت تحصل على 1450 يوم (29 سنة × 50 يوم) فالسؤال : ماهي الطريقة او الإضافة في البرنامج التي تنقص هذا العدد من من الإجازات الممنوحة وتبقى الا الإجازة للسنة الحالية ؟ وشكرا

ياجماعة sp3 مع Office XP Service Pack 3 (SP3) sp1 مع Microsoft Office 2010 Service Pack 1 (32-Bit)

الأخ الطائر ممكن إرفاق هذه الحزمة sp3 مع اوفيس 2010 أكن شاكرا لك ولجميع أعضاء ومشرفي المنتدى

مانفعت معي هذه

هل هي ميزة أوفيس 2010 SB3 ام اوفيس كامل

السلام عليكم إخواني دائما اعاني عند تغيير او إضافة شيء ببرنامجي على اكسس 2010 من هذه المشكلة كما في الصورة ارجو المساعدة

وهو كذالك اخي رمهان بارك الله فيك

هل من مساعدة ؟

هاهو المرفق اخي رمهان أمل أن اجد تعديلا عليه raport.rar

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

الف مبروك ياأخي ramhan على الإحتراف فعلا تستحق ذالك نتيجة عملك

تستحق التشجيع حقا فالف الف مبروك ياأبو عبد الله

وهو كذالك استاذي ابو خليل شكرا لك