امير الكناني

ابا جودى لم تعمل الدالة وياريت طريقة جمع حقل كامل او المعادله بالتقرير

السلام عليكم .... ارجو مساعدتي في انشاء معادله بين حقلين الحقل الاول يحتوي على رقم والحقل الثاني يحتوي على رقم ايضا المعادلة المطلوبه وظهورها بالتقارير مجموع الحقل الاول يقسم على 2 وينقص من صافي الحقل الثاني بمعنى بهذه الطريقة المعادلة ولكن كيف يتم تطبيقها بالاكسس علما موجوده لدي بالاكسل ولكن لااستطيع تطبيقها بالاكسس واجهة صعوبات ارجو من الخبراء تطبيقها وياريت يكون مثال بسيط وجدا شكرا من يساعدني المهعادله المطلوبه بهذه الصيغة مجموع الحقل الاول يقسم على رقم 2 وبعدها ينقص من مجموع الحقل الثاني ياريت يكون بمثال انا عملت كالتالي ولكن لم تنج الطريقة =Sum([gold import])/2-Sum([gold export])

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

معقوله الى الان مافي حد ساعدني

لسلام عليكم اساتذتي الافاضل ورحمة الله وبركاته تم ادخال بيانات في البرنامج بحيث اضيفت الى جدول رقم tbl2 مثلا الموظف خالد استحق علاوة سنوية من تاريخ 1/1/2007 و1/1/2008 و1/1/2009 و 1/1/2010 اذن اكمل اربع علاوات وعليه يدخل ضمن الشريط المتحرك الخاص بشريط الترفيع وهذا البرنامج بعد ادخال البيانات الصحيحة الان البرنامج يعمل فقط على كل سنه علاوة المطلوب عند اكمال 4 سنوات يتم ترفيع الموظف ويظهر في شريط الاصفر الاشخاص الذين تم ترفيعهم Alawat11.rar

ارجو المساعده من قبل الخبراء

السلام عليكم ورحمة الله وبركاته شكرا للمنتدى الرائع.... ارجو المساعده بزر عرض الصور فهو لايعمل النظام كامل ولكن اريد ان اضغط على زر معاينه الصوره ان تظهر ولاكن لايعمل الزر بالجدول الفرعي نسخه من النظام 555.4.m.salama.accdb.rar

بارك الله فيك اخي العزيز ماقصرت وفيت وكفيت

بارك الله فيك سوف اجرب وارد عليك لم افهم طريقة اضافة الكود لئني عملت برنامج لاضافة البيانات والصور بداخل مجلد اسمه folder pسوف ارفق المثال وارجو طريقة التعديل program.rar FolderP2.rar

بارك الله فيك اخي الكريم

ولكن اين يتم اضافة هذا الكود هل يمكن عمل مثال بسيط ولكن لم افهم اين يتم اضافة هذا الكود هل ممكن التوضيح اكثر او بمثال ومكان الكود والمسار الذي تقصده اين يتم وضعه بمعنى عند جلب المسار من السيرفر والذي فهمته اننا نضع فولدر لتخزين الصور على سبيل المثال في البارتشن d:/ameer/pic وهذا البارتن موجود على السيرفر الان اين اضيف المسار بالنموذج انا لدي برنامج اضافة الصور ويتم اختيار الصوره من خلال ال BROWSER وتخزن تلقائيا مع البيانات وهكذا ولكن اذا امكن عمر زر عند ادخال البيانات وضغط حفظ البيانات يتم ارسالها الى مسار السيرفر اتمنى عمل ذلك استاذنا الفاضل واذا احببت ارفق نسخه من البرنامج ملاحظه انا مقسم قاعده البيانات الى قسمين قسم الجداول مربوط بقاعده بيانات SQL SERVER وهيه موجوده بالسيرفر والقسم الثاني من القاعده التي هيه النماذج موجود بحاسبات المستخدمين بمعنى ان المستخدم عند اختيار صور من الحاسبه ترحل الصور الى السيرفر وعلما الحاسبات مربوطه شبكيا مع السيرفر وانا في انتظارك استاذنا الغالي وبارك الله فيك ولك حسن الدعاء والتوفيق على مساعدتك لكل الاعضاء

نعم اخي

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

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

في البداية شكرا الى جميع الاعضاء والى الاخ محمد امين الذي ساعدني في برنامج الاجازات ولكن لدي مشكله بعد تكبير قاعده البيانات وربطها مع سيرفر sql server ظهرت لدي مشكله علما ان النموذج يعمل ولكن نموذج تحديث الاجازات تظهر هذه المشكله مرفقه الصور هل هناك تعديل للكود او اضافة كود الربط مع sql او odbc ليعمل النموذج التحديث وهذا هو الكود كاملا Option Compare Database Private Sub Form_Load() Dim Udate1 As Variant Dim Udate2 As Variant Dim Uyear1 As Variant Dim Uyear2 As Variant Udate1 = DLookup("tmonth", "tblmonth") Udate2 = Format(Now(), "MM") Uyear1 = DLookup("tyear", "tblmonth") Uyear2 = Format(Now(), "yyyy") Dim db As DAO.Database Dim rs As DAO.Recordset2 Set db = CurrentDb Set rs = db.OpenRecordset("الاسماء", dbOpenTable) If Udate1 <> Udate2 Then With rs .MoveFirst Do While rs.EOF = False .Edit .Fields(7) = .Fields(7) + 3 .Update .MoveNext Loop End With DoCmd.RunSQL ("update tblmonth set tblmonth.tmonth='" & Udate2 & "'") MsgBox "تم اضافة رصيد" End If If Uyear1 <> Uyear2 Then With rs .MoveFirst Do While rs.EOF = False .Edit .Fields(7) = .Fields(7) + 36 .Update .MoveNext Loop End With DoCmd.RunSQL ("update tblmonth set tblmonth.tyear='" & Uyear2 & "'") MsgBox "تم اضافة رصيد" End If Me.T1 = "التحديث لغاية 1/" & Udate1 + 1 & "/" & Uyear2 End Sub

بارك الله فيك وشكرا جزيلا ماقصرت وانشاء الله التوفيق لك ولا اعرف كيف اعبر عن امتنناني لك

وانا في انتظارك اخي العزيز وياريت الشرح لعمل الطريقه التي عملتها واتمنى من الله ومنك ان تعمل لي الجدول لااهر تحديث للرصيد

اخ محمد مارديت عليه بهذا الخصوص

ولدي مشكله ثانيه اريد حقل يظهر اخر تحديث الشهر بمعنى انو عملية التحديث لغايه شهر 1/1/2017 وهكذا عند دخول الشهر الثاني 1/2/2017 تم التحديث

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

بارك الله فيك اخي ولكن انا احتاج ان يضاف 3 ايام على خانة رصيد اول العام على سبيل المثال لدي رصيد اول العام 33 وهو متراكم يبدا البرنامج باضافة 3 ايام كل شهر على الرصيد القديم في خانة رصيد اول عام ياريت تساعدني اكثر .... انت عملت من تاريخ التعين لحساب الرصيد ولكن المطلوب اضافة 3 ايام شهريا في خانة رصيد اول عام وهكذا وانت بدأت بالفكره ولكن يضاف برمجيا على الرصيد ياريت تكمل المشوار معي وتتحملني

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

اجازات الموظفين.rar