Shivan Kurdi - شڤان کوردی

عفوا منك حبيبي لكن انا نزلت قاعدة بياناتك بها جدولين فقط ما فهمت ما تريد بالضبط ممكن توضح اكتر ما تريد واذا بكون بالمثال راح يكون احسن مع تقدير

عفوا نسيت ان ارفق لك القاعدة البيانات راح تضع في حدث بعد تحديث لعدد السنوات و النسبة لانه احتما ان تغيير النسبة لكن هناك ملاحظة انت كان كتبت في الجدول 1,40 و مع رمز % لازم تكتب بهذا الشكل فقط 1.40 اليك قاعدة بياناتك بعد تعديل Base de données1.rar

اعتذر منك اخي اليك ملفك بها مديول واحد فقط وهذا هو المديول Option Compare Database Option Explicit ' كل حالة بها رقمه الخاص Global Const SW_HIDE = 0 ' في وضع اخفاء شاشة اكسس عطيتناه رقم صفر Global Const SW_SHOWNORMAL = 1 ' في وضع نورما عطيتناه رقم واحد Global Const SW_SHOWMINIMIZED = 2 ' في وضع ميني مايز اي بيكون نافذة اكسس صغيرة عطيتناه رقم اثنين Global Const SW_SHOWMAXIMIZED = 3 ' في وضع ماكسي مايز اي يعني شاشة اكسس كبيرة عطيتناه Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) Dim loX As Long Dim loForm As Form On Error Resume Next Set loForm = Screen.ActiveForm If Err <> 0 Then If nCmdShow = SW_HIDE Then loX = apiShowWindow(hWndAccessApp, nCmdShow) Err.Clear End If Else If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then Else loX = apiShowWindow(hWndAccessApp, nCmdShow) End If End If fSetAccessWindow = (loX <> 0) End Function وحين يفتح الفورم الاول اي فورم 1 في حدث فتح الفورم كتبناه كودك الاول وهو Call fSetAccessWindow(0) وهو الذي بيخفي خلفية اكسس وحين يفتح فورم من النوع سبلايت كتبنا كود Call fSetAccessWindow(1) اي يعني خلي بيكون وضع عادي وحين يغلق ذاك الفورم كتبناه كود الاول Call fSetAccessWindow(0) وحسب ذاك الارقام اي رقم صفر وواحد والقاني والثالث نكدر نغير وضع خلفية اكسس اتمنى ان وصل لك المفهوم واليك ملفك بعد تعديل مع تقدير ASH1 (1).rar

جرب على كومبيوتر اخر هل بيحدث نفس الشي ؟ اذا لا شوف كومبيوترك هل ما يحتاج لاي تحديثات . اذا نعم اعمل كل تحديثات وبعدين جرب واذا جوا السؤال الاول نعم ارفق ذاك القاعدة البيانات لكي نشوفه مع تحياتي

ان شاء الله راح نكملها

نعم اذا ما اكدرت ان تضيفه انا راح اضيفها

افتح قاعدة بياناتك واعمل كومباكت وجرب من جديد

اتمنى ان اكون فهمت الموضوع انا اضفت لك هذا الكود Me.p_centage = Nz(Me.nbr_annee) * Nz(Me.p_centiep) بس اليك ان تكتب عدد سنوات جرب ووافيني بالنتيجة

اتفضل New Microsoft Office Access Application (2).rar

اتفضل ASH1.rar وبالنسبة لفتح الاستعلام تكدر تفتحه بواسطة عمل تقرير عليه او نموذج مستمر عليه هذا والله اعلم تحياتي

استخدم هكذا NZ([forms]![NameMyForm]![NameMyfeild]) Nz(me.myfeild) نايم ماى فورم = اسم النموذج نايم ماي فايلد = اسم المربع النصي والا ارفق قاعدة بياناتك لكي نعمل العملية عليه او اكتب كودك بالصحيح وهناك ملاحظة ابتعد من تسميات باللغة العربية

