واضح آرشیو وب فارسی:سایت ریسک: t=37632">e.r.r.o.r.2 wahid 2003vj 15 شهريور 1384, 09:48با سلام خدمت تمام دوستان من توي VSIAL BASIC 6 يه برنامه نوشتم كه زمان اجراي يكي از فرم هاي اون با ژيغام خطاي زير روبرو ميشوم اگر كسي راه حلي دارد لطفا كمك كند با تشكر MnavidM 15 شهريور 1384, 11:26سلام. در کجای برنامه این طوری میشه . کد اون فرم رو بزار . موفق باشی. نوید. wahid 2003vj 19 شهريور 1384, 10:50با سلام من دارم یه برنلمه واسه یه ویدئو کلوپ مینویسم .این برنامه از چند تا فرم داره.زمانی که یکی از این فرم ها رو انتخاب میکنم تا به قسمت مورد نظر برم این خطا اتفاق میافته و فرم مورد نظر اصلان نمایش داده نمیشه.توی حالت debug رو یه خط از برنامه که مربوط به یه module که نوشتم Higlight میکنه البته هر کاری کردم نفهمیدم چرا خطا میگیره کد های مربوط به اون فرم رو میذارم Private Sub ControlsTagLoad(pRecordset As ADODB.Recordset) Dim oCtrl As Control If pRecordset.EOF Or pRecordset.BOF Then For Each oCtrl In Me.Controls If TypeOf oCtrl Is TextBox Then oCtrl.Tag = "" ElseIf TypeOf oCtrl Is CheckBox Then oCtrl.Tag = vbUnchecked End If Next Else For Each oCtrl In Me.Controls If TypeOf oCtrl Is TextBox Then خطا خطا """"oCtrl.Tag = Field 2Str(pRecordset(oCtrl.DataField).Value)""""خطا خطا ElseIf TypeOf oCtrl Is CheckBox Then oCtrl.Tag = Field 2CheckBox(pRecordset(oCtrl.DataField).Value) End If Next End If End Sub ماژول مورد نظر Public Function Field 2Str(vntField As Variant) As String If IsNull(vntField) Then Field 2Str = "" Else Field 2Str = CStr(vntField) End If End Function Public Function Field 2CheckBox(vntField As Variant) As Integer If IsNull(vntField) Then Field 2CheckBox = vbUnchecked Else Field 2CheckBox = IIf(vntField, vbChecked, vbUnchecked) End If End Function امیدوارم که توضیحات کامل باشه wahid 2003vj 20 شهريور 1384, 09:55بابا یکی جواب بده اینwetern کجاست؟ این mikhak کو؟ یکی جواب ما رو بده Mikhak 21 شهريور 1384, 09:03اگه حجم برنامهت كمه واسم بفرست تا نگا كنم -------------------------- سينا wahid 2003vj 21 شهريور 1384, 16:38سلام باشه میفرستم به sina_bahal1985 Mikhak 22 شهريور 1384, 08:[email protected] ----------- سينا wahid 2003vj 28 شهريور 1384, 08:22چی شد میخک جان من منتظرم wahid 2003vj 02 مهر 1384, 18:21سلام میخک جان چی شد؟
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 1157]