ابوآمنة

تستطيع إضافة الكميات عن طريق فاتورة المشتريات . كما وضحنا ذلك سابقاً

يحتاج وقت ،،،، في المستقبل إن شاء الله تعالى

أخي بلال تفضل الآن بإمكانك تصدير واستيراد بيانات الموظف من القائمة والتعديل على ملف الاكسيل واستيراد التعديلات على ملف الموظف . كما ذكرت لي في الرسالة الخاصة لك . وبالتوفيق آمل التجربة وإخباري بالنتائج استراد وتصدير.accdb

تفضل بعد التعديل أما طلب رقم 4 لا يمكن وهناك برامج أخرى موجودة في المنتدى قم بالبحث عنها وأما طلب إضافة جهاز الباركود يعمل توجه لتكويد الأصناف وبجوار كود الصنف شيك بوكس "تكويد يدوي" فعل الخيار وقم وضع رقم الباركود من خلال القارئ الباركود وسيتم البيع بالقارئ ، فقط ضع السهم في كود الصنف بالفاتورة جرب الآن واعطينا خبر BuySal20_V14.zip

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

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

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

ستجد بإذن الله تعالى حلك في هذه المشاركة

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

تفضل الإجابة في نموذج (نموذج12) استراد وتصدير.accdb

تفضل الكود Private Sub Comand3_Click() If Len(Me.text & vbNullString) = 0 Then 'في حال عدم وجود شرط بحث strcriteria = Replace(strcriteria, " Where ", "") DoCmd.OpenReport "rptItems", acViewPreview, , strcriteria Else 'في حال وجود شرط بحث Dim RName, FldCriteria As String RName = "rptItems" FldCriteria = "[ID]=" & "'" & Me.text & "'" DoCmd.OpenReport RName, acViewPreview, , FldCriteria End If End Sub وبقية التفاضيل في برنامج الخليل في نموذج FrmFilteringQTY

Dim req As String req = "select * from saleh where id=3;" Me.RecordSource = req السطر الأخير معناه نجعل مصدر السجلات لنموذج الحالي هو الاستعلام req ومساهمة أخرى مع أخي @MTGFM و للمنوذج الفرعي هكذا Me.frmSub.Form.RecordSource = ("Select * From saleh")

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

تفضل نسخة accdb وتم إضافة بعض التحسينات في هذه النسخة . BuySal20_V14.accdb BuySal20_V14.accdb.mdb.zip

movementDT.Clear() movementDA = New OleDbDataAdapter("Select * From MOVEMENT_T Where ((Price) = DMin('price', 'movement_t', ' itembarcode like '%' + tbSearch.Text + '%' ))", Conn) movementDA.Fill(movementDT) جرب الكود الآن لعله يعمل

تابع هذا الفيديو حل مشكلة فشل Microsoft Access من إنشاء الوحدة النمطية Visual Basic

جرب Private Sub Text0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Label1.Caption = Me.Text0.Name Me.Text0 = Me.Text0.Name End Sub

جرب هذا الكود If NewData = Not Null Then Me.STATION_OUT_DEP = Null Else Response = acDataErrContinue End If

جرب إزالة الرسالة والاكتفاء Response = acDataErrContin

Private Sub STATION_OUT_DEP_NotInList(NewData As String, Response As Integer) MsgBox "الادخال خاطيء ...انت محدد بالقائمة ... يرجى عدم ادخال اي شيء آخر", vbOKOnly Response = acDataErrContin End Sub فقط ضع هذا الكود اسفل الرسالة Response = acDataErrContin لست بحاجة لاستخدام كود إخفاء رسائل الاستعلام هذا DoCmd.SetWarnings False الملف بعد التعديل COMBO BOX ERROR.accdb

تسلم أخي أحمد لك 😘 لجهودك المتميزة في المنتدى بارك الله فيك وفي امثالك .

في الخدمة يا أخي عبداللطيف😘

تفضل أخي عبداللطيف تجربة متعددة.accdb

حياك الله أخي @أحمد الفلاحجى اشغلتنا مشاغل الدنيا كنت قبل اسبوع اقدم برنامج تدريبية في جهة عملي عن إنشاء قواعد البيانات باستخدام برنامج اكسيس ودللتهم على هذا المنتدى المبارك ومشرفيه وخبراء المتميزين . والفترة القادمة سأحاول تعلم لغة #C بتقنية asp.net الله يسهل دعواتكم اشكر لك سؤالك

ما شاء الله تبارك الله استاذي ومعلمي جعفر بوركت وجعله في ميزان حسناتك