الحلبي قام بنشر أكتوبر 15, 2018 قام بنشر أكتوبر 15, 2018 اخواني السلام عليكم لدي نموذج فاتورة مشتريات ونموذج الاصناف بشكل مبسط كمثال انا عملت في نموذج المشتريات بالضغط دبل كليك علي كود الصنف يفتح نموذج الاصناف المطلوب عند التاشير علي علامة صح في خانة الاختيار علي الصنف الاول والثاني مثلا في نموذج الاصناف ينتقل كود الصنف والسعر واسم الصنف الي فاتورة الشراء عند التاشير علي الصنف الثالث والرابع ينتقل كود الصنف والسعر واسم الصنف الي فاتورة الشراء يعني حسب التاشير علي خانة الاختيار تنتقل بياناته الي فاتورة الشراء انا حاولت وعملت استعلام الحاق ماشي تمام ولكن عند الاخيار في المرة الثانية يكرر الصنف يرجى من سيادتكم الحل ـ جزاكم الله خيرا الاصناف.accdb
ابو ياسين المشولي قام بنشر أكتوبر 15, 2018 قام بنشر أكتوبر 15, 2018 39 دقائق مضت, حلبي said: اخواني السلام عليكم لدي نموذج فاتورة مشتريات ونموذج الاصناف بشكل مبسط كمثال انا عملت في نموذج المشتريات بالضغط دبل كليك علي كود الصنف يفتح نموذج الاصناف المطلوب عند التاشير علي علامة صح في خانة الاختيار علي الصنف الاول والثاني مثلا في نموذج الاصناف ينتقل كود الصنف والسعر واسم الصنف الي فاتورة الشراء عند التاشير علي الصنف الثالث والرابع ينتقل كود الصنف والسعر واسم الصنف الي فاتورة الشراء يعني حسب التاشير علي خانة الاختيار تنتقل بياناته الي فاتورة الشراء انا حاولت وعملت استعلام الحاق ماشي تمام ولكن عند الاخيار في المرة الثانية يكرر الصنف يرجى من سيادتكم الحل ـ جزاكم الله خيرا الاصناف.accdb اعمل في معيار الالحاق هذا Not In (SELECT master.catcod FROM master)
الحلبي قام بنشر أكتوبر 16, 2018 الكاتب قام بنشر أكتوبر 16, 2018 (معدل) الاخ الفاضل / ابو ياسين اقتباس Not In (SELECT master.catcod FROM master) اشكرك علي مرورك وجزاك الله خير ـ دائما سباق للمساعدة قمت باضافة المعيار الذي حضرتك اشارت اليه ولكن مازالت المشكلة قائمة اعتقد ان استعلام تحديث بدل الالحاق يكون افضل ام هناك فكرة معينة لتنفيذ ذلك ارجو النظر في هذه المسألة بارك الله فيك تم تعديل أكتوبر 16, 2018 بواسطه الحلبي
ابو ياسين المشولي قام بنشر أكتوبر 17, 2018 قام بنشر أكتوبر 17, 2018 جرب هذا If Me.shose = -1 Then Forms!invoicebuy!buysub!catcod = Me.catcods Forms![invoicebuy]!buysub!categoryname = Me.categoryname Forms!invoicebuy!buysub!pricebuy = Me.pricebuy End If وقبل التحديث If Forms!invoicebuy!buysub!catcod = Me.catcods Then MsgBox " الـمـعـذرة تـم تـسـجـيـل هـذا الـصـنـف عـلـى هـذة الـفـاتـورة " & " " & " مـن قـبـل غـيـر مـسـمـوح الـتـكـرار ", vbMsgBoxRight, "عـمـلـيـة غـيـر صـحـيـحة " Exit Sub End If الاصناف.accdb
الحلبي قام بنشر أكتوبر 17, 2018 الكاتب قام بنشر أكتوبر 17, 2018 عند التاشير علي خانة الاخيار لصنفين مثلا او ثلاث اصناف لا ينقل الا صنف واحد فقط ارجو يتسع صدرك معي ونجد حل جعله الله في ميزان حسناتك 1
ابو ياسين المشولي قام بنشر أكتوبر 17, 2018 قام بنشر أكتوبر 17, 2018 6 دقائق مضت, حلبي said: عند التاشير علي خانة الاخيار لصنفين مثلا او ثلاث اصناف لا ينقل الا صنف واحد فقط ارجو يتسع صدرك معي ونجد حل جعله الله في ميزان حسناتك انا اسف لم انتبه لطلبك هذا اتفضل هذا حسب طلبك If Me.shose = -1 Then Dim Rs As DAO.Recordset Set Rs = Forms!invoicebuy!buysub.Form.RecordsetClone Forms![invoicebuy].SetFocus Forms!invoicebuy!buysub.SetFocus Rs.FindFirst "[categoryname] = '" & Me.categoryname & "' And catcod =" & Me.catcods If Rs.NoMatch = False Then DoCmd.OpenForm "frm_Message" Forms!frm_Message!lblMessage.Caption = "ÇáÑÞã ãßÑÑ" MsgBox " ÇáÑÞã ãßÑÑ" & " ", , "ÊÜäÜÈÜíÜå" Else Rs.AddNew Rs!materinvoice = Forms!invoicebuy!buyinvoice Rs!catcod = catcods Rs!categoryname = categoryname Rs!pricebuy = pricebuy Rs.Update End If End If الاصناف.accdb 1
الحلبي قام بنشر أكتوبر 17, 2018 الكاتب قام بنشر أكتوبر 17, 2018 استاذنا تحملني قليلا هذا جميل جدا من حضرتك الذي اريده عند فتح نموذج الاصناف من فاتورة الشراء واقوم بالتاشير علي الاصناف المطلوبة يكون هناك زر امر في نموذج الاصناف اضغطه يرسل كل الذي اخترته دفعة واحدة الي فاتورة الشراء وليس صنف بعد صنف كمل جميلك الله يرضي عليك
ابو ياسين المشولي قام بنشر أكتوبر 17, 2018 قام بنشر أكتوبر 17, 2018 انت قلت عملت استعلام الحاق وكان تمام ولكن مشلته التكرار بصراحه ماعرفت ايش هو طلبك انت اعمل فاتورة واشر على كل الاصناف واخرج من نموذج الاصناف بتلاقيه اضاف كل اللي اشرت عليهم او ارفق استعلام الالحاق بحاول اعدله لك 1
الحلبي قام بنشر أكتوبر 17, 2018 الكاتب قام بنشر أكتوبر 17, 2018 جزاك الله خير ا المشكلة اني عملت استعلام الالحاق علي البرنامج الاصل وجيت اطبقه هنا فشلت في تطبيقه عموما انا غلبتك معي لا داعي لتعبك اكثر من كده اشكرك كثيرا
ابو ياسين المشولي قام بنشر أكتوبر 17, 2018 قام بنشر أكتوبر 17, 2018 (معدل) If Me.shose = -1 Then Set Rs = CurrentDb.OpenRecordset("master", dbOpenDynaset) Set Rs = Forms!invoicebuy!buysub.Form.RecordsetClone Forms![invoicebuy].SetFocus Forms!invoicebuy!buysub.SetFocus Rs.FindFirst "[categoryname] = '" & Me.categoryname & "' And catcod =" & Me.catcods If Rs.NoMatch = False Then DoCmd.OpenForm "frm_Message" Forms!frm_Message!lblMessage.Caption = "ÇáÑÞã ãßÑÑ" MsgBox " ÇáÑÞã ãßÑÑ" & " ", , "ÊÜäÜÈÜíÜå" Else Rs.AddNew Rs!materinvoice = [Forms]![invoicebuy]![buyinvoice] Rs!catcod = catcods Rs!categoryname = categoryname Rs!pricebuy = pricebuy Rs.Update End If End If شوف هذا الكود يضيف في الجدول وفي الفورم واذا هو ليس المطلوب ارجو توضيح المطلوب بالصور تم تعديل أكتوبر 17, 2018 بواسطه ابو ياسين المشولي 1
الحلبي قام بنشر أكتوبر 17, 2018 الكاتب قام بنشر أكتوبر 17, 2018 (معدل) اقتباس واذا هو ليس المطلوب ارجو توضيح المطلوب بالصور الاخ الفاضل / ابو ياسين ربنا يكرمك يارب ويعطيك العافية صدقني يااخي الكريم اني لا اعرف اعمل صور ولا اعلم كيف الطريقة عموما كل المطلوب بالصبط كالتالي : افتح نموذج فاتورة الشراء ثم اضغط علي كود الصنف مرتين يفتح لي نموذج الاصناف في نموذج الاصناف يوجد زر امر في نموذج الاصناف (category ) اقوم بالتأشير علي علامة الصح لثلاث او اربع اصناف ثم اضغط علي زر الامر الموجود بنموذج الاصناف ينقل الاربع اصناف دفعة واحدة الي فاتورة الشراء وهذه تسهل علي المستخدم بدلا من ان يفتح ويغلق اكثر من مرة لاختيار الاصناف صنف بعد صنف انا جربت اخر تعديل من حضرتك وجد انه ينقل صنف واحد فقط مثل التعديل السابق له اخى الكريم انت عملت اللي عليك وزيادة واحسنت وشعرت بانك فعلا خبير في اكسس والله المستعان تم تعديل أكتوبر 17, 2018 بواسطه الحلبي
ابو ياسين المشولي قام بنشر أكتوبر 17, 2018 قام بنشر أكتوبر 17, 2018 اتمنى يكون المطلوب الاصناف (1).accdb 1
الحلبي قام بنشر أكتوبر 17, 2018 الكاتب قام بنشر أكتوبر 17, 2018 (معدل) الاخ الفاضل / ابو ياسين اقتباس اتمنى يكون المطلوب بيض الله وجهك افكار جميلة تأتي من خبير صدقني بجانب ما تفضلت به توصلت الي حل المشكلة باستعلام الالحاق الذي تكلمت عنه وهو مرفق للافادة العامة ولكن في هذا الاستعلام شئ غريب يتم اولهما : انه حين الضغط علي زر الاضافة يضيف في فاتورة الشراء بنجاح كل الاصناف التي تم اختيارها + سجل فارغ ولا اعرف السبب ياريت تفيدني لماذا وكيف يمكن التخلص من السجل الزائد ثانيهما : ان في فاتورة الشراء في حدث "في الحال" لازم اكتب اي معادلة ضرب او قسمة او اي شئ حتي يتم اضافة الاصناف وغير ذلك لا يضيف الاصناف ....... شئ عجيب ارجو التعديل لك كل احترام وتقدير الاصناف.accdb تم تعديل أكتوبر 17, 2018 بواسطه الحلبي
ابو ياسين المشولي قام بنشر أكتوبر 17, 2018 قام بنشر أكتوبر 17, 2018 (معدل) اذا كان هذا طلبك فالله المستعان انت قلت لاتريدها تتكرر الاصناف وانا عملت لك كما طلبت وهذا اللي عملته انت هو استعلام الحاق ماله صله بالنموذج اما بالنسبه للرقم فهو عند فتح النموذج هو يضيف سطر على العموم بالتوفيق اهم شي انك توصلت للحل تم تعديل أكتوبر 17, 2018 بواسطه ابو ياسين المشولي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.