امير الكناني

ابا جودى

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

السلام عليكم ....

ارجو مساعدتي في انشاء معادله بين حقلين الحقل الاول يحتوي على رقم والحقل الثاني يحتوي على رقم ايضا المعادلة المطلوبه وظهورها بالتقارير مجموع الحقل الاول يقسم على 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

في 10/4/2016 at 02:09, محمد ايمن said:

تفضل اخي الكريم

انشئ مجلد في جهاز السيرفر باسم img في القرص D ولا تنسى مشاركته كما ذكرت لك سابقا

جرب ووافينا بالنتيجة

 

program.rar

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

بارك الله فيك سوف اجرب وارد عليك 

في 10/2/2016 at 01:15, محمد ايمن said:

الكود يوضع في زر اختيار الصورة فبعد اختيارها يقوم بترحيل الصورة الى السيرفر

طبق الخطوات التالية

1- في جهاز السيرفر انشئ مجلد في القرص D وليكن اسمه img وقم بمشاركته مع السماح للمستخدمين بالتحكم الكامل طبعا هذه الخصائص تحصل عليها من الويندوز كما في الصورة

2- اضف الكود التالي الى نموذج حفظ الصورة في جميع الاجهزة

Dim cr As New filesystemobject
cr.CopyFile CurrentProject.Path & "\FileName1.jpg", "\\PcName\D:\img\FileName2.jpg", True
End Sub

filename1 هو اسم الصورة المراد نسخها من جهازك الى السيرفر

pcname هو اسم جهاز السيرفر

filename2 هو الاسم الذي ستحفظ به الصورة في جهاز السيرفر

لاتنسى اضافة المرجع الموضودفي الصورة

جرب ووافينا بالنتيجة

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

program.rar

FolderP2.rar

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

ولكن اين يتم اضافة هذا الكود هل يمكن عمل مثال بسيط 

في Saturday, October 01, 2016 at 02:34, محمد ايمن said:

طبعا ممكن ذلك

حاول تطبيق الفكرة التالية

1- استخرج مسار السيرفر (الجهاز الذي عليه قاعدة البيانات التي تحتوي على الجدول)

2- عند حفظ الصورة قم بارسالها الى جهاز السيرفر باستخدام الكود التالي

 

Dim CerDll As New FileSystemObject
CerDll.CopyFile 1, 2, True

استبدل 1 و 2 بالمسارات التالية

1- تمثل مسار الصورة المخرنة في جهازك

2- تمثل مسار الصورة التي تريد تخزينها في جهاز السيرفر

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

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

وانا في انتظارك استاذنا الغالي وبارك الله فيك ولك حسن الدعاء والتوفيق على مساعدتك لكل الاعضاء 

في 9/30/2016 at 22:24, رمهان said:

السؤال الان

هل انت عامل ربط للجداول بالسيرفر وظاهرة الجداول المربوطة امامك وتستطيع فتح الجدول يدويا وتظهر معاك السجلات ؟

نعم اخي 

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

في 9/24/2016 at 02:27, محمد ايمن said:

يمكن عمل ذلك لكن بالنسبة للشرط الثاني وهو ظهور كلمة ( تم التحديث ) فهذه الكلمة ستظهر دوما والسبب ان التحديث آلي اما لو كان يدوي فممكن عمل ذلك

 

شرح الكود

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

وضعنا شرط وهو اذا كان التاريخ المخرن في الجدول لا يساوي الشهر الحالي ( يعني شهر جديد )

ننفذ حلقة دورانية لتضيف الى جدول الاسماء 3 ايام لكل اسم

 

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

الشرط الثاني يقارن السنة المخرنة في الجدول و السنة الحالية وفي حال عدم التطابق ( سنة جديدة )

ننفذ حلقة دورانية في جدول الاسماء لتضيف الى كل اسم 36 يوم

 

testeja1.rar

بارك الله فيك جربت الاثنين ولكن نفس الشئ 

في 9/30/2016 at 07:57, رمهان said:

حياك الله اخي الكريم

الموضوع مش واضح تماما ولكن بنظرتي الاولية لاحظت لك ملاحظتين يمكن تحل المشكلة

1. انت عرفت rs من نوع recordset2  وانت لست بحاجة لهذا النوع فضعه من نوع recordset لتصبح الجملة 

Dim rs As DAO.Recordset

ثم جرب واذا لم تضبط فاليك الماحظة الثانية

2. فتحت الريكورد ست من نوع جدول واعتقد المفروض من نوع dbOpenDynaset لتصبح الجملة

Set rs = db.OpenRecordset("الاسماء", dbOpenDynaset)

بالتوفيق

نفس المشكلة ونفس الخطاء علما قبل تحويل القاعده الى 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

في 9/24/2016 at 02:27, محمد ايمن said:

يمكن عمل ذلك لكن بالنسبة للشرط الثاني وهو ظهور كلمة ( تم التحديث ) فهذه الكلمة ستظهر دوما والسبب ان التحديث آلي اما لو كان يدوي فممكن عمل ذلك

 

شرح الكود

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

وضعنا شرط وهو اذا كان التاريخ المخرن في الجدول لا يساوي الشهر الحالي ( يعني شهر جديد )

ننفذ حلقة دورانية لتضيف الى جدول الاسماء 3 ايام لكل اسم

 

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

الشرط الثاني يقارن السنة المخرنة في الجدول و السنة الحالية وفي حال عدم التطابق ( سنة جديدة )

ننفذ حلقة دورانية في جدول الاسماء لتضيف الى كل اسم 36 

 

testeja1.rar

بارك الله فيكاخ محمد ولكن لدي مشكله اليوم بعد تنصيب البرنامج عال العال ولاتوجد به مشكلة ولكن واجهتني مشكله عند ربط البرنامج بقاعده بيانات sql server اي تكبير قاعدة البيانات عند التحديث يظهر لدي مشكله بالكود وعدم تحديث الرصيد ارجو الاجابة عن هذا الموضوع لئن بصراحه جدا مهم لدي وهنا يأشر الموشر بالغلط 

Set rs = db.OpenRecordset("الاسماء", dbOpenTable)

ارجو حل مشكلتي اخي العزيز 

منذ ساعه, امير الكناني said:

وهذه الصور الخطاء 

 

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

في 9/23/2016 at 20:34, محمد ايمن said:

ساوافيك بالمرفق ليلا اخي الكريم

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

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

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

في Thursday, September 22, 2016 at 03:22, محمد ايمن said:

حل بسيط و سريع اخي الكريم

 

testeja.rar

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

في Wednesday, September 21, 2016 at 12:01, Shivan Rekany said:

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

اجازات.rar

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

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

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

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