أبو أحمد

يونيو 30

في 26‏/6‏/2025 at 21:11, Ahmos said:

فضلاً جرب الكود القديم من القاعدة المرفقة

تمام أستاذي الكريم تم عمل المطلوب

يونيو 26

في 20‏/6‏/2025 at 18:58, Foksh said:

فضل :-

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

سؤالي أستاذي الكريم

هل يمكن اضافة معيار جديد بعد تحديث الحالة من موجود إلى فاقد ومن رقم الجرد الحالي إلى أحدث رقم جرد أضيف إليه كما نفضلت بعمله أن أضيف معيار

أن يكون ذلك التحديث للرقم العام للكتب من رقم 1 (ثابت في النص[ إلى رقم معين ]مختلف في نص[ يتم تحديده فيما بعد .. مثل ذلك

Between [forms]![F_GardBooks1]![text] And [forms]![F_GardBooks1]![text2]
موضح في الاستعلام الموجود بالقاعدة

في زر أمر حدث بالنموذج عند الضغط عند النقر ... وكما هو على أكسس 2003 وجزاكم الله خيرا
مرفق لكم القاعدة المطلوب العمل عليها

القاعدة 3.rar

يونيو 23

1 ساعه مضت, Foksh said:

قمت بالرد على الجزء الأول ، أما فيما يتعلق بالمشكلة التي تمر بها على القاعدة الأصلية

أستاذي الكريم جزاكم الله خيرا على سعة صدركم والرد علي طلبي

ولكن عندما وضعت في أول الكود
On Error Resume Next

لم تظهر المشكلة وتم تحديث البيانات المطلوبة تماما ولكن الشي الغريب أنه لم تظهر رسالة "تم تحديث البيانات بنجاح عموما ليست ضرورية وجزاكم الله خيرا وزادكم علما وسعة صدر

أقصد هكذا جعلتها

Private Sub أمر136_Click()
On Error Resume Next
UpdateBooksToLost
End Sub

يونيو 23

2 دقائق مضت, Foksh said:

ثابك الله ، راجع ملفك الأخير في هذه المشاركة :-

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

من باب أنني اهتمت بردكم فقط

وجزاكم الله خيرا لكما ولكن كان واجب أن أريد على رده لي فقط

يونيو 23

4 دقائق مضت, Foksh said:

في نفس النموذج أخي :-

أستاذي الكريم
أنا لم أضع في زر الأمر إلا حدث واحد فقط وهو عند النقر

Private Sub أمر136_Click()
UpdateBooksToLost
End Sub

Public Sub UpdateBooksToLost()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim maxGard As Long

Set db = CurrentDb

maxGard = Nz(DMax("No_Gard", "T_Gard"), 0)

Set rs = db.OpenRecordset("SELECT * FROM [جدول تسجيل الكتب] WHERE [CaseBook] = 'موجود'", dbOpenDynaset)

If Not rs.EOF Then
rs.MoveFirst
Do While Not rs.EOF
rs.Edit
rs!CaseBook = "فاقد"
rs![G N] = maxGard
rs.Update
rs.MoveNext
Loop
End If

rs.Close
Set rs = Nothing
Set db = Nothing

MsgBox "تم تحديث الكتب إلى الحالة 'فاقد' بنجاح", vbInformation + vbMsgBoxRight, ""
End Sub

يونيو 23

6 دقائق مضت, Foksh said:

ن الواضح انه يوجد لديك تكرار للكود الخاص بالزر أمر8 ، تأكد من عم وجود تكرار لحدث عند النقر لنفس الزر مرتين

بالفعل عند الضغط مرتين تم تنفيذ المطلوب بدون اعطاء الرسالة

ولكن السؤال الآن أن مش فاهم من أين التكرر
حضرتك تقصد أنني كررت الكود مع زر أمر في نموذج آخر ؟ مثلا

يونيو 23

في 20‏/6‏/2025 at 18:52, Ahmos said:

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

وعليكم السلام ورحمة الله وبركاته أستاذي الكريم ِ Ahmos
جزاكم الله خيرا على اهتمامكم وردكم ولكن للاسف

أولا يطلب مني رقم الكتاب المطلوب وأنا كنت أريد بمجرد الضغط على زر الأمر يتم تحويل جميع الكتب تلقائيا إلى فاقد لجميع الكتب مع التحديث إلى آخر رقم للجرد مباشرة لجميع الكتب

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

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

القاعدة 3.rar

في 20‏/6‏/2025 at 18:58, Foksh said:

تفضل :-

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

للأسف عندما قمت بتطبيق ذلك على القاعدة عندي ظهرت لي مشكلة لا أدري أيه السبب

مرفق لكم الرسالة التي ظهرت لي

يونيو 20

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

تفضل

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

والله أنا عاجز عن الشكر وكما قال رسول الله صلى الله عليه وسلم من قدم لكم معروفا فكافيوه فإن لم تجدوا ما تكافيوه فادعوا له حتى تروا انكم كافءتموه

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

يونيو 20

في 19‏/6‏/2025 at 14:20, Foksh said:

ولا يهمك أخي الكريم ..

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

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

زادكم الله علما وجعل علمكم في ميزان حسناتكم وأعضاء المنتدى الكريم

يونيو 19

10 ساعات مضت, Foksh said:

حاول بهذه الدالة في زر جديد كاختبار باستدعاء الدالة UpdateBooksConditional في حدث عند النقر

أستاذي الكريم أشكركم على سعة صدركم معي
ولكن للأسف فشلت

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

القاعدة 2.rar

يونيو 18

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

السؤال بصيغة أخرى

كيف يمكنني عمل استعلام تحديث اجعل حالة الكتب من موجود إلى فاقد وأيضا وتحديث رقم الجرد الى أحدث رقم موجود

مرفق مثال السابق

يونيو 18

56 دقائق مضت, Foksh said:

هذا الشكل ، سيكون علينا جلب أكبر قيمة للحقل G N في جدولك

أستاذي الكريم ... واضح أنني لم استطع توصيل ما اريده
كنت عاوز اضيف الى التعبير الموجود في زر الامر بالنموذج بعد أن يحول جميع حالة الكتب من موجود الى فاقد
أضيف إليه أيضا وتحويل رقم الجرد (لهذه الكتب التي حالتها موجود) إلى أعلى قيمة جرد (أخر رقم جرد) بدلا من 1 مثلا في المثال إلى 3 حيث هو أعلى رقم جرد وذلك للكتب التي حالتها موجود فقط
بمعنى آخر : يقوم بعمليتين للكتب التي حالتها موجود فقط
1. يحول الحالة من موجود إلى فاقد
2. ويحول رقم الجرد إلى أعلى رقم موجود (في المثال الذي ارسلته يكون 3)

وكنت الطلب الثاني وهو
عاوز أعرف كيفية تحويل هذا التعبير الموجود في زر الأمر إلى استعلام تحديث

بحيث أعرف الفرق بين التعبير الموجود في زر الأمر وكيفية شكله في صورة استعلام (SQL)

والله أنا أسف لفشلي في توصيل ما كنت أصبو إليه

يونيو 18

في 16‏/6‏/2025 at 20:14, Foksh said:

وأتمنى منك التوضيح بشكل مفهوم أخي الكريم

أستاذي الكريم

المطلوب اضافة لهذا التعبير عند تعديل حالة الكتب تحويلها الى فاقد وتعديل رقم الجرد هو أيضا أحدث رقم
زلو في امكانية وعمل استعلام أيضا له (استعلام تحديث)
علما بأنه موجود في زر أمر "تحويل حالة هذه الكتب الى فاقد" بالنموذج الذي بعنوان F_GardBooks
DoCmd.RunSQL "UPDATE [جدول تسجيل الكتب] SET [جدول تسجيل الكتب].CaseBook = ""فاقد"" " & vbCrLf & _

"WHERE ((([جدول تسجيل الكتب].CaseBook)=""موجود"") AND (Not ([جدول تسجيل الكتب].title) Is Null) AND (([جدول تسجيل الكتب].searinumber) Between [forms]![F_GardBooks]![text] And [forms]![F_GardBooks]![text2])) OR ((([جدول تسجيل الكتب].CaseBook)=""موجود"") AND (([جدول تسجيل الكتب].title) Is Null) AND (([جدول تسجيل الكتب].searinumber) Between [forms]![F_GardBooks]![text] And [forms]![F_GardBooks]![text2]));"

وجزاكم الله خيرا

يونيو 17

22 ساعات مضت, Foksh said:

لمطلوب الثاني غير مفهوم ..

هذا الكود موجود في زر أمر "تحويل حالة هذه الكتب الى فاقد" بالنموذج
DoCmd.RunSQL "UPDATE [جدول تسجيل الكتب] SET [جدول تسجيل الكتب].CaseBook = ""فاقد"" " & vbCrLf & _

"WHERE ((([جدول تسجيل الكتب].CaseBook)=""موجود"") AND (Not ([جدول تسجيل الكتب].title) Is Null) AND (([جدول تسجيل الكتب].searinumber) Between [forms]![F_GardBooks]![text] And [forms]![F_GardBooks]![text2])) OR ((([جدول تسجيل الكتب].CaseBook)=""موجود"") AND (([جدول تسجيل الكتب].title) Is Null) AND (([جدول تسجيل الكتب].searinumber) Between [forms]![F_GardBooks]![text] And [forms]![F_GardBooks]![text2]));"

وهو يعني تحويل حالة الكتب بجدول تسجيل الكتب من موجود إلى فاقد في الكتب التي تقع بين الرقم الموجود "نص1" إلى الرقم الموجود في "نص2" في النموذج الذي بعنوان F_GardBooks

المطلوب من حضرتك

1. اضافة اليه المعيار في أحدث جرد MAX([G N])

2. تحويله إلى استعلام (في صورة تصميم) (عمل استعلام عليه)

أرجو أن تكون الفكرة وصلت وجزاكم الله خيرا

يونيو 16

48 دقائق مضت, Foksh said:

1.في النموذج F_GardBooks

مفتاح تحويل حالة الكتب الى فاقد كما هو مطلوب
اضافة تحويل رقم الجرد إلى أحدث رقم جرد أي تعديل الكود التالي كما تراه

SELECT MAX([G N]) FROM [جدول تسجيل الكتب]

في النموذج F_GardBooks
عند الضغط على مفتاح "تحويل حالة هذه الكتب الى فاقد" يتم تحويل حالة الكتب من موجود الى فاقد كما هو الحال الان
المطلوب اضافة في SQl معيار تحويل سنة الجرد لهذه الكتب إلى السنة الجرد الاخيرة فقط

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

وجزاكم الله خيرا

يونيو 16

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

غير ذلك ، أعتذر لعدم إفادتك دون ملف مرفق !!!!

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

1.في النموذج F_GardBooks

مفتاح تحويل حالة الكتب الى فاقد كما هو مطلوب
اضافة تحويل رقم الجرد إلى أحدث رقم جرد أي تعديل الكود التالي كما تراه

SELECT MAX([G N]) FROM [جدول تسجيل الكتب]

2. عند تسجيل الرقم العام للكتاب في الحقل txtSearch

يتم تحوبل حالة الكتب من الفاقد إلى موجود (زر تحديث) كما هو موجود

اضافة إذا كان هذا الرقم العام للكتاب كان فاقد في تاريخ جرد سابق يذكر العبارة

MsgBox " الكتاب تالف في عملية الجرد سابقة لسنة " & from_to

3. في التقرير وضع في المعيار
(SELECT MAX(from_to) FROM T_Gard)

في العمود

G N مع تعديل ما يلزم (اسم الجدول "جدول تسجل الكتب"، واسم العمود "G N

وجزاكم الله خيرا وأشكركم لسعة صدركم هلما بأن القاعدة على أكسس 2003

القاعدة.rar

يونيو 16

4 دقائق مضت, Foksh said:

بعت ملفك أخي الكريم

انظر لهذه الرسالة يمكن

انا اريد أضع مع معيار التحديث أن يكون في أعلى رقم

يونيو 16

38 دقائق مضت, Foksh said:

في المسميات العربية والتي دائماً ننبه من خطأ وخطورة استعمالها

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

يونيو 16

19 دقائق مضت, Foksh said:

ذا إجابتك هي من يجب

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

أشكر حضرتك على مساعدتي كثيرا

يونيو 16

15 ساعات مضت, منتصر الانسي said:

اذا كنت تريد إظهار أكبر قيمة فقط فالافضل استخدام دالة DMax

تمام ولكن اسم الجدول هو جدول تسجيل الكتب وليس جدول الكتب

لأنه يعطي هذه الرسالة كما في الصورة
جزاكم الله خيرا

يونيو 16

في 11‏/6‏/2025 at 15:21, أبو أحمد said:

سوف اعيد التجربة على الجهاز الخاص بالعمل يوم الأحد لاني إجازة غدا

السلام عليكم الأعضاء الكرام

تم حل المشكلة والحمد لله

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

لان عندما تم تحميل القاعدة مرة ثانية على هذا الجهاز مباشرة اشتغلت القاعدة ولم تظهر الرسالة

جزاكم الله خيرا

يونيو 15

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

لدي كود برجاء من اساتذة الأكسس تعديله للمطلوب

(SELECT MAX(G n) FROM جدول تسجيل الكتب)

المطلوب من هذا الكود الموجود في التقرير اظهار أخر رقم في الحقل G n الموجود بجدول تسجيل الكتب
اعلم أنه من الخطأ الكبير تسمية اسم جدول باللغة العربية ولكن هذه المعلومة كانت متأخرة لي ويصب تعديل قاعدة البيانات بأكملها حاليا مع تغيير اسم الجدول

برجاء تعديل هذا الطلب
(SELECT MAX(G n) FROM جدول تسجيل الكتب)

ولكم جزيل الشكر

يونيو 11

سوف اعيد التجربة على الجهاز الخاص بالعمل يوم الأحد لاني إجازة غدا

وربنا يسهل

وسابلغكم بالنتيجة أن شاء الله وجزاكم الله خيرا

يونيو 11

13 ساعات مضت, Foksh said:

حد الحلول التي قد تخطر ببال أي أحد ، هو الضغط والإصلاح ، ولكني اعتقد أنها لن تفيدك بشيء .

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

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

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

يونيو 10

لدي قاعدة بيانات اكسس عند فتحها تظهر هذه الرسالة ممكن أعرف ماذا تعني ؟
جزاكم الله خيرا

تسجيل الدخول

المنتدى

مكتبة الموقع

معرض الصور

المدونات

الوسائط المتعددة

مشاركات المكتوبه بواسطه أبو أحمد

Important Information