Hussein888

شكرا يا اخي على مرورك الكريم.. و اعتذر عن صعوبة رفع الملف لاني بكتب على الموبايل.. دا اولا

و الشق الاول من سؤالي هو المطلب الاساسي و الأهم 

لدي نموذج مرتبط بجدول به حقل تاريخ و وقت.. 

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

12:00:00 ص 

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

ثانيا... 

اريد عند فتح النموذج ان يظهر حقل التاريخ فارغ تماما لايوجد به اي قيمة افتراضية، وعند كتابة التاريخ، يظهر التاريخ فقط في النموذج، ولكن في الجدول المترتبط به يظهر التاريخ الذي تمت كتابته مضافا اليه التوقيت الحالي.. 

ما قمت به هو جعل القيمة الافتراضية في الجدول now() 

و قمت بتغيير format النموذج الى short date 

بحيث لا يظهر الوقت في النموذج.. ولكن عند فتح النموذج لا يظهر حقل التاريخ فارغ 😒

و شكرا لكم 

في ١٤‏/٨‏/٢٠١٩ at 06:45, ابو ياسين المشولي said:

وهذ مشروط بالباكورد والتاريخ

الرصيدالنهائي: Nz(DSum("[الرصيد الاولي]";"[اطراف الفاتورة]";"[باركود]='" & [باركود] & "'" & " And [التاريخ]<= #" & Format([التاريخ];"yyyy-mm-dd") & "#");"0")

 

Database8 (1).accdb 432 kB · 5 تنزيلات

استاذ ابو يس.. 

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

مثلا رصيد سلعة ما 5 قطع 

قمت ب 3 عمليات بيع في نفس اليوم 

سيظهر في جدول اطراف الفاتورة 3 سجلات للبيع.. 

وعند استخدام الدالة السابقة سيتم اظهار الناتج النهائي وهو 2 امام كل خطوة و ليس 4 ثم 3 ثم 2

بارك الله فيك.. تمت الاجابة 

3 ساعات مضت, أبو عبدالله الحلوانى said:

أخي دالة Dlast تتعامل مع أرقام وليس نصوص كأكبر ID مثلا أو آخر تاريخ شراء 

جرب تغير الشرط الي تاريخ الشراء أو المسلسل .

 

اشكر مرورك الكريم و حرصك على المساعدة.. 

ولكن في الدالة dmax.. سيظهر سجل واحد فقط وهو عملية الشراء عند اكبر مسلسل.. 

ولكن المطلوب اظهار جميع السجلات التالية لاخر عملية شراء.. 

او اظهار جميع السجلات التي تاتي بعد آخر  سجل ايكون فيه رصيد الصنف يساوي صفر ( قد يتكرر السجلات التي يكون فيها الرصيد يساوي صفر.. لكن المطلوب هو اظهار السجلاتوالتي تاتي بعد اخر سجل فيه الرصيد يساوي صفر) 

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

المطلوب عمل استعلام لاظهار العمليات التي تمت على الصنف بوضع شرط وهو العمليات التي تمت  بعد اخر عملية شراء

او شرط اظهار العمليات التي تمت عللى الصنف بعد اخر مرة وصل فيها الرصيد لرقم 100 مثلا

عملت دالة dlast و الشرط هو كلمة "شراء" في حقل operation لكن ماظبطتش

و مشكورين مقدما

Database2.accdb

للاسف انا في العمل و اكتب من الجوال و محتاج المساعدة ضروري و صعب ارفاق مثال.. اذا اردت توضيح اكثر عن جزئية معينة فلا باس من اعادة الشرح

عندي جدولين.. 

جدول a به حقلين.. حقل اسم الطالب SN و حقل نتيجة الطالب R 

و جدول اخر B 

به حقلين.. حقل اسم الطالب Sn2 و حقل درجة الطالب Mark.. 

المطلوب عمل استعلام تحديث لحقل نتيجة الطالب R بالحدول a

بحيث يتم تحديث نتيجة الطالب الى "failed" 

اذا كان اسم الطالب في جدول a غير موجود في حقل اسم الطالب في جدول b.. 

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

الحمد لله عرفت اعملها بالتجربة مع نفسي.. 

 Between dmax ("[xx]" ;"tableName") and dmax ("[xx]" ;"tableName") - 10

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

اريد وضع شرط في الاستعلام بين قيمتين 

القيمة القصوى للحقل ولنفترض اسم الحقل xx

على سييل المثال 

Between max (xx) and max(xx) - 100

مشكورين اخوتي و بارك الله فيكم 

تم بحمد الله و بفضل مساعدتكم المستمرة من تصميم برنامج مخازن و لله الحمد وتم تجربته فعليا و اثبت نجاحا و لله الحمد يصل الى 98 ٪.. 

ولكن مع مرور الوقت يزداد عدد سجلات جدول العمليات من وارد و صادر بشكل يومي.. حيث تبلغ زيادة السجلات يوميا 1000 سجل تقريبا.. 

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

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

اعتقد واللع اعلم انوعملية الحساب ستستغرق وقت طويل مما يؤدي الى بطئ في عملية الحسابات و الاستعلامات و التقارير.. 

