ابوخليل

طريقة اخرى لتحقيق المطلوب يوجد حقلان ... اكتب في الاول اسما مثل محمد علي ثم انتر لتنتقل للحقل الآخر لو ابتدأت بحرف الميم سوف يظهر لك الاسم كاملا اما غير حرف الميم فلن يظهر لك شيئا Dim i, ii As String Private Sub Text0_AfterUpdate() i = Text0.Value End Sub Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer) ii = Left(i, 1) If Text2.Text = ii Then Text2 = i End Sub db1.accdb

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

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

تفضل stock4.rar

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

تم عمل اللازم المهم ان اللي عملت لك عبارة عن تأسيس ادرس المثال جيدا .. يمكن التطوير مستقبلا الجداول التي عليها العمل هي جدولي الحركة ( الرأس والتفصيل ) لذا عملت لك نماذج ادخال بيانات ( وارد / صادر ) يمكننا اختصار نموذجي الرأس بنموذج واحد ولكن فصلهما ارى انه اقوى لاجتناب الخلط والبعد عن زيادة الاكواد بقية النماذج يمكنك عملها على ما تبقى من الجداول لانها تعتبر نماذج خدمية رصيد اول المدة يتم ادخاله من نموذج الوارد .. ونكتب في الملاحظات : رصيد اول المدة ... ويمكننا ايضا كتابة هذه العبارة ضمن الموردين لاحظ : تم ضم جدولي العملاء ( موردين وطالبين ) ضمن جدول واحد تم ضم الاصناف الواردة والاصناف الصادرة في جدول واحد .. وفصل الكميات ( كل نوع في عمود يخصه ) هذه الطريقة تجعل الاستعلامات تعمل بكل يسر واستخراج الارصدة بطريقة صحيحة .. stock2.rar

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

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

ويمكن من خارج اكسس .. توظيف وندوز ولوحة المفاتيح في الحدث المناسب للحقل الأول تعمل نسخ وفي الحدث المناسب للحقل2 تعمل لصق للنسخ SendKeys "^{c}" للصق SendKeys "^{v}"

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

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

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

للنسخ SendKeys "^{c}" للصق SendKeys "^{v}" للحفظ SendKeys "^{s}"

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

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

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

نأمل كتابة العنوان يصف الموضوع ولو بشكل مختصر

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

تفضل Dim intControlType As Integer For Each ctl In Me.Controls intControlType = ctl.ControlType If (intControlType = acCheckBox) Or (intControlType = acComboBox) Or (intControlType = acTextBox) Then If isEditing = False Then ctl.Locked = False Else ctl.Locked = True End If End If Next ctl حفظ وتعديل5.rar

السلام عليكم مشكلتك الحقيقية في الاكواد والاجراء الذي يتم عند تحميل النموذج اليك حل بسيط ومحكم فقط التعامل يتم مع الحقول وليس مع النموذج اذا الحقول كثيرة جدا لديك .. يمكن التعامل معها بعمل لوب حفظ وتعديل4.rar

Private Sub Report_Open(Cancel As Integer) Dim T, L, B T = Nz(DLookup("top", "settings_Report_tbl"), 1) L = Nz(DLookup("left", "settings_Report_tbl"), 1) B = Nz(DLookup("bottom", "settings_Report_tbl"), 1) Me.Printer.TopMargin = T * 567 Me.Printer.LeftMargin = L * 567 Me.Printer.BottomMargin = B * 567 End Sub هامش تقرير2.rar

وهذا مثال وجدته ضمن محفوظاتي تاريخ ووقت الانترنت.rar

نعم وافي وكافي .. جزاك الله خيرا استاذنا

في المرفق مربع تحرير يتم الاختيار منه اريد منع الكتابة داخل الحقل والاكتفاء بالاختيار فقط اريد ايسر واخصر طريقة .. وهل في خصائص الحقل ما يدعم هذا المطلب ؟ Database1.accdb

Private Sub VIP4_Click() On Error GoTo Err_VIP4_Click Beep If MsgBox("هل تريد الحفظ ؟؟", _ vbQuestion + vbYesNo, _ "تنبيه") = vbYes Then DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.OpenForm "ACSSES_ADDUSER" else undo DoCmd.CancelEvent exit sub end if Exit_VIP4_Click: Exit Sub Err_VIP4_Click: Resume Exit_VIP4_Click End Sub