هل يمكن عمل كود واحد لعدة ازرار

[ledoledo]

السلام عليكم 

السؤال هو

يوجد نموذج به عدة ازرار فهل يمكن ان تعمل هذه الازرار بكود واحد بدلا من وضع كود مستقل لكل زر 

ولكن كل الشكر

[نور الدين وليد]

هل تقصد أخى الكريم أن حميع الازرار لها نفس المهمة ونفس الكود؟

 

[ledoledo]

نعم اخي الكريم

الازرار لها وظيفتين واحدة مشتركة و الاخري مختلفة

[نور الدين وليد]

اكتب فى مكان خالى من الكود:

اى اسم تريده sub
----هنا اكتب الكود الخلص بالوظيفة المشتركة----
end sub

وبعد ذلك فى الكود الخاص باول زر

لالسم الذى اخترت Call
كود الوظيفة المختلفة

 

[ledoledo]

مشكور جدا اخي الكريم ولكن لا توجد طريقة يفهم بها الاكسيس المطلوب عند ضغط اي زر بدون كتابة call

[نور الدين وليد]

Database1.rar

[ledoledo]

مشكور جدا حجرب اليوم ان شاء الله

[jjafferr]

16 دقائق مضت, ledoledo said:

مشكور جدا اخي الكريم ولكن لا توجد طريقة يفهم بها الاكسيس المطلوب عند ضغط اي زر بدون كتابة call

السلام عليكم 

 

هذا السؤال شيّق ويستاهل الواحد ينظر فيه 

ولكننا بحاجة الى معلومات وافيه ، وبالتفصيل عن المطلوب 

 

 

جعفر

[ledoledo]

تسلم اخي جعفر 

يوجد نموذج به 5 ازرار كل زر يقوم بوظيفة اساسية تختلف عن الاخرين ويشتركون جميعهم في تنفيذ امر اخر مشترك هل يمكن ان يتم تنفيذ امر معين عند ضغط اي زر بالنموذج بدون كتابة كود خاص به 

مشكور جدا الاخ جعفر و الاخ  نور

[jjafferr]

لابد من ارى الكود لكل زر ، ومن ثم نرى طريقة العمل 

 

منذ ساعه, 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

[ledoledo]

مشكور جدا استاذ جعفر