ledoledo قام بنشر فبراير 6, 2016 مشاركة قام بنشر فبراير 6, 2016 السلام عليكم السؤال هو يوجد نموذج به عدة ازرار فهل يمكن ان تعمل هذه الازرار بكود واحد بدلا من وضع كود مستقل لكل زر ولكن كل الشكر رابط هذا التعليق شارك More sharing options...
نور الدين وليد قام بنشر فبراير 6, 2016 مشاركة قام بنشر فبراير 6, 2016 هل تقصد أخى الكريم أن حميع الازرار لها نفس المهمة ونفس الكود؟ رابط هذا التعليق شارك More sharing options...
ledoledo قام بنشر فبراير 6, 2016 الكاتب مشاركة قام بنشر فبراير 6, 2016 نعم اخي الكريم الازرار لها وظيفتين واحدة مشتركة و الاخري مختلفة رابط هذا التعليق شارك More sharing options...
نور الدين وليد قام بنشر فبراير 6, 2016 مشاركة قام بنشر فبراير 6, 2016 اكتب فى مكان خالى من الكود: اى اسم تريده sub ----هنا اكتب الكود الخلص بالوظيفة المشتركة---- end sub وبعد ذلك فى الكود الخاص باول زر لالسم الذى اخترت Call كود الوظيفة المختلفة رابط هذا التعليق شارك More sharing options...
ledoledo قام بنشر فبراير 6, 2016 الكاتب مشاركة قام بنشر فبراير 6, 2016 مشكور جدا اخي الكريم ولكن لا توجد طريقة يفهم بها الاكسيس المطلوب عند ضغط اي زر بدون كتابة call رابط هذا التعليق شارك More sharing options...
نور الدين وليد قام بنشر فبراير 6, 2016 مشاركة قام بنشر فبراير 6, 2016 Database1.rar 1 رابط هذا التعليق شارك More sharing options...
ledoledo قام بنشر فبراير 6, 2016 الكاتب مشاركة قام بنشر فبراير 6, 2016 مشكور جدا حجرب اليوم ان شاء الله رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 6, 2016 مشاركة قام بنشر فبراير 6, 2016 16 دقائق مضت, ledoledo said: مشكور جدا اخي الكريم ولكن لا توجد طريقة يفهم بها الاكسيس المطلوب عند ضغط اي زر بدون كتابة call السلام عليكم هذا السؤال شيّق ويستاهل الواحد ينظر فيه ولكننا بحاجة الى معلومات وافيه ، وبالتفصيل عن المطلوب جعفر رابط هذا التعليق شارك More sharing options...
ledoledo قام بنشر فبراير 6, 2016 الكاتب مشاركة قام بنشر فبراير 6, 2016 تسلم اخي جعفر يوجد نموذج به 5 ازرار كل زر يقوم بوظيفة اساسية تختلف عن الاخرين ويشتركون جميعهم في تنفيذ امر اخر مشترك هل يمكن ان يتم تنفيذ امر معين عند ضغط اي زر بالنموذج بدون كتابة كود خاص به مشكور جدا الاخ جعفر و الاخ نور رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر فبراير 6, 2016 مشاركة قام بنشر فبراير 6, 2016 لابد من ارى الكود لكل زر ، ومن ثم نرى طريقة العمل منذ ساعه, ledoledo said: بدون كتابة كود خاص به . جرب هذا المرفق ، وانقر على الزر 1 اكثر من مرة ، بس على كيفك طبعا فيه كود Function Control_Name_F(F) MsgBox "The information you sent is: " & F End Function Function Control_Name() Dim frm As Access.Form Dim ctl As Access.Control Set frm = Forms(frm_Test) Set ctl = Screen.ActiveControl If ctl.Name = "Command1" Then If frm.Controls(ctl.Name).ForeColor = RGB(255, 0, 0) Then frm.Controls(ctl.Name).ForeColor = RGB(0, 0, 0) Else frm.Controls(ctl.Name).ForeColor = RGB(255, 0, 0) End If ElseIf ctl.Name = "Command2" Then MsgBox "Field Name is: " & ctl.Name End If End Function جعفر 260.Function_Code.mdb.zip رابط هذا التعليق شارك More sharing options...
ledoledo قام بنشر فبراير 6, 2016 الكاتب مشاركة قام بنشر فبراير 6, 2016 مشكور جدا استاذ جعفر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.