کمک در دیتا ریپورت

[jaber]

هر چه زود تر ممنون مي شم

[Soheilvb]

سلام توي رفرش DataEnvironment دچار مشكل شدم هر چه سريعتر نتيجه رو مي ذارم.

[jaber]

mr30

[jaber]

انگار نمی خوای بذاری سهیل جان

انگار من سر کارم

[jaber]

سهیل جان منو مسخره گرفته مگه من حلاف تو ام اگه نمی خوای بذارب بگو دیگه

[Soheilvb]

سلام
خسته نباشي.الان فكر كن ما تو فصل امتحانات هستيم.من فقط روزي كه امتحان مي دهم 1 ساعت مي رم سر كامپيوتر وقتي گفتم مي دم رفتم سرش ولي همينطوري كه گفتم توي رفرش مشكل دارم.حالا شما قضاوت كن مي شه.
وسط امتحانات كه نمي شه عزيز
ببخشيد
باي

[jaber]

حق با شماست ولی زود تر ممنون می شم :(

[mahsa-h]

سلام دوست عزیز
اینم جواب جواب سوال شما
dataenvironment1.cnn1.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=m.mdb"
dataenvironment1.rscmd1.Open "select * from m where sahebhesab='" & Trim(mah) & "'", dataenvironment1.cnn1, adOpenStatic
datareport1.Show

[jaber]

اینو باید کجا بنویسم اگه مبشه با سورس بدین ممنون می شم

در ضمن یک  نگاهی به گفتگو ها بندازید بعد مثلا صفحه اول تاپیک

من با sql نمی خوام باشه

adodc1 و table هم باشه

[Soheilvb]

عزيز با اين كار مي شه.شما باز كردي و بستي . ولي ايشون مي خوان يه چند تا پر كنند چاپ كنه شما نتيجه يك جستجو رو نشون مي دي
مرسي
باي

[jaber]

آره من نتیجه یک جستجو می خوام نه چیز دیگه جستجو که کردم بعد یک

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

Private Sub Command3_Click()
If Text2 = "" Then GoTo 2
If Adodc1.Recordset.EOF = True Then
GoTo 2
Else
Adodc1.Recordset.MoveFirst
3 If Adodc1.Recordset.EOF = True Then
GoTo 2
Else
If Adodc1.Recordset.Fields(1).Value = Text2 Then
Text1 = Adodc1.Recordset.Fields(0).Value
Text2 = Adodc1.Recordset.Fields(1).Value
Text3 = Adodc1.Recordset.Fields(2).Value
Text4 = Adodc1.Recordset.Fields(3).Value
Else
Adodc1.Recordset.MoveNext
GoTo 3
End If
End If
End If
2 End Sub

از چیز دیگه هم بلد نیستم بهتره از همین روش باشه
جشتجو که کرد بعد یک کلید بزارم روش که زدیم گزارش بگیره