أبوبسمله

جزاك الله خيرا ولم افعل شىء لهذا يكفينى دعوه صادقه من القلب لى ولاخوانى واخواتى واساتذتى جزاهم الله خيرا

وعليكم السلام اخى الفاضل اهلا ومرحبا بك معنا فى قسم الاكسيس فى اى حقل سيتم الكتابه والحفظ فى جدول Emp ؟

وعليكم السلام هل هذا ما تريد ؟ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق 1استعلام الحاقي.rar

وعليكم السلام اتفضل اخى كان يوجد مشكله فى الاصل وهى عدم تشغيل استعلام الالحاق لاضافه البيانات بجدول daily اضف من النموذج واضغط زر الطباعه سيتم الاضافه وفتح التقرير مظبوط باذن الله تعالى جرب الان ووافنى بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق A_New Microsoft Access Database (2).accdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير والحمدلله الذى بنعمته تتم الصالحات بالتاكيد هذه الهديه من روائع اخى واستاذى جعفر ويسرت على ايضا كثيرا جزاك الله عنا كل خير لما استخدمته جعلته فى حال لم لم يجد قيم فيضع اصفار فالحقول كالتالى LN = DLast("[Post] & '|' & [Mtar] & '|' & [EmsD] & '|' & [EmsKh] & '|' &[Draeb]", "THrkat_Emp", "[THrkat_Emp.KodT]=[TKhtotKodT] and [THrkat_Emp.ID_Kind ]='N3'") If IsNull(LN) Then LN = ("0 | 0 | 0 | 0 | 0") X = Split(LN, "|") Me.[LPost] = X(0) Me.[LMtar] = X(1) Me.[LEmsD] = X(2) Me.[LEmsKh] = X(3) Me.[LDraeb] = X(4) Else X = Split(LN, "|") Me.[LPost] = X(0) Me.[LMtar] = X(1) Me.[LEmsD] = X(2) Me.[LEmsKh] = X(3) Me.[LDraeb] = X(4) End If واليك تعديل على مثالك بهديه اخى واستاذى جعفر جزاه الله خيرا Private Sub ITEM_BARCODE_AfterUpdate() a = DLookup("[SELLS_PRICE]& '|' & [item_name]", "POS_MASTER", "[ITEM_BARCODE]=forms!forms_1!ITEM_BARCODE") If IsNull(a) Then a = (" | ") X = Split(a, "|") Me.SELLS_PRICE = X(0) Me.ITEM_NAME = X(1) Else X = Split(a, "|") Me.SELLS_PRICE = X(0) Me.ITEM_NAME = X(1) End If End Sub وفى انتظار تعقيب اخى واستاذى العزيز جعفر تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق test_102.rar

وعليكم السلام اتفضل اخى ان شاء الله يكون ما اردت وجزاهم الله خيرا اخواننا واساتذتنا تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق A_New Microsoft Access Database (2).accdb

اتفضل اخى حسين Me.EDET_QOTY = DLookup("[Qote_item]", "tabol102", "item_prais=" & [item_prais] & "and [ITEM_BARCODE]='" & Me.serh_Barcod & "'") DCount("ITEM_BARCODE", "tabol102", "ITEM_BARCODE = forms!forms_1!serh_Barcod and [item_prais]=forms!forms_1![item_prais]") test_1.accdb

الشكر لله ثم لاخواننا واساتذتنا الذين تعلمنا ونتعلم منهم كل يوم جزاهم الله خيرا ولا عبقرى ولا حاجه مجرد طالب علم اخى التغيرات كلها فى النموذج payment_sub فى حدث بعد التحديث ولكن اعمل بنصيحه اخى خالد @خالد سيسكو جزاه الله خيرا بالتوفيق اخى

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

بعد اذن اخى واستاذنا جعفر اشارك معكم لان دوال التجميع هذه ارهقتنى كثيرا وحتى استفيد من تعقيبكم اخى واستاذى العزيز جعفر بارك الله فيك وجزاك الله خيرا اخى الفاضل حسين انت لم توضح لنا اسم الحقل وهل هو رقمى ام نصى زلم ترفق مثال عالعموم بفرض ان اسم الحقل price ونوعه رقمى جرب التعديل التالى وان شاء الله يشتغل معك DCount("ITEM_BARCODE", "tabol102", "ITEM_BARCODE = forms!CALCULATOR!serh_Barcod and [price]= forms!CALCULATOR!price") Me.EDET_QOTY = DLookup("[Qote_item]", "tabol102", "price=" & price & and [ITEM_BARCODE]='" & Me.serh_Barcod & "'") ان شاء الله يشتغل تمام معك جرب ووافنا بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

وعليكم السلام اتفضل ان شاء الله يكون ما طلبت حتى وانت فاتح النموذجين سيتم التحديث بمجرد انتقالك للسجل التالى وليس للحقل التالى تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق Aa_New Microsoft Access Database.rar

جزاك الله خيرا وفيك الخير بالتوفيق ان شاء الله

بسم الله ماشاء الله جزاك الله خيرا اخى واستاذى العزيز جعفر @jjafferr تسلم ايدك اخى جعله الله فى ميزان حسناتك ساقوم بالاطلاع عليه للمعرفه لعلى استخدمه فى يوم من الايام يارك الله لنا فيك وجزاكم الله خيرا اخوانى واساتذتنا اجمل باقات الورود معطره بذكر الرحمن يحفظكم ويرزقكم الفردوس الاعلى باذن الله

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا افتح نموذج frmSearch وان شاء الله يكون ما طلبت بالتوفيق ان شاء الله مسير المرتبات النسخة الاخيرة.accdb

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

عليه افضل الصلاه والتسليم وفيك بارك الله اخى بالتوفيق ان شاء الله

اخى الفاضل اولا نحن نشكرك على حرصك بالمنفعه والصالح لاخوانك ولكن يوجد فرق ما بين عدم معرفه تشغيل البرنامج وبين هذا الملف فيرس ونرجو منك عدم قول اى معلومه قبل التاكد منها ثم ارفاق مايدل على صحتها ومصدرها قم بتخفيض الامان وستعمل معك البرامج المرفقه كما وضحت لك كيفيتها وهذا الرابط مره اخرى http://arabteam2000-forum.com/index.php?/topic/272088-اداة-تخفيض-مستوى-أمان-برنامج-الأكسيس-الى-الحد-الأدنى-لجميع-النسخ/ بالتوفيق

اخى الفاضل كلنا نتعلم من بعض ولفتح البرنامج يجب تخفيض امان الماكرو لديك وده شرح مفصل لتخفيض الامان جزاها الله خيرا ام عهود عالشرح السهل والمبسط للجميع http://arabteam2000-forum.com/index.php?/topic/272088-اداة-تخفيض-مستوى-أمان-برنامج-الأكسيس-الى-الحد-الأدنى-لجميع-النسخ/ بالتوفيق

السلام عليكم ورحمه الله وبركاته اخى الفاضل اهلا ومرحبا بك معنا فى قسم الاكسيس ارجو منك تقبل كلامىى بصدر رحب وانا اخوك الصغير برجاء العلم باننا هنا للتعلم والاستفاده والافاده وليس لانشاء برامج جاهزه ان كنت تود برنامج جاهز فيرجى عمل اعلان بقسم الاعلانات فالموقع https://www.officena.net/ib/forum/157-إعلانات-شخصية-للاعضاء-فقط-فى-مجال-الموقع/ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

وعليكم السلام اخى خالد بارك الله فيك ولكنك تقصد بالفحص البرنامج الاخر الحضور والانصراف على ماذكره الاخ @ABOLO2 ان شاء الله يتاكد ويرد خبر بالتاكيد وباى بررنامج قام بالفحص للتاكد مره اخرى وجزاه الله خيرا على حرصهه عالمنفعه والصالح ولكن نتاكد مره اخرى تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

من اين لك بهذه المعلومه اخى الفاضل لقد قمت بفحص البرنامج اونلاين https://www.virustotal.com/gui/home/upload ولم يتم اكتشاف اى فيروسات تاكد بارك الله فيك مره اخرى بالتوفيق

السلام عليكم بما ان الاخ @hatem fayz غير متواجد الاخ الفاضل @ABOLO2 و @محمد مفتاح يجب تخفيض امان الماكرو ليعمل البرنامج معكم تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا اتفضل اخى الفاضل لتلافى رساله الخطأ عند ادراج فاتوره جديده قمت بوضع 0 للقيمه الافتراضيه للحقل sale_id ثم قمت بوضع الكود التالى فى حدث عند فقدان التركيز وهو ليس لى بل لاخ فاضل جزاه الله خيرا وقمت بتعديله واضافه اجزاء بسيطه عليه Dim x, z As Variant Dim rs As DAO.Recordset 'متيغر للفرعي و الرئيسي x = Me.details_Subform!sale_id z = sale_id 'تحديث Me.Requery Me.details_Subform.SetFocus Me.details_Subform.Requery 'بحث Set rs = Me.RecordsetClone 'عن السجل المطابق في النموذج الرئيسي rs.FindFirst "[sale_id]=" & z Me.Recordset.Bookmark = rs.Bookmark 'التركيز للفرعي Me.details_Subform.SetFocus DoCmd.GoToRecord , , acLast DoCmd.GoToRecord , , acNext 'بحث عن اخر سجل كان الموشر عليه DoCmd.FindRecord x, , , , , acCurrent ثم فى حدث بعد التحديث وبعد تاكيد الحذف قمت بوضع الكود التالى لتشغيل الكود الاول Call Form_sale.Form_LostFocus ان شاء الله يكون ما طلبت ونسالكم الصلاه على معلم الامه جميعا سيدنا محمد صل الله عليه وسلم والدعاء لى ولاخواننا واساتذتنا جزاهم الله خيرا تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق A_New Microsoft Access Database (1).accdb

وعليكم السلام اخى الفاضل هل هذا ما تريد؟ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق A_New Microsoft Access Database.accdb