محمدنجار

::: قد تكون القاعدة مصممة باصدار اقل من 2010 اعتقد هذا التفسير المنطقي الوحيد ...او نسخة اوفيس غير كامله وهذا احتمال ضعيف .

::: الحقيقة لايمكن عمل اي برنامج بطريقة صحيحة دون بناء علاقات تربط الجداول بشكل صحيح .. ::: بخصوص الاستعلام لا اري اي استعلام في النموذج ؟ عموما هل هذا مطلبك ... ؟ Database9_Up.rar

::: هناك خطا في العلاقات بين الجداول ...السجلات المدخلة تحتاج علاقة بالجدول Users على ما اعتقد ولو ارفقت مثال بيكون افضل ....

::: تفضل شرح بالصور

::: عليكم السلام :::لو تم تغير اسماء الحقول واسماء الجداول الى اللغة الانجليزية بيكون افضل ::: في حدث الضغط على زر فتح الفورم ضع الكود التالي مع تغير اسماء الحقول . Dim a a = Me.Patientname DoCmd.OpenForm "DiabeticForm", , , "[Patientname]='" & a & "'" ::: حيث Patientname هو اسم حقل المريض. ::: و Diabeticform هو اسم الفورم المطلوب فتحه على نفس البيانات .... بالتوفيق.

::: هههههه العقل وحدة بعض المرات مايفيد يحتاج شوي خرافة ؟

::: تفضلي Private Sub login_Click() If Me.psswrd = DLookup("psswrd", "useres", "user_name='" & Me.user_name & "'") Then MsgBox "successfully registered" DoCmd.Close acForm, "login" Else MsgBox "Make Sure that username and password are correct" End If End Sub

::: تحية للاستاذ الحلواني ::: هذه الجداول هي جداول النظام يقوم اكسس بانشاءها تلقائيا . :::تفضل هذه قاعدة بياناتك مع اضهار جداولك الرئيسية, علما انه ليس بينهما علاقة كل مافي الامر ان الجدول "Subjectbl"هو مصدر سجلات الحقل [التحصيل الدراسي] في الجدول "بودرة" حقل محسوب.rar

مبروك لكل الاخوة بالترقية .... اتمنى لهم الخير والسعادة

الف مبروك اخ شفان ... انطلاقة قوية متوازنة

::: لك مني كل الشكر والتقدير أستاذ شفان .... مزيد من التألق .

::: مشاركة مع الاستاذ ابا جودي .. :::يمكن استخدام الدالة Dlast وبنيتها كالتالي بدون شرط Dlast("[Field]","Table")

::: وإكمالا لموضوع اخي الحلواني ... كيف بمكن اضهار رمز صوري بجانب كل خيار من الخيارات . وهل يمكن ان يكون اول خيار هو امر بانشاء سجل جديد ؟

::: يمكن استخدام الدالة IF في حدث After Update لحقل التحصيل الدراسي ..... حيث calc هو اسم الحقل المحسوب .... بالتوفيق ::: للسهولة يرجى كتابة اسماء الحقول باللغة الانكليزية. If Me.التحصيل الدراسي.Value = "يقرا ويكتب" Or Me.التحصيل الدراسي = "ابتدائية" Or Me.التحصيل الدراسي = "متوسطة" Then Me.calc = Me.الراتب الاسمي * 15 / 100 Else If Me.التحصيل الدراسي.Value = "اعدادية" Then Me.calc = Me.الراتب الاسمي * 25 / 100 Else If Me.التحصيل الدراسي.Value = "دبلوم" Then Me.calc = Me.الراتب الاسمي * 35 / 100 Else If Me.التحصيل الدراسي.Value = "بكالوريوس" Then Me.calc = Me.الراتب الاسمي * 45 / 100 End If End If End If End If

::: تفضل هذا كود رصيد الكمية التراكمي وكذلك رصيد الاسعار التراكمي . BalQ: Nz(DSum("([purchq]+[refq])-([salesq]+[transq])";"itemdt";"[id]<=" & [id]);0) ' رصيد الكميات BalP: Nz(DSum("([purchp]+[refp])-([salesp]+[transp])";"itemdt";"[id]<=" & [id]);0) ' رصيد الاسعار Avrg: [balp]/[balq] ' معدل الاسعار . Emp Product2_UP.rar

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

:::اخي هذا البرنامج من تصميم الاستاذ @محمد فؤاد من جمهورية مصر العربية ::: ولا اعتقد من اللائق التعديل على برنامجه دون اذنه ... لكن يمكن مساعدتك في امر الترحيل بكتابة هذا الكود في زر الترحيل if me.payment="اجل"then goto post 'اكمال الترحيل else me.postbottom.enabled=false end if ::: حيث postbottom هو اسم زر الترحيل . بالتوفيق

::: أرفع قاعة بيانات ليتم التعديل عليها . اما كود فتح النمودج هو DoCmd.OpenForm "frmName", acNormal ::: وفي حدث عند الفتح للنموذج تكتب الكود التالي للذهاب الى سجل جديد docmd.GoToRecord,,acNewRec me.textname.enabled=false ' عدم تمكين me.textname.visible=false 'اخفاء العناصر

::: عليكم السلام ... ::: اذا احببت عمل برنامج متكامل عليك الذهاب الى قسم الاعلام . مع التقدير .

::: أولا اشكر الاخ الاستاذ @ابا جودى ::: تفضل الملف بعد التعديل مع تغيير باسماء الحقول ... كما يمكنك التعديل على العمليات الحسابية الجمع والطرح ... حتى تصل للناتج ... بالتوفيق . Emp Product_UP.rar

::: ارجو تغيير اسماء الحقول الى اللغة الانجليزية .. لتسهل العملية ؟ فكتابة عدة عقول بالعربي في استعلام صعب ويلبك .عموما هذا هو كود الرصيد . Nz(Dsum("[FieldsTrans]";"Table";"[No]<=" &[No] And "[Item]="&[Item]))

::: تفضل .. بالتوفيق الموظفين - تفاصيل المنتجات2up.rar

::: تفضل تم الاجابة على السؤال الاول .. يرجى كتابة مشاركة جديدة في السؤال الثاني ! وحسب قوانين المنتدى.... بالتوفيق الموظفين - تفاصيل المنتجاتup.rar

::: وهذا ما قمت بعمله كما في الصور التوضيحية .

::: تفضل لا اعرف ان كنت فهمت طلبك اخيرا ... بالتوفيق new1_up.rar