make one of the buttons inactive

[islammmi]

My dear brother..

i have a form like this one in the picture..

i want when i choose for example (Number 1) from the field Select.... it will make the Number one button still active so when i click over this button it will open a new form named Number 1 form... in the meantime.... the button named Number 2 will be inactive... i mean ... not functioning...

and if i choosed number 2 from the field select... the opposite will occur.. so number 1 button will be inactive... and number 2 button will be still active so i can go only to form named (number 2 form

it is very important step for my database.. hope you can hlep me in this point.. if you can give me the reply with pic.. that could be great..

look at my pic.. thx alot

[islammmi]

My dear brother..

i have a form like this one in the picture..

i want when i choose for example (Number 1) from the field Select.... it will make the Number one button still active so when i click over this button it will open a new form named Number 1 form... in the meantime.... the button named Number 2 will be inactive... i mean ... not functioning...

and if i choosed number 2 from the field select... the opposite will occur.. so number 1 button will be inactive... and number 2 button will be still active so i can go only to form named (number 2 form

it is very important step for my database.. hope you can hlep me in this point.. if you can give me the reply with pic.. that could be great..

look at my pic.. thx alot

http://islammmi2.topcities.com/acc.jpg

[السيد عبد العال]

Assume that The name of Combo Box is SelectCombo
and you Filled its list by 2 Text "NEmber 1" and "Number 2" and
you have tow Battons the First has Name= Command1 and Caption =Number 1
the Second has Name= Command2 and Caption =Number 2
Add this Code in Even AfterUpdate For SelectCombo

Private Sub SelectCombo_AfterUpdate()
 Select Case SelectCombo
   Case "Number 1"
    [Command1].Enabled = True
    [Command2].Enabled = False
  Case "Number 2"
    [Command1].Enabled = False
    [Command2].Enabled = True
 End Select
End Sub

[islammmi]

thx alot my dear brother for your response.. i am gonna try it and let you know the results.. insha allah it will work..

thx again..

[islammmi]

i am sorry my dear brother.. but i tried it .. it isn't working with me

i wonder if you can describe it to me with pictures.. one or two pics..

and are you sure that this code is correct.. cuz i tried it many times..

sorry for continous bothering..

thx alot .

[السيد عبد العال]

Example

The file changed .....

تم تعديل أغسطس 2, 2004 بواسطه السيد عبد العال

[islammmi]

sorry my dear brother..

i am gratful for your concern.. but i have download your file.. but it also gives me an error.. i wonder if you have tried it.. or not .. i am sure it is not working.. sorry for bothering you ..

hope you can help me as this step is a vital setp in my database

[السيد عبد العال]

It was Created and Tested in Axess XP

Please tell us the Error Messege..

[islammmi]

Thx alot my dear brother for your great concern.. and your quick respone.. i really appreciate that too much..

but i wanna tell you that i am using Office2000 Italian version because i am staying in italy for the moment... i wonder if you can tell me give me this example again but using the office 2000 even the english version.. i guess that could be the problem ...

thx alot .. and waiting for your kind reply..

salam allah alukom

[السيد عبد العال]

It Modified ..

note: The File is compressed using WinZip

if you still have error Please tell us the error Messege

Battons1.zip

[islammmi]

wallahe i cannot find words to thank you for your response to my problem.. you are very kind indeed.. and may allah give you alot of thawab for what you are doing for us.. i will try the new file and i am shy to ask you again if i face another problem.. but i realized how much kind you are .. so sorry if i bothered you with my problem..

[السيد عبد العال]

Please if there any Problem tell us

Best Wishes for You

[islammmi]

My dear brother.. Thx alot for your kind help.. i really cannot find the words to thank you .. cuz that was a mandatory and crucial step in my database..

may allah give you alot of thawab for your wonderful effort ....

thx god.. it is working with me.. and no more problem.. i have just one more question...

i am designing this database using office 2000 italian version.. when i return back to egypt.. i will use windowXP english version.. do you think it could be a problem.. or it will work in a normal manner..

thx alot again

[islammmi]

اخي العزيز بارك الله فيك علي الحل الفعال لمشكلتي الحمد لله الكود شغال 100% كما في الصورة الاولي

http://mohahmbas2.topcities.com/databasepic/button1.jpg

PLEASE TAKE IT COPY AND PASTE CUZ IT IS NOT POSSIBLE TO SHOW IT HERE..

لكن فيه حاجة صغيرة مهمة

وهي اني لما ادخل علي النموذج مرة اخري اجد كل الزراير Enabled مرة اخري لان فكرة تشغيل الكود بيعتمد فقط علي بعد تعديل SelectCombo في المثال الذي تفضلت بارساله لي او Procedure type في database الخاصة بي كما في الصورة الثانية

http://mohahmbas2.topcities.com/databasepic/button2.jpg

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

thx for your patience with me.. and it is difficult for me to write in arabic cuz i am in italy now.. and it is quite hard to write in arabic.. so excuse me my dear brother..

waiting for your crucial solution as you are always doing.. slaamat

تم تعديل أغسطس 6, 2004 بواسطه islammmi

[islammmi]

my dear brother. hope that you can solve the last problem in my database..this is the last step.. then it will be ready .. thx

[السيد عبد العال]

Solution1
In Design Mode for the all Four Battons Make the Property Enabled =No
Solution 2
1-Add else statment in Select Case To Desable the all Battons
2-Call The SelectCombo_AfterUpdate in the Event OnOPen for form

Private Sub Form_Open(Cancel As Integer)
 Call SelectCombo_AfterUpdate
End Sub

Private Sub SelectCombo_AfterUpdate()
 Select Case SelectCombo
   Case "Procedure 1"
    [Command1].Enabled = True
    [Command2].Enabled = False
    [Command3].Enabled = False
    [Command4].Enabled = False
  Case "Procedure 2"
    [Command1].Enabled = False
    [Command2].Enabled = True
    [Command3].Enabled = False
    [Command4].Enabled = False
  Case "Procedure 3"
    [Command1].Enabled = False
    [Command2].Enabled = False
    [Command3].Enabled = True
    [Command4].Enabled = False
  Case "Procedure 4"
    [Command1].Enabled = False
    [Command2].Enabled = False
    [Command3].Enabled = False
    [Command4].Enabled = True
  Case Else
    [Command1].Enabled = False
    [Command2].Enabled = False
    [Command3].Enabled = False
    [Command4].Enabled = False
 End Select
End Sub

Battons2.zip

تم تعديل أغسطس 9, 2004 بواسطه السيد عبد العال

[islammmi]

بارك الله فيك وزادك علما فوق علمك

thx alot my dear brother.. i have tried the modification you had made in the second solution... and thx god.. it works with me.. thx alot again.. and thx alot for ever