عدم نمایش آخرین رکورد جهت ورود اطلاعات جدید

[fatimah]

سلام
دوستان ، همون طور که می دونید وقتی یه سری رکورد توی یه فرمی داشته باشیم ، با حرکت روی اون ( منظورم زدن دکمه های next و ... هست ) وقتی به آخرین رکورد رسیدیم ، اگه یه بار دیگه دکمه ی next رو بزنیم می رسیم به رکورد خالی که آماده ی دریافت اطلاعات جدید هست . حتی اگه ما این اجازه رو به فرم ندیم که بشه ویرایشش کرد یعنی قابلیت ویرایش در اون رو حذف کرده باشیم .
حالا ، آیا راهی وجود داره که یا این رکوردآخری رو نشون نده یا اینکه اگه میده اجازه ی ورود اطلاعات رو نده ؟؟!!
ممنون ...

[mohsenna30ri]

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

[powerboy2988]

shoma mitoni az ye algoritm estefade koni.
onam inke agar be entehay recordet residi button Next ro az kar bendazi yani disablesh koni.
vasey inke in next dobare enable she dastoresho to button back bezar

jenabe mohsenna30ri shoma chijori ye form ro to access read only baz mikoni???????

[powerboy2988]

in codo mitoni to button next garar bedi

If Data1.Recordset.EOF Then
cmdnextrecordforosh.Enabled = False
End If
Data1.Recordset.MoveNext

in dastor aval check mikone mibine be ahkare record reside ya na.
agar reside bashe button next disable mishe
age nareside bashe karesho anjam mide

in 2ta code, maincode buttonhay back va next hastan




Private Sub cmdbackrecordforosh_Click()
If Data1.Recordset.BOF = True Then
cmdbackrecordforosh.Enabled = False
End If
Data1.Recordset.MovePrevious
cmdnextrecordforosh.Enabled = True

End Sub


Private Sub cmdnextrecordforosh_Click()
If Data1.Recordset.EOF Then
cmdnextrecordforosh.Enabled = False
End If
Data1.Recordset.MoveNext
cmdbackrecordforosh.Enabled = True

End Sub


ishala ke be dardet bokhore

[fatimah]

خیلی ممنونم

[fatimah]

سلام دوست عزیز
از راهنماییت ممنونم . ولی اینجا Data1 چه نقشی رو بزی می کنه ؟
فکر کنم این ، یک کنترل باشه که توی وی بی برای پیمایش بین رکوردها ازش استفاده می کردیم . ( ولی من اینجا این کنترل رو ندارم .

پس طبیعتا ازش ایراد میگیره )
راستی .. دوستمون که گفتن خاصیت read only رو فعال کنم من این خاصیت رو ندیدم ولی
به جاش خاصیتی به نام record locks رو پیدا کردم که یه همچین می کرد
و اون چیزی که من می خواستم هم بود ولی متاسفانه دیگه نتونستم برش گردونم . یعنی دیگه نتونستم بهش بفهمونم که اگه دکمه ی

insert رو زدم یه رکورد خالی بهم بده و اجازه ی ورود اطلاعات رو داشته باشم !!!!!!!!!

[powerboy2988]

age mitoni barnamato bede behem ye negahi behesh bendazam
rasto to yeki topic ham goftam man moshkele mouse wheeleto hal kardam
nemidonam chijori mishe ono to topic upload konam

[saalile@yahoo.com]

در دلفی هستی

[fatimah]

سلام
دوست عزیز برنامه ی من همونیه که تو تاپیک قبلی من دانلود کردین

[powerboy2988]

ahan
shoma mitoni bejay dastore ("data1") az ("me") estefade koni
ok?

[mohammadgij]

Private Sub cmdNext()
On Error GoTo Err_cmdNext


DoCmd.GoToRecord , , acNext

Exit_cmdNext:
Exit Sub

Err_cmdNext:
MsgBox "رکوردی وجود ندارد",vbInformation , "توجه"
Resume Exit_cmdNext

End Sub

[fatimah]

ok . تنکس دوست عزیز