PDA

View Full Version : سوال: میخوام یه برنامه با اکسس درست کنم چند تا سوال دارم لطفا راهنمایی کنید



samadblaj
شنبه 11 شهریور 1391, 22:13 عصر
سلام دوستان میخوام یه برنامه با استفاده از اکسس درست کنم.
پروژه هتل : یه فرم داشته باشه و بشه چند عمل اصلی مثل درج حذف ، جستجو و گزارش رو داشته باشه ...

سوالاتم :

1 - نیاز به برنامه رابط نیست یعنی میشه این پروژه رو فقط با اکسس طراحی کرد؟ :متفکر:
2 - میشه سورس شبیه به کارم برام بزارید ببینم باید چجور شروع کنم.

مرسی از راهنماییتون.

alitavakoli
شنبه 11 شهریور 1391, 22:23 عصر
بله به راحتی با ویزارد خود اکسس میشه اینکار رو انجام داد
نمونه کار (http://www.quackit.com/microsoft_access/tutorial/adding_data.cfm)(مراحل رو دنبال کنید)

و یا این نمونه (http://www.techonthenet.com/access/downloads/search2.zip)کار

samadblaj
شنبه 11 شهریور 1391, 22:57 عصر
بله به راحتی با ویزارد خود اکسس میشه اینکار رو انجام داد
نمونه کار(مراحل رو دنبال کنید)

و یا این نمونه کار

ممنونم آقای توکلی لینکت حرف نداشت خیلی زحمت کشیدی ، قبلا access کار کرده بودم فکر نمیکردم امکاناتش اینقدر گشترده شده باشه.
خیلی راحت بود ممنونم

alitavakoli
یک شنبه 12 شهریور 1391, 07:37 صبح
ممنونم آقای توکلی لینکت حرف نداشت خیلی زحمت کشیدی ، قبلا access کار کرده بودم فکر نمیکردم امکاناتش اینقدر گشترده شده باشه.
خیلی راحت بود ممنونم
خواهش میکنم دوست عزیز

sabbason
چهارشنبه 15 شهریور 1391, 13:22 عصر
سلام
سوال از دوستان عزيز
براي باز نشدن يك گزارش يا فرم يا كوئري در صورت خالي بودن فيلدها يا فيلدي چه بايد كرد.
با تشكر

samadblaj
چهارشنبه 15 شهریور 1391, 14:56 عصر
سلام
سوال از دوستان عزيز
براي باز نشدن يك گزارش يا فرم يا كوئري در صورت خالي بودن فيلدها يا فيلدي چه بايد كرد.
با تشكر

درود فکر کنم باید Macro بنویسی یا شرط بزارید توی Query Design میشه فیلتر کرد.

Abbas Amiri
چهارشنبه 15 شهریور 1391, 19:27 عصر
براي باز نشدن يك گزارش يا فرم يا كوئري در صورت خالي بودن فيلدها يا فيلدي چه بايد كرد.
برای فرم از رویداد Open آن استفاده کنید


Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
Cancel = True
MsgBox "هیچ داده ای یافت نشد"
End If
End Sub



وبرای گزارش از رویداد NoData


Private Sub Report_NoData(Cancel As Integer)
MsgBox "هیچ داده ای یافت نشد"
Cancel = True
End Sub