qathi
-
Posts
996 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
1
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو qathi
-
مشكلة عدم تكرار الاصناف كما بالرقم المحدد بعد التحديث
qathi replied to qathi's topic in قسم الأكسيس Access
أشكرك أستاذي عبدالله على مجهودك .. بارك الله فيك .. وجزاك الله عني خيرا قمت بتجربة الملف .. ولكن: - يقوم بتكرار صنف واحد فقط -
ههههههههه حفظك الله استاذنا عبدالله لم ارفع صوتي .. قمت بالتكبير لتأكيد النقطة الذي أريدها وهو كذالك ..
-
أستاذي عبدالله .. سعيد بردودك معي لكن أعيد وأكرر المشكلة ليس باعادة التحجيم فالمشكلة عندي هي التوسيط النموذج في مختلف الشاشات وليس تكبير او تصغير النموذج على الشاشات فشتان بين التوسيط والتحجيم قمت بتجربتها على أكثر من نموذج ولم تفلح فظهرت النماذج عندي بالجهة اليسرى في أعلى الشاشة
-
أستاذي عبدالله طبعا سبق وأن أشرت في رد سابق عن هذه الدالة Move ليست المطلوبة .. لانه تسبب في عدم توسيط النماذج في مختلف قياسات الشاشات فما الحل الفعلي لتوسيط النماذج بشكل عملي مع اختلاف قياسات الشاشات مع مراعات احتساب مساحة شريط المهام ؟؟
-
أخواني واساتذتي الأفاضل .. أرجو المساعدة في التالي: لدي كود استدعاء مديول في نموذج BarcodePrintGroupSub_F بعد التحديث حقل LabelCount والمديول عملة نسخ الحقول من جدول BarcodeGroupItems_T الى جدول BarcodeItems_T مع تكرارها في الجدول الاخير على حسب الرقم الموضوع في LabelCount الموجود بالنموذج Sub Create_Record_For_Every_Item2() On Error Resume Next Const RTableName As String = "BarcodeGroupItems_T" Const ALLItemsTableName As String = "BarcodeItems_T" Dim MyDB As DAO.Database Dim R As DAO.Recordset Dim SqlSt As String Dim ItemCounter, RRecordCounter, count As Integer Set MyDB = CurrentDb Set R = MyDB.OpenRecordset(RTableName) DoCmd.SetWarnings False SqlSt = " DELETE " & ALLItemsTableName & ".* FROM " & ALLItemsTableName & " ; " DoCmd.RunSQL (SqlSt) For RRecordCounter = 1 To R.RecordCount R.MoveFirst R.Move RRecordCounter - 1 For ItemCounter = 1 To R.Fields("LabelCount") SqlSt = "INSERT INTO " & ALLItemsTableName & " (BarCodeNumber,PriceS,ItemName,CodeCounter) VALUES ( " & R.Fields("BarcodeReader") & "," & R.Fields("PriceS") & ",""" & R.Fields("ItemName") & """," & ItemCounter & " );" DoCmd.RunSQL (SqlSt) Next ItemCounter Next RRecordCounter DoCmd.SetWarnings True R.Close MyDB.Close End Sub عند وضع رقم في السجل الاول فان الكود يعمل تماما .. لكن المشكلة في السجلات التالية .. بعد أدخال رقم في الحقل LabelCount لا يقوم بتكرار السجلات في الجدول BarcodeItems_T بل يقوم بتكرارها على حسب القيمة السابقة قبل التعديل كما أنه لا يقوم بمتابعة الترقيم من بعد اخر رقم لحقل CodeCounter الموجود بجدول BarcodeItems_T مرفق الملف للتعديل Br.rar
-
تقريباً .. نعم
-
أشكرك أستاذي @أبو عبدالله الحلوانى على ردك ومجهود بارك الله فيك قمت بعملة توسيط من تنسيق لخصائص النموذج فظهرت النماذج عندي بالجهة اليسرى في أعلى الشاشة
-
هل المطلوب صعب تحقيقة ؟؟؟
-
هل المطلوب صعب تحقيقة ؟؟؟
-
اللهم من ساعدني في حل هذه المشكلة .. أسألك أن تفرج كربة في الدنياء والأخرة وتصلح حالة وأن تدخل في قلبه سروراً يوم أن يلقاك .. اللهم وادخلة في مستقر رحمتك في جنة الفردوس الأعلى .. اللهم أمين
-
مرفق الملف للتعديل Database1.rar
-
بالفعل هو المطلوب بارغم أني كنت أتوقع أن الحل سيكون كود أكثر تعقيداً ألا أن ملفك كان به أبسط الأكواد الذي نتعامل معها بشكل يومي يبدو أن الأمر كان يتطلب مني صفاء الذهن .. حول التعامل مع المشكلة أكرر شكري لك أخي كاسر @kaser906 .. جزاك الله خير .. وجعل الله هذا في ميزان حسناتك
-
أستاذي الغالي @ابا جودى شكرا لك على أتحافي بهذه المواضيع المهمة والجميلة سأقوم بالأطلاع على هذه المواضيع لأنها مهمة عندي طبعاً قمت بالاطلع على اول موضوع طبعا التحجيم بعيد عن المقصود وهو تصغير قياسات النموذج وتكبيرة على مختلف أحجام الشاشات والمشكلة عندي هو أن النموذج يكون مائل الى الجهة السفلية من الشاشة بالنسبة لهذه النقطة نسيت أن اعلق عليها المديول hideshowaccess لا دخل له بهاذا الامر .. لأني قمت بتجربه ملفك ألاخير الذي لا وجود لمديول hideshowaccess وتظهر المشكلة نفسها
-
أستاذي شكرا لك على ردك .. لم أفهم ماتقصد ؟؟
-
أساتذتي واخواني أن المشكلة تظهر عندي لأني أستخدم لابتوب وأتوقع أن أنتم تستخدمون شاشات أكبر لديسك توب لذك لن تلاحظو الفرق أستاذي @ابا جودى مارائيك أن أريك المشكلة على التيم
-
أي أطار تقصد ؟؟؟
-
شكرا لك أستاذي أبا جود هذه الامور كلها معروفة .. بارك الله فيك وماذا بخصوص طلبي ؟؟ قمت بتجربت ملفك الاخير أنظر نفس المشكلة جزء من النموذج مختفي خلف شريط المهام ============================== أستاذي الغالي لا دخل بقياسات النموذج .. المشكلة في المديول أنه لا ياخذ بالاعتبار شريط المهام الذي ياخذ مساحة من الشاشة دقة الشاشة عندي 1366x768 بالمرفق يتم أختفاء الجزء السفلي للنموذج خلف شريط المهام .. كما أن جميع النماذج تضهر مائلة بالاتجاة السفلي وتبقى مساحة في الجزء العلوي من الشاشة أتمنى أستاذي التعديل بأن تكون جميع النماذج مرتفعة فوق شريط المهام .. وأن يحتسب الاطار الخاص بشريط المهام في التوسيط النماذج في الشاشة قست ارتفاع شريط المهام عندي وكان 1 سنتي متر لولا الاهمية الكبيرة لما طلبت هذا شاكر لك تعاونك أستاذي وردك لي رغم أنشغالك الشديد .. جعل الله هذا العمل في ميزان حسناتك
- 75 replies
-
- 1
-
-
- تغيير الأيقونة
- إخفاء إطار الأكسس
- (و3 أكثر)
-
أشكرك أخي كاسر @kaser906 على ردك .. بارك الله فيك قمت بتحميل الملف ... ساقوم بالاطلع وتجربة .. وأن شاء الله يكون فيه طلبي
-
أستاذي الغالي @ابا جودى أضف وعدل ما تراه مناسب فأنت أدرى وأعلم مني .. فهي ساحتك
-
تفضل استاذي الغالي Database1.rar 43.85 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 4 downloads أرجوا من أساتذتي الذي لديهم قدرة في معرفة الحل .. أن لا يترددو بالمساعدة .. لأن ابا جود قد يكون مشغول هذه الفترة واحتاج حلها في أسرع وقت ممكن
-
أساتذتي واخواني الافاضل ارجوا المساعدة في التالي: بما أن الطلب الاخير يبدو أنه لم يعرف المطلوب اطلب منكم بطريقة أخرى .. بعد عدة محاولات المطلوب: أنه أذا كان في النموذج الفرعي بالحقل Amount2 مبلغ فلا يتم ( الاغلاق ) النموذج .. او التنقل بين السجلات ( جديد - التالي السابق ) ألا بعد الضغط على زر ( حفظ ) وتظهر رسالة تعلم المستخدم بذلك أذا كان طلبي غير واضح .. أرجو طلب التوضيح مرفق الملف للتعديل: Ex2.rar
-
بارك الله فيك أخي كاسر @kaser906.. فكرة جديدة
-
تفضل استاذي الغالي Database1.rar