في هذه الحالة.. قرات عن تحويل الجداول الى sql.. ولكن انا لا اعرف اي شيئ عن هذه اللغة.. 

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

يتم تحويل الجداول فقط الى sql و الربط بينها وبين كائنات الاكسيس؟؛ و هل في هذه الحالة عملية الحسابات ستتم بسرعة اكبر ام ان سرعة الاستعلامات لن تتغير.. 

كل مشكلتي هي القلق من بطئ الاستعلامات في المستقبل.. 

سمعت ايضا عن accees project.. 

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

تقبلو تحياتي 

6 ساعات مضت, jjafferr said:

حياك الله 🙂

 

على راسي ، ولكن شروط المنتدى لا تسمح لأكثر من سؤال في موضوع واحد 🙂

 

رجاء ارفاق رابط بالموضوع ، او تعمل موضوع جديد ، وترفق الرابط هنا 🙂

 

جعفر

تسلم راسك يا استاذنا.. 

تفضل رابط الموضوع 

ويكفيني أهتمامك 

4 ساعات مضت, AlwaZeeR said:

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

قم بتغيير خصائص الحقل من الجدول الى مطلوب: لا

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

حتى تستطيع تنفيذ امر الغاء الامر

     If Nz(Me.[اسم الحقل هنا],"") = "" Then
          Cancel = True
          Msgbox "لا يمكن ترك الحقل فارغ", vbExclamation, "قيمة مطلوبة"
     End If

 

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

3 ساعات مضت, jjafferr said:

السلام عليكم 🙂

 

اذا تسمحوا لي بالمشاركة 🙂

لإصطياد رقم الخطأ ، يجب علينا ان نستعمل حدث "on error" ، في النموذج الذي نحصل فيه على الخطأ ، وفي حالتنا ، فهو النموذج الفرعي ، هكذا:

Private Sub Form_Error(DataErr As Integer, Response As Integer)

    MsgBox DataErr
End Sub

 

وعند التجربة ، نحصل على هذا:

 

الآن وقد عرفنا رقم الخطأ ، اصبح من السهل التعامل معاه ، هكذا مثلا:

Private Sub Form_Error(DataErr As Integer, Response As Integer)

    'MsgBox DataErr
    
    If DataErr = 3314 Then
        Response = acDataErrContinue
        strMsg = "لا يمكن ترك الحقل التالي فارغ " & vbCrLf & _
                 "المنصرف بالوحدة الصغرى"
        MsgBox strMsg
    End If

End Sub

 

ونلقى هذه الرسالة الآن:

 

جعفر

1110.Market.accdb.zip 43.13 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 4 downloads

ماشاء الله عليك يا اخ جعفر.. عبقري الله اكبر عليك.. 

معلش ليا طلب تاني و انا عارف اني طلبته قبل كده.. بس اتعشم فيك و في خبرتك انك تساعدني.. 

في نفس قاعدة البيانات دي في النموذج الفرعي.. 

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

انا عامل حقل تاني في جدول الاصناف اسمه كود مختصر.. 

المطلوب.. 

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

ولك جزيل للشكر يا اخي الفاضل

في قاعدة البيانات المرفقة يظهر لي خطأ عند ترك قيمة المنصرف بالوحدة الصغرى فارغ بدون قيم (لاني عامل الحقل مطلوب فب خصائص الجدول )

عاوز الغي الرسالة اللي بتظهرلي من microsoft access و ابدلها برسالة اخرى و لتكن "ادخل القيمة في الحقل"

Mark.rar

عرفت فين المشكلة و تم حلها الحمد لله.. 

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

لذلك عند القيام بتسجيل فاتورة بيع مثلا برقم 1 

سيتم تحديث باقي حقول جدول اطراف الفاتورة برقم صفر في كل من رقم اذن التوريد و رقم اذن التحويل أيضا.. 

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

وللخروج كن المشكلة قمت بتغيير القيمة الافنراضية لحقل رقم فاتورة البيع و الشراء و التحويل من صفر الى null.. 

و تم الحل الحمد لله

قمت بنشر تفاصيل حل المشكلة لتعم الفائدة للمبتدئين اللي زيي 

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

مافيش حد عارف؟؟ 

في ١٩‏/١٠‏/٢٠١٩ at 09:44, ابو ياسين المشولي said:

وهنا برقم التليفون

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Clients", dbOpenDynaset)
rs.FindFirst "Tel = '" & Me!Tel & "'"
If Not rs.NoMatch Then
rs.Bookmark = rs.Bookmark
Me.Societé = rs!Societé
   Me.Adresse = rs!Adresse
   Me.Tel = rs!Tel
   Me.Email = rs!Email
   Me.nomClien = rs!nomClien
   Me.Ville = rs!Ville
Else 'غير ذلك اي انه لم يجد سجل
MsgBox "  يـرجـاء  الـتـأكـد .... لا  يـو جـد زبون  بـهـذا  الرقم  : " & Me.Tel, , "   : خـطـاء "
End If

 

