خواهشا اگه میتونید جواب سوالم را بدید ! برنامه ام گیره این سوال است(بانک اطلاعاتی با تکست دایکومنت)

[mahdi.fa]

من اطلاعاتم را با بانک اطلاعاتی تکست دایکومنت ذخیره می کنم اطلاعات داخل یک تکست باکس که داخل تکست دایکومن ذخیره میشود حدود 10 به بالا است من در ذخیره کردن انها مشکلی ندارم ولی در بازگرداندن انها داخل همان صفحه نمی تونم همه ی انهار برگردونم و فقط می تونم نهایتا 30 سطر از ان را داخل تکست باکس نمایش بدهد هنگام جستوجو
این هم دستور جستوجواست

fil = MainForm.Text19.Text & ".txt"
If Dir(App.Path + "\maghale\" &MainForm.Text19.Text & ".txt") = fil Then
Open App.Path + "\maghale\" &MainForm.Text19.Text & ".txt" For Input As #1
Input #1, aa
Close #1
Text1.Text = aa
End If

[karimkpg]

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




fil = text1.Text & ".txt"
Text1.Text = ""
If Dir(App.Path + "\maghale\" & MainForm.Text19.Text & ".txt") = fil Then
Open App.Path + "\maghale\" & MainForm.Text19.Text & ".txt" For Input As #1
While Not EOF(1)
Input #1, aa
Text1.Text = Text1.Text & aa
Wend
Close #1
End If