nacer_alger

شكرا للك اخي عبد الله قدور

سلام عليكم

ظهرت مشكلة في جميع نماذج لقاعدتي وهي تحول نوع الخط بهذا الشكل الغريب

هل هو فيروس لاني اشك في فيروس وما هو الحل لهذه المشكلة

ارجو المساعدة

شكرا لك على مساعدة

نفس  الكود  الذي  استعمله الفرق اناا اضعه في المصدر  هذا الذي لديك يوضع في الفيجيال

اعتقد انا هناك فيروس في قاعة 

اخيyms12

شكرا جزيل

سلام عليكم
لقد استعملت هذا الكود =DernDom("[code_employé]";"Employé en arabe")
  لكن عندما اعدل في سجيل يظهر  لي اخر رقم الخاص بسجل الذي  عدلت عليه
ان اريد اين يظهر اخر رقم الذي توقفت عنده
مثلا اريد تسجيل موظف جديد اعطيه رقم 100 اريد ان يظهر هذا الرقم في حقل مستقل الغرض من هذا هو عندما اريد ان اسجل موظف اخر اعرف اني توقفت عند رقم 100 فاعطيه رقم اخر هو 101 وهكذا بترتيب

شكرا لك على النصيحة

سلام عليكم

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

شكرا لك حفظك الله

شكرا استاذ جعفر عل هذا  الشرح

بارك الله فبك

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

شكرا لك اخي الكريم توصلت الى حل بهذا الكود

مثلا

=Somme(VraiFaux([في الخدمة]="F";1;0))

شكرا لك على التجاوب مع طلبي حت لا اصعب امر عليك انت وضعت كود لحساب الموظفين في القاعدة التي ارسلتها لي

=CpteDom("[الاسم]";"Employee")

اريدك ان تضيف له شرط لذين في الخدمة ويظهر العدد في حفل

او انا اطبق على الذين خارج الخدمة يمثالك يحقل جديد

اخي الكريم ها هو المرفق

هناك حقلين اريسد حساب يظهر فيهم  حقل اسمه titulaires و اخر اسمه contractuel

الشرح مفصل في النموذج

contactuel titulares.rar

المشكلة ثانية  انت اعطيتني مثال بشرط if هي عندما يختار يحسب و عند عدم اختيار يضهر الحقل فارخ دون حساب

انا اريده ان يحسب دائما كلما اضفت قيمة يحسبها

شكرا اخي وليد اتبعت المثال  هذا الكود الذي توصلت اليه

Private Sub employé__AfterUpdate()
If employé_.Value = "TITULAIRES" Then

( " Texte1.Value = DCount("[code_employé]", "Employé", "[en activeté] = 0
    
    End If
End Sub

المشكلة هيا  يعطيني الذين ليس في الخدمة للأني وضعت علامة صفر في0= en activité

ماهي العلامة عكس صفر جربت =1 لم تنجح

شكرا

شكرا اخي هذا هو طلبي

هل ممكن ان تضيف لي  شرط اخر في الكود   اي الموظفين المرسمين الذين هم  في الخدمة فقط لا يحسب المنتهية خدمتهم

عند في النموذج خانة اعلم بصح على الموظف الذي يعمل والموظف الذي انتهت خدمته متقاعد مثلا اترك الخانة فارغة

الكود يعمل  بشكل جيد  لكنه يحسب الموظفين الذين انتهت خدمتهم

هل هناك مثال لطلبي

وشكرا

شكرا على الرد

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

اريد انشاء حقلين في النموذج مثلا

عدد المرسمين

عدد المتعاقدين

طلبي هو كود حساب للمتعاقدين و المرسمين

اعرف انه يكتب في المصدر الحقول  المذكورين هذا الكود مع دالة CUNT لكن كيف

السلام عليكم

عند مربع التحريروالسرد سميته نمط التوظيف يحتوي هذا  المربع على خيارين هما (مرسم و متعاقد )
اريد ان احسب عدد المرسمين و عدد المتعاقدين كل لوحده في حقل مستقل
مثلا حقل عدد المرسمين و حقل عدد المتعاقدين
استعملت الدالة compte=([مرسم]) لكني لم انجح هناك خطا في الكود
ارجو المساعدة

شكرا لك استاذ جعفر

سلام

قمت عمل هذا الكود لتصدير استعلامات من اكسس الى اكسل لكن

المشكلة هي ان في اكسل الورقة الأولى القوائم تظهر بالعربيةهذا جيد  اما باقي اوراق تظهر بلغة الفرنسية كما سميتها مع اني  وصفتها بلغة العربية كما هو الحال في الورقة الأولى

طلبي هو اريد ان تظهر  القوائم بالغة العربية في كل الورقات وليس في الورقة الأولى فقط (تسميات الحقول)

DoCmd.OutputTo acOutputQuery, "Employé en arabe Requête", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrint
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Mis en dispo arabe", "Employé en arabe Requête.xlsx", True, sheet2
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Mutation arabe", "Employé en arabe Requête.xlsx", True, sheet3
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "les contractuelles en arabe", "Employé en arabe Requête.xlsx", True, sheet4

السلام عليكم
ممكن استفسار
هل تغيير امتداد اكسس 207من accdb الى accdr لا يوقع مشاكل في التطبيق
اثناء عمل به

 

شكرا لك أخي رمهان  على الرد مشكلة هي فيروس في حاسوب في مكان عملي

في منزل تعمل بدون خطا

 

شكرا لكرمهان مشكلة هي فيروس في حاسوب في مكان عملي

في منزل تعمل بدون خطا

شكرا لك استاذ ستارنت مشكلة هي فيروس في حاسوب في مكان عملي
في منزل تعمل بدون خطا

شكرا لك و للأخ ردوان على مساعدة

سلام عليكم
عندي نموذج فيه 60 حقل قمت بتعطيل  هذه الحقول و جعلتها غير نشطة من خصائص
  ثم انشائت زر امر و في خاصية عند النقر
جعلت لكل حقل امامه كود التفعيل
مثال:
nom.Enabled = True
Adresse.Enabled = True
 

المشكلة هي عندما اضع سوى 15 حقل واجعل لهم الكود التفعيل تعمل بشكل عادي لكن عندما اجعل  كل الحقول  اي 60 حقل
تظهر رسالة تقول ان القرس غير كافي او تقول رسالة اخر الذاكرة غير كافية

ارجو الحل  او اعطائي البديل  اي اريد ان تكون الحقول غير نشطة و بمجرد الضغط على زر امر تنشط من جديد
وشكرا