حاولت اطبق الكلام دا عندي و مانفعتش.. 

هاةهاتنفع في المثال اللي انا رافعه على اللينك دا

اشكرك استاذ احمد... جاري التحميل و ساقوم بموفاتك بالنتائج ان شاء الله

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

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

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

المطلوب 

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

توضيح 

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

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

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

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

Market.rar

السلام عليكم ورحمة الله و بركاته..
اثقلت عليكم بكثرة التساؤلات. زلكم مني كل التقدير
..
قمت بعمل برنامج مخازن..
جدول اصناف. وجدول عملاء وجدول موردين..
جدول راس فاتورة التوريد..جدول راس فاتورة البيع.. جدول راس الارصدة الافتتاحية لادخال الكميات الحالية.. جدول راس اذن التحويل بين المخازن..
وقمت بعمل جدول اطراف الفاتورة به التاريخ و نوع العملية  واسم الصنف رقم اذن التوريد و رقم اذن التحويل و رقم اذن البيع
الكمية المباعة و الكمية المشتراة و الكمية المحولة و الرصيد الافتتاحي وفي النهايه حقل محسوب ليجمع العمليات مع بعضها..
.. قمت بانشاء استعلامات من جدول اطراف الفاتورة لكل نموذج..
مثلا نموذج البيع مكون من نموذج رئيسي وهو راس لفاتورة البيع و به حقول جدول راس الفاتورة.. و نموذج فرعي مستمد من استعلام مبني على جدول اطراف الفاتورة تم اختيار
الحقول المتعلقة بعمليه البيع (رقم الفاتورة و نوع العملية ..
وهكذا في كل النماذج..
قمت بانشاء علاقات بين جدول اطراف الفاتورة و جداول الرؤوس السابق ذكرها (راس التوريد و راس التحويل و راس
التسوية ووو)
قمت بربط حقل رقم اذن التوريد في جدول راس فاتورة الشراء مع رقم اذن التوريد في اطراف الفاتورة عن طريق علاقة one to many
و فرض التكامل المرجعي

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

هل المشكلة في العلاقات.. ان اقوم بتغيسر وضعها.. ؟؟ 

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

منورين يا احلى مبرمجين في التاريخ.. 

سامحوني اسالتي كتير بس معلش.. كله بثوابه ان شاء الله.. 

طلبي اني محتاج كود لمفتاح enter و مفتاح tab 

قمت بتصميم نموذج رئيسي و به نموذج فرعي في صورة datasheet لبيع اصناف.. 

عند كتابة الكود و الضغط على tabينتقل الى الحقل التالي.. و باستمرار الضغط على tab ينتقل المؤشر الى حقول النموذج الرئيسي.. 

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

المطلوب.. 

ان يكون الانتقال في النموذج الفرعي بين الحقول في سجل واحد عن طريق tab طالما حقل كود الصنف (اول حقل في السجل) به بيانات وعند استمرار الضغط ينتقل الى سجل جديد في النموذج الفرعي و لا يذهب للتالي طالما ان حقل البراكود فارغ.. (و ايضا لا يذهب الى النموذج الرئيسي) 

ثانيا.. ان يقوم زر enter بنفس وظيفة tab 

ايقاف ال scroll تماما عن الاتجاهات لاعلى او لاسفل او يمينا او يسارا.. 

قد ترونه امر غير مهم لكن بالنسبة لي يوفر كثيرا من الوقت و يجنب الأخطاء.. 

و ياسلام لو الشرح مدعوم بمثال مرفق يبقى كتر الف خيركم 

ملحوظة.. زر scroll lock لم يفي بالغرض

2 ساعات مضت, محمد احمد لطفى said:

أولا فى حدث عند الفتح ضع الكود 
 

 Me.KeyPreview = True

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

 

If KeyCode = vbKeyF1 Then 
DoCmd.OpenForm "اسم النموذج"
KeyCode = 0
end if

 

يا سلام عليك.. ماشاء الله 

كمل جميلك و اشرحلي ايه فايدة جملة

key code =0

و امر me. keypreview

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

اثقلت في استفساراتي و اتمنى من السادة المطورين سعة الصدر كما تعودت منهم... 

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

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

مثلا عند الضغط على f1 افتح ارصدة المخزن 

عند الضغط على f6 اغلق نموذج و هكذا.. 

اريد الطريقة بتاعة الاكواد و ليس الماكرو،

لان قائمة مسميات الازرار على الماكرو دورت عليهاوعلى النت مالقيتش الا مجموعة قليله من الازرار 

السؤال.. 

عملت في ال event.. Onkey down في نموذج معين 

 و كتبت 

If keycode = vbkeyesc then msgbox"

"gggggg" 

ولما بفتح النموذج و اضغط الزر مابيحصلش حاجه.. ولا errors ولا حتى الاكشن المطلوب ييحصل ( زي ظهور الرسالة في المثال الي انا كاتبه) 

ايه الحل.. هل في حاجه المفروض اغيراها في الاعدادات ولا الكود غلط 

ملحوظة : انا عامل ال event في خصائص النموذج الرئيسيي و ليس لحقل من الحقول