يا اهلا وسهلا انتظرني لي العودة ان شاء الله

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

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

اللهم امين

اتفچل انا غيرت نوع البحث لنموذج فورم فاميليس عملت مصدر النموذج الى استعلام و عطيته شروط forms!form_familys!sid ' هذا لحقل اي دي forms!forms_familys!sname ' هذا لحقل نايم الاسم واستخدمت بعد تحديث لكومبوبوكس البحث هذا الكود ' sid هذا لكومبوبوكس برقم البحث اي لكومبوبوكس me.sname = "" Docmd.Requery ' sname وهذا لكومبوبوكس بالاسم اي لكومبوبوكس me.sid = "" Docmd.Requery لكن هناك ملاحظة لا تستخدم الاسماء المحجوزة لقاعدة بياناتك مثل name واليك قاعده‌ بياناتك بعد تعديل على نموذج form_familys Mini.rar

الخطأ في ترحيل البيانات من الى خارج الجمعية في هذه الكود strSQL = "INSERT INTO ALMOSTABADIN ( ID, Type_Osra, Number_afrad,total_payment,total_massarif,Name,Qawmi,Date_Birthday,Age,Gender,Healthy,sick,Type_Sick,Address1,Address2,Count_Wife,Mobile,Name_Mother,Social,work,job,Cash,Not_work,Smoking,Notes,Sons,Count_Sons,Picture,Ael,He_Ael,Sabb_ElEstbad,Date_ElEstbad ) SELECT Tbl_Familys.ID, Tbl_Familys.Type_Osra,Tbl_Familys. Number_afrad,Tbl_Familys.total_payment,Tbl_Familys.total_massarif,Tbl_Familys.Name,Tbl_Familys.Qawmi,Tbl_Familys.Date_Birthday,Tbl_Familys.Age,Tbl_Familys.Gender,Tbl_Familys.Healthy,Tbl_Familys.sick,Tbl_Familys.Type_Sick,Tbl_Familys.Address1,Tbl_Familys.Address2,Tbl_Familys.Count_Wife,Tbl_Familys.Mobile,Tbl_Familys.Name_Mother,Tbl_Familys.Social,Tbl_Familys.work,Tbl_Familys.job,Tbl_Familys.Cash,Tbl_Familys.Not_work,Tbl_Familys.Smoking,Tbl_Familys.Notes,Tbl_Familys.Sons,Tbl_Familys.Count_Sons,Tbl_Familys.Picture,Tbl_Familys.Ael,Tbl_Familys.He_Ael,Sabb_ElEstbad,Date_ElEstbad" هو فراغ بين اسم الجدول والحقل المطلوب Tbl_Familys. Number_afrad وغيرت كود لترحيل من خارج الجمعية الى الجمعية من السابق الى هذا strSQL = "INSERT INTO Tbl_Familys ( ID, Type_Osra, Number_afrad, total_payment, total_massarif, Name, Qawmi, Date_Birthday, Age, Gender, Healthy, sick, Type_Sick, Address1, Address2, Count_Wife, Mobile, Name_Mother, Social, [work], job, Cash, Not_work, Smoking, Notes, Sons, Count_Sons, Picture, Ael, He_Ael )SELECT ALMOSTABADIN.ID, ALMOSTABADIN.Type_Osra, ALMOSTABADIN.Number_afrad, ALMOSTABADIN.total_payment, ALMOSTABADIN.total_massarif, ALMOSTABADIN.Name, ALMOSTABADIN.Qawmi, ALMOSTABADIN.Date_Birthday, ALMOSTABADIN.Age, ALMOSTABADIN.Gender, ALMOSTABADIN.Healthy, ALMOSTABADIN.sick, ALMOSTABADIN.Type_Sick, ALMOSTABADIN.Address1, ALMOSTABADIN.Address2, ALMOSTABADIN.Count_Wife, ALMOSTABADIN.Mobile, ALMOSTABADIN.Name_Mother, ALMOSTABADIN.Social, ALMOSTABADIN.work, ALMOSTABADIN.job, ALMOSTABADIN.Cash, ALMOSTABADIN.Not_work, ALMOSTABADIN.Smoking, ALMOSTABADIN.Notes, ALMOSTABADIN.Sons, ALMOSTABADIN.Count_Sons, ALMOSTABADIN.Picture, ALMOSTABADIN.Ael, ALMOSTABADIN.He_Ael FROM ALMOSTABADIN;" ملفك بعد تعديل Mini.rar

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

اليك هذا الكود لكن لازم انت تكتب الاسم اي بأي اسم تريد تصديره DoCmd.OutputTo acOutputReport, "OMALA", "PDFFormat(*.pdf)" هذا والله اعلم

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

الحمد لله تم الوصول الى المطلوب ... پێدڤى ب سوپاسیێ ناکەت

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

عفوا بس ممكن ترفق القاعدة لو سمحت

اتفضل من هنا

اتفضل ما تريد ان شاء الله بيكون هو المطلوب ملفك بعد تعديل مع الشرح بالصور شوف عملنا استعلام للجدول باسم كويري 1 واضفنا الى هذا الاستعلام ثلاث حقول اخر بالاكواد كما مبينة بالصور شوف الاكواد لكل حقل وهذ كود الحقل الاول اللي باسم Expr1 Expr1: IIf([arabic]>=50 And [english]>=50 And [science]>=50 And [history]>=50 And [geography]>=50 And [sport]>=40 And [sport]<50;"عبور";IIf([arabic]>=50 And [english]>=50 And [science]>=50 And [history]>=50 And [sport]>=50 And [geography]>=40 And [geography]<50;"عبور";IIf([arabic]>=50 And [english]>=50 And [science]>=50 And [sport]>=50 And [geography]>=50 And [history]>=40 And [history]<50;"عبور";IIf([arabic]>=50 And [english]>=50 And [sport]>=50 And [history]>=50 And [geography]>=50 And [science]>=40 And [science]<50;"عبور";IIf([arabic]>=50 And [sport]>=50 And [science]>=50 And [history]>=50 And [geography]>=50 And [english]>=40 And [english]<50;"عبور";IIf([sport]>=50 And [english]>=50 And [science]>=50 And [history]>=50 And [geography]>=50 And [arabic]>=40 And [arabic]<50;"عبور";"shivan")))))) وكما مبينة الكود في الصورة وهذا هو الكود الحقل الثاني اللي باسم Expr2 Expr2: IIf([arabic]<50 And [english]<50 Or [arabic]<50 And [science]<50 Or [arabic]<50 And [history]<50 Or [arabic]<50 And [geography]<50 Or [arabic]<50 And [sport]<50;"راسب";IIf([english]<50 And [science]<50 Or [english]<50 And [history]<50 Or [english]<50 And [geography]<50 Or [english]<50 And [sport]<50;"راسب";IIf([science]<50 And [history]<50 Or [science]<50 And [geography]<50 Or [science]<50 And [sport]<50;"راسب";IIf([history]<50 And [geography]<50 Or [history]<50 And [sport]<50;"راسب";IIf([geography]<50 And [sport]<50;"راسب";IIf([arabic]<40 Or [english]<40 Or [science]<40 Or [history]<40 Or [geography]<40 Or [sport]<40;"راسب";"ناجح")))))) كما مبينة بالصور الادناه كود لحقل التقييم تقييم: IIf([Expr1]="عبور";"عبور";IIf([Expr1]<>"عبور" And [Expr2]="ناجح";"ناجح";"راسب")) وكما في الصورة ادناه والنتيجة الاخيرة شوف بالصور واتفضل مع قاعدة بيانات مع تحياتي crossed.rar