Recent content by alipayande

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

تو اون فرمی که به جای : text2.Text = Adodc1.Recordset(1).Value این رو عوض کردم: If IsNull(Adodc1.Recordset(1).Value) = False Then text2.Text = Adodc1.Recordset(1).Value Else text2.Text = "" End If ارور خطا وجود نداشتن پرونده رو می ده به گمونم کد زیر باید تصحیح بشه ولی...

سلام تو اون فرمی که به جای : text2.Text = Adodc1.Recordset(1).Value این رو عوض کردم: If IsNull(Adodc1.Recordset(1).Value) = False Then text2.Text = Adodc1.Recordset(1).Value Else text2.Text = "" End If ارور خطا وجود نداشتن پرونده رو می ده به گمونم کد زیر باید تصحیح...

موقیعت اون کد قبلی رو این خط هستش : Adodc3.Recordset.Fields(7).Value = ""

راستی اون کد رو تغییر دادم ولی ارور ران تایم زیر ر.و داد run-time eror '-2147217887(80040e21)': multiple-teo operation generated errors. check each status value.

آقا ممنون- این برنامه رو من ننوشتم یه بنده خدا 10 سال پیش نوشته من هیچی سر در نمی یارم چطور می شه این null را تبدیل به string کرد بازم ممنونم.

سلام من توی فرم دیگه باز با همون مشکل ربرو شدم همون ران تایم 94:cry: نمی دونم این چه بلایی سر ما اومده ممنونم که راهنماییم می کنید:rose: کد باگ Adodc3.Recordset.Fields(7).Value = CStr(Adodc1.Recordset.Fields(4).Value) کد اصلی فرم: Option Explicit Dim strreport As String, q...

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

سلام من تو این زمینه (وی بی) مبتدی هستم در ضمن تا دیروز درست کار می کرد یهو اینجوری شد:cry: کد ارور اینه Error 96 : Invalid use of Null من چک کردم کل رکوردهام حدود 8000 تا هست و رکورد های بالای 6000 رو پاک می کنم درست می شه در ضمن به این باگ میده text2.Text =...

سلام من یه مشکل با برنامم پیدا کردم ارور ران تایم94 میده برنامه با وی بی هستش کسی می تونه کمکم کنه:rose:!!!