[ تمت الإجابة ]تعديل كود زر فى نموزج A لفتح نموزج B

لغلق النموذج الحالي وفتح النموذج التالي اكتب

DoCmd.Close
DoCmd.OpenForm "form2"

مع مراعاه استبدال اسم النموذج form2 باسم نموذجك المراد فتحة

مشكور أخى

لكن أنا عاوز معدلش فى الكود الى انا حطة فى مشاركتى

انا عاوز اضيف علية كود تانى يغلق النموج الحالى دون المساس بالكود المرفق يعنى مثلا سطر أضيفة علية فيغلق النموزج الحالى بس يايرت أضيفة فين جربت أضيف فى بعد أخر سطر وقبل end sub سطر DoCmd.Close لكنة لم ينفذ والزر أكتفى بأنة فتح النموزج الجديد وبس لكن المطلوب أنة بالكود بتاعى يفتح النموزج الجديد وأضيف بقى كود تانى يغلق الحالى يعنى الزر يعمل وظيفتين انا حاطط وظيفة منهم وعاوز بقى اضيف التانية وشكرا

Private Sub Command_5_Click()
On Error GoTo Err_Command5_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "EditTask"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close , "OpenEditTask"
Exit_Command5_Click:
Exit Sub

Err_Command5_Click:
MsgBox Err.Description
Resume Exit_Command5_Click
End Sub

شكرا جزيلا أخى 'الفيلسوف111'

لكن للأسف لم يحدث تغير والمشكلة زى ماهى

شوفوا أخوتى المثال المرفق

عندى جدول فية بيانات وفية حقل اسمة Anum

مجرد حقل ترقيم تلقائى --- عملت فورم واسميتة form1 وأخر أسمة form 2 الفورم القانى مأخوذ من أستعلام يبحث عن ANUM والفورم الأول دخول لفورم 2 لكن على الحقل المذكور رقمة فى فورم 1 وطبعا علشان فورم 2 يفتح عملت فى فورم واحد زر أمر من خلال المعالج يعنى زر أمر لفتح نموزج فورم 2 وفعلا بعد التجربة لقيت لما بدخل رقم 1 مثلا وأضغط موافق على زر الأمر بيفتحلى فورم 2 على نفس السجل الى هو رقم 2 ولو غيرت الرقم فى فورم 1 بيفتح فورم 2 على نفس السجل المذكور فى فورم 1 لأن ما فى مشكلة

المشكلة بقى

عاوز لما اضغط موافق فى فورم 1 يفتحلى فورم 2 ويغلق فورم 1 ولما حبيت اعمل ماكرو يقوم بفتح فورم 2 ويغلق فورم 1 فى نفس الوقت ولغيت زر الامر موافق وعملتة بالماكرو فعلا فتح فورم 2 وقفل فورم 1 لكن لم ينفذ المطلوب اساسا وهو الفتح على رقم السجل المذكور فى فورم 1

مفهوم أخوتى

مرفق مثال للتوضيح

db2.rar

عفوا اخي الكود كان نا قص تفضل ..........

DoCmd.Close acForm, "form1"

للاسف وضعت باقى الكود فى اخر سطر وبرضة لم يتم شى

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

وشكرا للجميع

Up

تفضل مثالك بعد التعديل

db2_up.rar

انا جربت على المثال بتاعك وفعلا الله ينور

دخلت على زر الأمر ودخلت على الكود الموضوع ونسختة طبق الأصل

وروحت على قاعدة البيانات بتعتى ومسحت خالص زر الأمر من عندى وعملت زر أمر جديد وطبعا سميتة أمر 4 زى ما انت مسمية ووضعت الكود بتاعك فى حدث عند النقر مثلك تمام

وغيرت مسميات فورم 1 الى الأسم الى عندى وكذالك فورم 2 -- بيتهيالى كلة مضبوط

لكن الغريب ان الزر أشتغل صح وفتح على السجل المطلوب لكنة لم يغلق الفورم الأول يعنى المشكلة هى هى ومحصلش أى تغير

ياريت تراجع معايا الخطوات وللعلم فورم 1 عندى أسمها EditTask وفورم 2 أسمها OpenEditTask

مشكور أخى الكريم

اقتباس

وطبعا سميتة أمر 4 زى ما انت مسمية

انا لم اسمي اي شيء انا يادوب اشتغلت فقط علي المثال كما ارفقتة :lol:

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

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

مشكور أخى لم ألتفت الا انك وضت كود أغلاق فورم 1 فى حدث عند فتح فورم 2

مشكور اخى - دائما عبقرى

وطالما الصدفة جمعتنا

لى رجاء

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

ياريت تحى الموضوع تانى وتستكمل ولك الأجر أن شاء الله

وشكرا

بارك الله فيك أخي الغالي

سأحاول تكملتة لكن الله يعلم مدي انشغالي ومشاكلي

والله المستعان