کسی میتونه باگ این برنامه رو بگیره (جایزه تون هم همین سورسه)

سلام دوستان
من یه سورس دارم و میخوام با تغییراتی از اون استفاده کنم ولی یه ایرادی توش پیدا کردم و میخواستم اگر امکان داره کمکم کنید . این برنامه یه آدرس بوکه برای اینکه بهتر متوجه منظورم بشید من اسم چهار نفر رو توی اون وارد کردم . حالا برنامه رو اجرا کنید از منوی cantacts روی گذینه Edit My Contact کلیک کنید در پنجره باز شده روی اسم mehdi کلیک کنید حالا این contact رو ادیت کنید مثلا یه آدرس ایمیل بهش اضافه کنید ( اسم mehdi رو تغییر ندید ) و روی save کلیک کنید حالا تو پنجره اصلی به لیست باکس نگاه کنید اسم ali حذف شده و اسم mehdi دو بار تکرار شده مشکل از کجاست ؟
لينك دانلود : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اين برنامه در پوزيشن داده ايراد داشت شما بايد داده راخودتان پيدا کرده وان را به برنامه تحويل دهيد
آقا اصلا يک
Email Address:
بده برات بفرستم
يه چيز ديکه اگه ميگفتي جايزه ندارين از اين بهتر بود
EEart

اول يك TEXTBOXروي فرم frmEditMyContactsايجاد كن به نام TEXT1بعدش خط زير را توي List1_Click()كپي كن
frmEditThisContact.Text1.Text = rs("id")
بعدش تو فرم frmEditThisContactاين خطها رو جايگزين كليك SAVEكن
If txtname.Text = vbNullString Then
MsgBox "You must fill the name box!", vbExclamation, "Warning"
Exit Sub
End If
If txtnationality.Text = vbNullString Then
txtnationality.Text = "None"
End If
If txtcountry.Text = vbNullString Then
txtcountry.Text = "None"
End If
If txtcity.Text = vbNullString Then
txtcity.Text = "None"
End If
If txtbirthday.Text = vbNullString Then
txtbirthday.Text = "None"
End If
If txtaddress.Text = vbNullString Then
txtaddress.Text = "None"
End If
If txtphonenumber.Text = vbNullString Then
txtphonenumber.Text = "None"
End If
If txtmobile.Text = vbNullString Then
txtmobile.Text = "None"
End If
If txtfax.Text = vbNullString Then
txtfax.Text = "None"
End If
If txtemail.Text = vbNullString Then
txtemail.Text = "None"
End If
If txtwebsite.Text = vbNullString Then
txtwebsite.Text = "None"
End If
If txtcompany.Text = vbNullString Then
txtcompany.Text = "None"
End If
If txtcomment.Text = vbNullString Then
txtcomment.Text = "None"
End If

Dim db As Database
Dim rs As Recordset
Dim WS As Workspace
Dim Max As Long

Set WS = DBEngine.Workspaces(0)
DbFile = (App.Path & "\Database\AddressBook.mdb")
PwdString = "swordfish"
Set db = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString)
Set rs = db.OpenRecordset("Addresses", dbOpenTable)
For II = 1 To rs.RecordCount
If rs("id") = Text1.Text Then
rs.Edit
rs("FullName") = txtname.Text
rs("Nationality") = txtnationality.Text
rs("Birthday") = txtbirthday.Text
rs("Country") = txtcountry.Text
rs("City") = txtcity.Text
rs("Address") = txtaddress.Text
rs("PhoneNumber") = txtphonenumber.Text
rs("Mobile") = txtmobile.Text
rs("Fax") = txtfax.Text
rs("E-Mail") = txtemail.Text
rs("WebSite") = txtwebsite.Text
rs("Company") = txtcompany.Text
rs("LittleComment") = txtcomment.Text
rs.Update
Else
rs.MoveNext
End If

Next II

Max = rs.RecordCount
frmMain.lblTotalContacts.Caption = Max
If rs.RecordCount = 0 Then
Exit Sub
Else
rs.MoveFirst

frmMain.List1.Clear

For i = 1 To Max
frmMain.List1.AddItem rs!FullName
rs.MoveNext
Next i
frmMain.List1.ListIndex = 0
End If

Unload Me

اگه متوجه نشدي دوباره بنويسم

حيف وقتي كه گذاشتم

نقل قول:

---

نوشته شده توسط nhkARAMI

حيف وقتي كه گذاشتم

---

nhkARAMI عزيز چون همزمان داشتم روي چنتا سورس كار ميكردم بعد از چند روز كه جوابي نگرفتم اين برنامه رو فراموش كرده بودم تا اينكه امروز وقتي ساعت 3:10 كانكت شدم اين پست رو ديدم يه دفه ياد برنامه افتادم و خيلي
خوشحال شدم از اينكه يه نفر جوابم رو داد همينطور كه با خوشحالي داشتم اسكرول رو پايين ميبوردم و به كد شما نگاه ميكردم يه دفه چشم خورد به پست آخرتان خيلي خجالت كشيدم وشرمنده شدم . اين سايت به افرادي مثل شما كه انقدر توجه داريد و براي كمك به ديگران زحمت مي كشيد نياز داره . الان هم دارم ميرم كد رو تست كنم . بازهم ممنونم :happy:

سلام

اولا كه بهترين راه براي بر طرف كردن باگ اينه كه
خود برنامه نويس اونو ديباگ كنه ثانيا جايزتون به درد
خودتون ميخوره. :puke: