WESAMZALL1177 قام بنشر فبراير 7, 2020 مشاركة قام بنشر فبراير 7, 2020 (معدل) السلام عليكم كيف ممكن اضيف كود برمجي لاستعلام الحاق وحذف يعني اقوم بعمل زر يشغل استعلام الحاق وحذف في نفس الوقت وشكرا لكم تم تعديل فبراير 7, 2020 بواسطه WESAMZALL1177 تعديل على الجمله رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر فبراير 7, 2020 مشاركة قام بنشر فبراير 7, 2020 وعليكم السلام اخى الفاضل فضلا لا امرا يجب ارفاق ملف بعد ذلك مع اى استفسار لسهوله العمل ده كود من برنامجى للتوضيح DoCmd.SetWarnings False 'الحاق السجل اللى عليه التركيز ثم حذفه AutoNum.SetFocus DoCmd.RunSQL "INSERT INTO TDelASEEDB ( ID, AutoNum, ZCustomerID, [In], Out, Eladafy, ZDate, Tel, Mlahzat ) " & vbCrLf & _ "SELECT RASEEDB.ID, RASEEDB.AutoNum, RASEEDB.ZCustomerID, RASEEDB.[In], RASEEDB.Out, RASEEDB.Eladafy, RASEEDB.ZDate, RASEEDB.Tel, RASEEDB.Mlahzat " & vbCrLf & _ "FROM RASEEDB " & vbCrLf & _ "WHERE (((RASEEDB.AutoNum)=[forms]![FORMB]![AutoNum]) AND ((RASEEDB.ZCustomerID)=[forms]![FORMB]![CusName]));" 'حذف DoCmd.RunSQL "DELETE RASEEDB.ID, RASEEDB.AutoNum, RASEEDB.ZCustomerID, RASEEDB.[In], RASEEDB.Out, RASEEDB.Eladafy, RASEEDB.ZDate, RASEEDB.Tel, RASEEDB.Mlahzat" & vbCrLf & _ "FROM RASEEDB " & vbCrLf & _ "WHERE (((RASEEDB.AutoNum)=[forms]![FORMB]![AutoNum]) AND ((RASEEDB.ZCustomerID)=[forms]![FORMB]![CusName]));" DoCmd.SetWarnings True تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق 4 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر فبراير 7, 2020 مشاركة قام بنشر فبراير 7, 2020 صمم الاستغلامات اولا ومن محرر الاكواد انظر اين تريد وضع الحدث الاتى ومتى DoCmd.SetWarnings False DoCmd.OpenQuery "اكتب هنا اسم الاستعلام الاول" DoCmd.OpenQuery "اكتب هنا اسم الاستعلام الثانى" DoCmd.SetWarnings False 4 رابط هذا التعليق شارك More sharing options...
WESAMZALL1177 قام بنشر فبراير 7, 2020 الكاتب مشاركة قام بنشر فبراير 7, 2020 يعطيكم الف عافيه تم نجاح المهمه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان