ابوصلاح

الاستاذ سليم حاصبيا شرف لنا مشاركتك 

لكن قمت بالتجربة اعطت خطا 

ايضا قمت باستخدام دالة index   match  وايضا تعطي خطا 

انا في انتظار التعديل   شكرا

اخى احمدزمان عودا كريما وحل جميلا 

بارك الله فيك وفي ذريتك

لكن في نهاية دالة

( INDEX(Data_001;0;1)

المقصود برقم الصف ورقم العمود في دالة index

بحث اعرف  الربط بين عمل الدالة مع النطاق او شرح مبسط 

السلام عليكم ورحمة الله وبركاته

في هذا المثال اريد جلب بيانات المرتب بعدة شروط المدرسة وشرط الجملة وشرط البيان 

جلب البيانات بشروط افقية وراسية.rar

اخي حسين بارك الله فيك انا لست بصدد دالة select case  فهي سهلة لا تحتاج الي شرح لكن هناك بعض الاشياء او الدوال مثلا

rst.MoveLast
rst.MoveFirst
Do Until rst.EOF

هنا حدد move last   ثم move first  لماذا لم يحدد مباشرا move first ثم وضع بعد ذلك rst.EOF ما هو عمل الدالة eof هل هو ارجاع false عندما لا يتحقق الشرط اما غير ذلك 

شكرا اخي طلب اكسس لكن 

اولا انا لم اقل شي خارج عن الاخلاق

ثم ان استشهادك بالبيت هو الاغرب  لاني لم  اخرج عن الذوق العام 

اما الغريب ان تكون كلمة فاحشة او عيب او عيب في شخص او في كلمة جارحه

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

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

طبعا محدش فاضي شكرا

Option Compare Database

Private Sub أمر30_Click()
Dim DB As DAO.Database
Dim rst As Recordset
Set DB = CurrentDb
Dim OldClass As String
Dim NewClass As String
Set rst = DB.OpenRecordset("select * from tbl_studen where keed='منقول' And Yes_No=true ORDER BY id_stu")
rst.MoveLast
rst.MoveFirst
Do Until rst.EOF
OldClass = rst!saf
Select Case OldClass
Case "الأول"
NewClass = "الثاني"
Case "الثاني"
NewClass = "الثالث"
Case "الثالث"
NewClass = "الرابع"
Case "الرابع"
NewClass = "الخامس"
Case "الخامس"
NewClass = "السادس"
Case "السادس"
NewClass = "السابع"
End Select

rst.Edit
rst!saf = NewClass
rst.Update
rst.MoveNext
Loop
Set DB = Nothing
Set rst = Nothing
Form.Requery
End Sub

الرجاء شرح الكود او الاجزاء المهمة مثل rst .movelast    rst.move.first   do until rst.eof

2 ساعات مضت, محمد سلامة said:

السلام عليكم

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

تعديل-حذف بشرط M.S.rar 31.36 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 4 downloads

طيب ازاي انت جعلت الحقول غير ممكنة مع انك جعلت الكود في حدث Command 

تعديل-حذف بشرط.rarكيف تمكين وتعطيل الحذف والاضافة لسجل بشرط = "حساب مرحل "

لو ساوي "حساب مرحل"

يتم تعطيل الحذف والتعديل 

تعديل-حذف بشرط.rar

في ٢‏/٩‏/٢٠١٩ at 05:41, kha9009lid said:

اهلا وسهلا

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

من نموذج الى جدول يكون في استعلام التحديث

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

والله اعلم

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

في ٢‏/٩‏/٢٠١٩ at 05:41, kha9009lid said:

اهلا وسهلا

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

من نموذج الى جدول يكون في استعلام التحديث

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

والله اعلم

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

لكن ظهرت رسالة الخطا جملة sql غير صحيحة delete :insert:procedure:select:update ذلك في الماكرو 

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

رائع استاذنا kha9009lid

بارك الله فيك

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

اسف جد حقل motabky هو fon لم اقم بتغير اسم الحقل اسف 

السلام عليكم اريد عمل استعلام الحاق من النموذج المسمي frm_motabky الي الجدول albaky 

ولو بس يسمح وقت حضراتكم يكون مرة بالكود ومرة بالماكرو

الحاق من النموذج الي الجدول.rar

من الواضح ان الاستاذ الفاضل د.كاف يار نشط جدا في المنتديات وصاحب تواجد ملحوظ لانه نفس السؤال طرحته في منتدي المحيط العربي ونفس الرد من الدكتور كاف يار -دي بس مداعبه لطيفه مني- بارك الله فيك 

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

لان العمل الذي اقوم به قد يكون مختلف نوعا عن البنوك وعمل المحاسبات الاخري بمعني :-

انني قمت بعمل صفحة للسحب يتم فيها تسجيل الاصناف والمبالغ المالية 0

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

هذان هما اهم جدولين يقوم عليها البرنامج 

السؤال هنا:-

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

السلام عليكم ورحمة الله وبركاته

منذ فترة تبادر الي ذهني سوال عند تصميم برنامج مثلا سوبر ماركت بالاجل عندما تنشا صحفحة للعميل وتبدا بعملية التسجل ومعروف ان السحب تكون يومية تقريبا ويصل سحب عميل في المتوسط 50 جنيها يوميا اي يصل 1500 جنيها شهريا عند هذا الحد لا توجد مشكلة لان العميل يريد ان يستعلم عن سحبه وعطيه التقريرمثلا سحبك 1500 جنيها اوالسداد 1200 باقي 300 جنيها لكن المشكلة عند مرور اعوام  وهو يريد استعلام عن جملة السحب وجملة السداد طيب انت ستقوم بالاستعلام تقول له سحبك 400 الف مثلا وانت سددت 350 الف باقي 50 الف جنيها طبعا ربما العميل لا يدرك نظام الاكسس سوف يقول لك ازاي 400 الف سحب و350 سداد انا مالي ومال السنوات السابقه انا عاوز السنة الحاليه باختصار انا بتكلم صح ولا هناك شئ غير ذلك وان كان كلامي صح هل يوجد حل او كلامي خطا توجد استراتيجية اخري يسير عليها المبرمجون منعا لمثل هذه الامور

نعم في نفس المسار

السلام عليكم 

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

تظهر رسالة 

file not found

اخر ما قمت به هو حذف صور من الشاشة الرئيسية shasha  واضافة صور اخري 

وبعد ظهرت المشكلة 

لو اردتم المرفق سوف اقوم برفعه 

شاكرين جدا اخي عصام

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

اخي الفاضل عصام الكود يعمل تماما بدون اي مشاكل بس ما وظيفة الدالة Echo التي ترجع قيمتي لا ونعم

السلام عليكم

كيف يمكن عمل تحديث من خلال حلقة تكرارية لنموذج mdars1 تحديث الاجر الوظيفي 

لان عندنا الاعمدة كالاتي الاجر الوظيفى * علاوة7% *اجر وظيفي جديد اريد تحديث الاجر الوظيفي الاول الي قيمة الاجر الوظيفي الاخير

انا حاولت لكن يحدث سجل سجل فقط فمن الواضح هناك خلل لم اتوصل اليه  

اجر وظيفي.rar

نعم بالضبط هو ما اريده

تحياتي 

ابو محمد 

x = DCount("[id_mdasa]", "[copy_mdars]", "[id_mdasa]=" & Me.id_mdasa & " AND [amm_mdesa]=Forms![mdars1]![amm_mdesa]")

لكن استفسار في الشرط الاول تم وضع "&me.id_mdars&" بين علامتي تنصيص و && اما في الشرط الثاني لم توضع ايمنهما 

دا بس استفسار لفه الفكرة فقط

السلام عليكم ورحمة الله وبركاته 

الاخوة الافاضل لدي مرفق اود ترحيل البيانات من فوم [mdars1] بحيث لا يرحل البانات مرتين للعام المالي 

بمعني لو فرضنا ان المستخدم ضغط مرتين علي زر تحديث العام الحالي فانه يرحل البيانات مرة اخري الترحيل الي جدول copy_mdars

وهذا غير مطلوب 

ترحيل-بشرط العام المالي.rar