مشکل در SaveSetting در کمبو و رادیو باکس

[ashkan1234]

با درود فراوان!
برنامه رو پیوست کردم!
دو تا مشکل دارم:
اول اینکه در فرم Option با SaveSetting مشکل دارم!خیلی هم تو نت گشتم چیزی پیدا نکردم!
وقتی چک باکس=چک میشه:optionButton1=true
ذخیره میکنم مشکلی نیست!
ولی وقتی:
optionButton2
optionButton3
را انتخاب میکنم و ذخیره را میزنم،عملیات ذخیره نمیشه!
برنامه را دانلود کنید متوجه میشوید!
اگه کد درستش رو بهم آموزش بدید ممنون میشم!
مشکل دومم:(شاید این مشکل را باید در تاپیک دیگری مطرح میکردم،برای جلوگیری از اسپم اینجا زدم)
وقتی رو دکمه edit کلیک میکنم،فقط اولین رکوردم رو ویرایش میکنه!
هر کدوم را انتخاب کنم اون اولی رو ویرایش میکنه!
ممنون میشم راهنماییم کنید!90545

[Veteran]

Private Sub Command1_Click()
SaveSetting "Project1", "setting", "CheckBox", Check1
If Option1.Value = True Then
SaveSetting "Project1", "setting", "Key", 1
MsgBox "˜ÇÑÈÑ ÈÇ ãæÝÞíÊ 1ËÈÊ ÔÏ", vbInformation, "ÊäÙíãÇÊ ÇãäíÊí"
End If
If Option2.Value = True Then
SaveSetting "Project1", "setting", "Key", 2
MsgBox "˜ÇÑÈÑ ÈÇ ãæÝÞíÊ2 ËÈÊ ÔÏ", vbInformation, "ÊäÙíãÇÊ ÇãäíÊí"
End If
If Option3.Value = True Then
SaveSetting "Project1", "setting", "Key", 3
MsgBox "˜ÇÑÈÑ ÈÇ ãæÝÞíÊ3 ËÈÊ ÔÏ", vbInformation, "ÊäÙíãÇÊ ÇãäíÊí"
End If
End Sub
Private Sub Form_Load()
On Error Resume Next
Check1.Value = GetSetting("Project1", "setting", "CheckBox")
Select Case GetSetting("Project1", "setting", "Key")
Case 1
Option1.Value = True
Case 2
Option2.Value = True
Case 3
Option3.Value = True
End Select
End Sub

این کد جدید مشکل حل شد.
فقط
متن های پیغام رو تصحیح کنین (ÑÈÑ ÈÇ ãæÝÞíÊ3)

[mohammadriano]

90547
موفق باشی

[ashkan1234]

Private Sub Command1_Click()
SaveSetting "Project1", "setting", "CheckBox", Check1
If Option1.Value = True Then
SaveSetting "Project1", "setting", "Key", 1
MsgBox "˜ÇÑÈÑ ÈÇ ãæÝÞíÊ 1ËÈÊ ÔÏ", vbInformation, "ÊäÙíãÇÊ ÇãäíÊí"
End If
If Option2.Value = True Then
SaveSetting "Project1", "setting", "Key", 2
MsgBox "˜ÇÑÈÑ ÈÇ ãæÝÞíÊ2 ËÈÊ ÔÏ", vbInformation, "ÊäÙíãÇÊ ÇãäíÊí"
End If
If Option3.Value = True Then
SaveSetting "Project1", "setting", "Key", 3
MsgBox "˜ÇÑÈÑ ÈÇ ãæÝÞíÊ3 ËÈÊ ÔÏ", vbInformation, "ÊäÙíãÇÊ ÇãäíÊí"
End If
End Sub
Private Sub Form_Load()
On Error Resume Next
Check1.Value = GetSetting("Project1", "setting", "CheckBox")
Select Case GetSetting("Project1", "setting", "Key")
Case 1
Option1.Value = True
Case 2
Option2.Value = True
Case 3
Option3.Value = True
End Select
End Sub

این کد جدید مشکل حل شد.
فقط
متن های پیغام رو تصحیح کنین (ÑÈÑ ÈÇ ãæÝÞíÊ3)
ممنونم از لطفتون!
منتهی یک مشکلی هنوز هست:
وقتی chekbox=Uncheked میشه بازم اون رادیو باکس که سیو کردم روشنه!
مثلا چک باکس رو تیک میزنم،رادیو 3 رو انتخاب میکنم!
بعد دوباره چک باکس رو تیکشو بر میدارم ،فرم رو که reload میکنم،چک باکس uncheked میشه ولی تنظیمات رادیو باکس هنوز رو همون حالت میمونه!(مثلا رو رادیو 3 میمونه)
متن پیغام ها تو سیستم من مشکل نداره!
واسه سوال دومم اگه راهنمایی کنید ممنون میشم!

[ashkan1234]

مشکل ما همچنان باقی است!
کسی نبود یاری کند ما را؟!!!!

[Veteran]

Private Sub Form_Load()
On Error Resume Next
Check1.Value = GetSetting("Project1", "setting", "CheckBox")
If Check1.Value = 1 Then
Select Case GetSetting("Project1", "setting", "Key")
Case 1
Option1.Value = True
Case 2
Option2.Value = True
Case 3
Option3.Value = True
End Select
End If
End Sub

سوال دوم رو متوجه نشدم بیشتر توضیح بده.

[ashkan1234]

Private Sub Form_Load()
On Error Resume Next
Check1.Value = GetSetting("Project1", "setting", "CheckBox")
If Check1.Value = 1 Then
Select Case GetSetting("Project1", "setting", "Key")
Case 1
Option1.Value = True
Case 2
Option2.Value = True
Case 3
Option3.Value = True
End Select
End If
End Sub

سوال دوم رو متوجه نشدم بیشتر توضیح بده.
ببین داداش!برنامه را اجرا کن!مثلا چند شخصی رو تو فرم new معرفی کن تا وارد دیتا بیس ات بشه!
وقتی چند تا شخص ذخیره شد!حالا هر کدم رو انتخاب کنی و edit رو بزنی،فقط اون شخصی که اوله رو ادیت میکنه!

[ashkan1234]

شرمنده ها ولی یه سوال دیگه در مورد option دارم!
میخوام وقتی check box =unchecked شد:
یه مسج باکس بگه که چک باکس غیر فعال شد!
بعدش اینکارا رو بکنه:
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
بازم ممنونم و شرمنده ام!

[Veteran]

خواهش میکنم دوست عزیز.کاری نکردم.
بفرمائید.
Select Case Check1
Case Checked
Option1.Value = True
Option1.Visible = True
Option2.Visible = True
Option3.Visible = True
Case Unchecked
MsgBox "Check1 Is Unchecked ", vbInformation, "Message"
Option1.Value = False
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
End Select

[ashkan1234]

خواهش میکنم دوست عزیز.کاری نکردم.
بفرمائید.
Select Case Check1
Case Checked
Option1.Value = True
Option1.Visible = True
Option2.Visible = True
Option3.Visible = True
Case Unchecked
MsgBox "Check1 Is Unchecked ", vbInformation, "Message"
Option1.Value = False
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
End Select

داداش اینم زدم ولی بازم مشکل داره میشه سورس رو برام بزارید؟
مشکل دوم رو متوجه شدید؟!

[Veteran]

مشکلش کجاست ؟

[ashkan1234]

مشکلش کجاست ؟
خیلی زحمت دادم بهتون!
مشکل اینجاست که وقتی unchecked میکنم،با کلیک من روی checkbox ، مسج باکس میده!در صورتی که باید با کلیک روی دکمه save اینکارو بکنه!و وقتی دکمه save رو میزنم مسج باکس option3 رو برام لود میکنه!

[Veteran]

خب شما توی رویداد کلیک چک باکس گفتین هرموقعه تیکش رفت مخفی بشن.
حالا اگر میخواین که با کلیک روی دکمه سیو مسیج باکس رو نشون میده
این کد رو بزارید توی دکمه سیو !

If Check1.Value <> 1 Then
MsgBox "Check1 Is Unchecked ", vbInformation, "Message"
End If

[ashkan1234]

90571
داداش یه نگاه به این کن!
وقتی option2 و option3 رو save مکنی،بعدش chechek box رو unchecked میکنی و save رو میزنی اول میاد(اگه option2 رو انتخاب کرده باشی) msgbox>>option2 رو باز میکنه بعدش msgbox مربوطه رو!
واسه option3 هم به همین صورته!
ولی واسه option1 اینطوری نیست و مشکلی نداره!
البته یه مشکل دیگه هم داشت که با اضافه کردن else رفع اش کردم!
بازم ممنونم!

[ashkan1234]

دوستان من گیرم!
خواهشا یکی زودتر راهنماییم کنه!
در مورد هر دو تا سوال ام!
ممنون میشم کمکی بهم بشه!

[محسن واژدی]

سلام علیکم
در صورت امکان توضیح کاملی از نحوه ی عملکرد تنظیمات فرم option بدین، به عبارت بهتر وقتی که checkbox روشن شد چه اتفاقی بیافتد آیا option-bottonها مخفی شوند یا radio-optionخاصی روشن شود؟

[ashkan1234]

سلام علیکم
در صورت امکان توضیح کاملی از نحوه ی عملکرد تنظیمات فرم option بدین، به عبارت بهتر وقتی که checkbox روشن شد چه اتفاقی بیافتد آیا option-bottonها مخفی شوند یا radio-optionخاصی روشن شود؟
لطف بفرمایید فایلی که ضمیمه کردم دانلود نمایید!
یک عدد چک باکس،3عدد آپشن باتن!یک عدد دکمه سیو!
وقتی چک باکس=چک شد و روی دکمه سیو کلیک شد :
چک باکس و آپشن 1 روشن شوند،مسیج باکس:آپشن 1روشن است!
اگر چک باکس روشن بود و آپشن 2 انتخاب شد=چک باکس و آپشن 2 روشن شوند،مسیج باکس:آپشن 2 روشن است!
برای چک باکس 3 هم همینطور!
ولی اگر پک باکس= آن چکد شد و روی دکمه سیو کلیک شد:
ابتدا هر سه آپشن را خاموش کند!سپس چک باکس را!و نهایتا یک مسیج باکس باز شود که هر سه آپشن خاموشن!
فایل زیر را دانلود کنید کاملا متوجه خواهید شد!
90607
دوست خوبمون خیلی کمک کردن تا برنامه به اینجا رسید!ولی مشکلی که داره(اگه قبلا آپشن 2یا3 رو انتخاب کرده باشی) وقتی آنچک میکنی و سیو رو میزنی:اول مسیج باکس آپشن دو یا سه رو میده بعد مسیج باکس پک باکس را!

[محسن واژدی]

ضمیمه را بررسی کنین

موفق باشید

[ashkan1234]

ضمیمه را بررسی کنین

موفق باشید
خدا بهت خیر بده داداش!
دستت درد نکنه!
لطف بزرگی کردی!
فقط این پر رویی را بر ما ببخش و مشکل بعدیم را هم حل کن!
تو همین فایل وقتی رو new کلیک میکنی و چند نفر رو تو دیتا بیس ذخیره میکنی،بعدش که با موس مثلا از گریدت شخص شماره 5 رو انتخاب میکنی و دکمه edit رو میزنی،میاد فقط اطلاعات شخص که در ابتدای لیسته رو ادیت میکنه!هر کدومو انتخاب کنی فقط شخص اول رو ادیت میکنه!
ممنون میشم این مشکلم رو هم حل کنی!ببخش پرویی کردم!

[محسن واژدی]

فقط این پر رویی را بر ما ببخش... خواهش میکنم

مجددا پست 18 را بررسی کنید، البته در سورس ویرایش شده هر دو مورد "ویرایش رکورد انتخابی" و "افزودن رکورد جدید" هردو در فرم NewPers تنظیم میشوند به عبارتی فرم EditPers اضافی هست (در اینصورت ویرایش کدها در زمان های بعد هم آسانتر میشود)

موفق باشید

[ashkan1234]

خواهش میکنم

مجددا پست 18 را بررسی کنید، البته در سورس ویرایش شده هر دو مورد "ویرایش رکورد انتخابی" و "افزودن رکورد جدید" هردو در فرم NewPers تنظیم میشوند به عبارتی فرم EditPers اضافی هست (در اینصورت ویرایش کدها در زمان های بعد هم آسانتر میشود)

موفق باشید
میخواستم یه همچین کاری بکنم!یعنی با استفاده از فرم edit اینکارو بکنم!چون قبلا در یک فرم انجام داده بودم و روشش رو بلد بودم!میخواستم ببینم اینجوری هم میشه!
ولی درسته حق با شماست!
اینجوری که شما میفرمایید کد نویسیم هم خیلی کمتر میشه!
طرز کد نویسیتون خیلی زیباست!
نشون دهنده نظم و حرفه ای بودنتونه!
مثلا من واسه ادیت توی یک فرمش هم خیلی بیشتر از شما کد نویسی کردم!
خیلی لطف کردید!ممنونم که وقت گرانبهاتونو واسه این حقیر گذاشتید!
Veteran گرامی از شما هم سپاس گذارم!
موفق و پیروز باشید!