▓ Microsoft Access سوالات، مشكلات و مباحث در اینجا ▓

[aak174]

ممنون دوست عزيز از توجه شما
ممنون ميشم اگر يه مقدار بيشتر برام توضيح بدين
مثلاً چطوري مي تونم كد داده شده شما رو در sql يك query وارد كنم
دوم آيا قابليت نمايش در گزارش رو هم داره
باز هم ممنون

سلام دوست عزيز
نمونه مثالي در آدرس زير برات گزاشتم دانلود كن .
بله در گزارش هم مي توني استفاده كني

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[taha_nadri]

تشکر خیلی عالی بود

[altavisa]

من تو اکسل دو شیت درست کردم که کار حساب های دفترمو توش می گذارم
جداول من
دفتر کل و دفتر روزانه
میخوام این دو پروژه رو تو اکسس بیارم البته وارد میشه ولی فرمول های (جمع ها یا ضرب ها یا .. ) از بین می ره و کار نمی کنه و چه طور این جداول رو به افراد متفاوت نسبت میدن یعنی هر نفر یک حساب

[mohammad hamed]

سلام
من می خوام یه فرم جمع آوری اطلاعات بسازم که توش گزینه ی میله ای باشه.یعنی مثلا یه منو باز بشه که چند تا گزینه تو شبتشه تا کاربر بتونه مثلا از 5 گزینهی یکی رو انتخاب کنه.چه جوری می تونم بسازم؟

[k.attarzadeh]

با سلام خدمت همه دوستان صمیمی و قدیمی و تشکر از زحمات قبلی که برای حل مسائل من داشتید...

من پیغام زیر را دریافت می کنم کسی می داند این error مربوط به چیست؟

The macro or function set to the BeforeUpdate or ValidationRule property for this field is preventing ''bankcd" from saving the data in the field

من در یک زیر برنامه recordsource را با یک table دیگر دلخواه (chart data) جایگزین می کنم که این error را دریافت می کنم و در آن زیر برنامه نه BeforeUpdate و نه ValidationRule دارم؟؟؟؟

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

[mohammad96]

با سلام خدمت همه دوستان صمیمی و قدیمی و تشکر از زحمات قبلی که برای حل مسائل من داشتید...

من پیغام زیر را دریافت می کنم کسی می داند این error مربوط به چیست؟

The macro or function set to the BeforeUpdate or ValidationRule property for this field is preventing ''bankcd" from saving the data in the field

من در یک زیر برنامه recordsource را با یک table دیگر دلخواه (chart data) جایگزین می کنم که این error را دریافت می کنم و در آن زیر برنامه نه BeforeUpdate و نه ValidationRule دارم؟؟؟؟

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

با سلام،

میشه یه نمونه بذاری؟

[sokote mordab]

سلام
نرم افزاری هست که بشه اکسس 2003 یا 2007 را به exe تبدیل کند؟

[k.attarzadeh]

دوست عزیز sokote mordab

چرا احتیاج داری که فایل را exe کنی؟ !

1) اگر فایل را می خواهی exe کنی تا کد ها نوشته شده شما را کسی به غیر از شما نتواند تغییر دهند

روش اول: ایجاد فایل accde. است (در office 2007) و ایجاد فایل mde. (در office 2003) است.
اگر نیاز داشتی از این روش استفاده کنی در (office 2007) می توانی بعد از باز کردن فایل اکسس خود به منو
database tools---->make accde بروی و فایل accde. ایجاد کنی.

روش دوم:فایل ( access ( 2003-2007 ات را باز کن بعد یکی از فرم های دلخواه( access ( 2003-2007 ات را باز کن بعد پنجره کد نویسی این فرم را باز کن سپس از منو:
tools ---> bank-cd ( your access project name ) properies
باز کن و از پنجره ظاهر شده قسمت protection انتخاب کن و از پنجره lock project for viewing انتخاب کن و بالاخره رمز خود را وارد کن(تمام)!!!!

اما

2) اگر می خواهی یک فایل اکسس یا هر فایل دلخواهی که داری را فشرده و exe کنی تا رمز عبور داشته باشد,من برنامه winzip پیشنهاد می کنم که ابتدا یک فایل zipx ایجاد می کنی (در مرحله اول) و بعد همین فایل را با برنامه exe ساز همین نرم افزار تبدیل به یک فایل exe می شود(مرحله دوم ).

[k.attarzadeh]

بار دیگر سلام به همه دوستان قدیمی و صمیمی.دوست عزیز mohammad 96 این کدی است که ایجاد خطا می کند:
(البته خطوطی که فونت خوانده نمی شود پیغام های فارسی هستند که موقع copy و paste به این شکل در آمده اند؟)

Private Sub correct_table_of_chart_data()
On Error GoTo Err_convert_Click

table_is = Me.RecordSource

Me.RecordSource = "chart_data"

'''MsgBox "Before Convert Pie Title" + Pie

If Not (Command_LAN.Caption = "ENGLISH") Then
Select Case Trim(Pie)
Case "äãæÏÇÑ ÏÇíÑå Çí ÝÚÇá ÊÑíä ˜ÊÇÈ ÝÇíá ÇãÇäÊ"
Pie = "Pie Chart of Activest Book in Lend file"
Case "äãæÏÇÑ ÏÇíÑå Çí ÝÚÇá ÊÑíä Óí Ïí ÝÇíá ÇãÇäÊ"
Pie = "Pie Chart of Activest Cd in Lend file"
Case "äãæÏÇÑ ÏÇíÑå Çí ˜ÊÇÈ åÇí ÇãÇäí ÇäÊÎÇÈí"
Pie = "Pie Chart of Selected Books in Lend file"
Case "äãæÏÇÑ ÏÇíÑå Çí Óí Ïí åÇí ÇãÇäí ÇäÊÎÇÈí"
Pie = "Pie Chart of Selected Cds in Lend file"
End Select
End If

If Command_LAN.Caption = "ENGLISH" Then
Select Case Trim(Pie)
Case "Pie Chart of Activest Book in Lend file"
Pie = "äãæÏÇÑ ÏÇíÑå Çí ÝÚÇá ÊÑíä ˜ÊÇÈ ÝÇíá ÇãÇäÊ"
Case "Pie Chart of Activest Cd in Lend file"
Pie = "äãæÏÇÑ ÏÇíÑå Çí ÝÚÇá ÊÑíä Óí Ïí ÝÇíá ÇãÇäÊ"
Case "Pie Chart of Selected Books in Lend file"
Pie = "äãæÏÇÑ ÏÇíÑå Çí ˜ÊÇÈ åÇí ÇãÇäí ÇäÊÎÇÈí"
Case "Pie Chart of Selected Cds in Lend file"
Pie = "äãæÏÇÑ ÏÇíÑå Çí Óí Ïí åÇí ÇãÇäí ÇäÊÎÇÈí"
Case "Pie Chart of Activest Members in Lend file"
Pie = "ãæÏÇÑ ÏÇíÑå Çí ÝÚÇá ÊÑíä ÇÚÖÇÁ ÝÇíá ÇãÇäÊ"
''''''Case Else
'''''''''''''''''''''''MsgBox "Nothing done for FARSI pie title"
End Select
End If

'''MsgBox "Afther Convert Pie Title" + Pie

'''MsgBox "Before Convert Bar Title" + Bar

If Not (Command_LAN.Caption = "ENGLISH") Then
Select Case Trim(Bar)
Case "äãæÏÇÑ ãíáå Çí ÝÚÇá ÊÑíä ÇÚÖÇÁ ÝÇíá ÇãÇäÊ"
Bar = "Bar Chart of Activest Members in Lend file"
Case "äãæÏÇÑ ãíáå Çí ÝÚÇá ÊÑíä ˜ÊÇÈ åÇí ÝÇíá ÇãÇäÊ"
Bar = "Bar Chart of Activest Books in Lend file"
Case "äãæÏÇÑ ãíáå Çí ÝÚÇá ÊÑíä Óí Ïí åÇí ÝÇíá ÇãÇäÊ"
Bar = "Bar Chart of Activest Cds in Lend file"
Case "äãæÏÇÑ ãíáå Çí ˜ÊÇÈ åÇí ÇãÇäí ÇäÊÎÇÈí"
Bar = "Bar Chart of Selected Books in Lend file"
Case "äãæÏÇÑ ãíáå Çí Óí Ïí åÇí ÇãÇäí ÇäÊÎÇÈí"
Bar = "Bar Chart of Selected Cds in Lend file"
''''''Case Else
''''''''''''''''''''''MsgBox "Nothing done for ENGLISH bar title"
End Select
End If

If Command_LAN.Caption = "ENGLISH" Then
Select Case Trim(Bar)
Case "Bar Chart of Activest Members in Lend file"
Bar = "äãæÏÇÑ ãíáå Çí ÝÚÇá ÊÑíä ÇÚÖÇÁ ÝÇíá ÇãÇäÊ"
Case "Bar Chart of Activest Books in Lend file"
Bar = "äãæÏÇÑ ãíáå Çí ÝÚÇá ÊÑíä ˜ÊÇÈ åÇí ÝÇíá ÇãÇäÊ"
Case "Bar Chart of Activest Cds in Lend file"
Bar = "äãæÏÇÑ ãíáå Çí ÝÚÇá ÊÑíä Óí Ïí åÇí ÝÇíá ÇãÇäÊ"
Case "Bar Chart of Selected Books in Lend file"
Bar = "äãæÏÇÑ ãíáå Çí ˜ÊÇÈ åÇí ÇãÇäí ÇäÊÎÇÈí"
Case "Bar Chart of Selected Cds in Lend file"
Bar = "äãæÏÇÑ ãíáå Çí Óí Ïí åÇí ÇãÇäí ÇäÊÎÇÈí"
''''''Case Else
'''''''''''''''''''''''''''MsgBox "Nothing done for FARSI bar title"
End Select
End If

'''MsgBox "Afther Convert Bar Title" + Bar

If Trim(other_txt) = "ÓÇíÑ" Then
other_txt = "Other"
Else
other_txt = "ÓÇíÑ"
End If

Me.RecordSource = table_is

Err_convert_Click:

If (Err.number = "2107") Or (Err.number = 0) Then
If Command_LAN.Caption = "ENGLISH" Then
'MsgBox " ÎØÇí ˜äÊÑá ÔÏå ", vbExclamation, "ÎØÇ"
Else
'MsgBox "The Controled error.", vbExclamation, "ERROR"
End If
Exit Sub
Else

If Command_LAN.Caption = "ENGLISH" Then
Q1 = " ÎØÇ ÔãÇÑå "
Q2 = Str(Err.number)
Q3 = " ÑÎ ÏÇÏå "
MsgBox Q1 + Q2 + Q3, vbExclamation, "ÎØÇí ÓíÓÊãí"
Else
MsgBox " Error number " + Str(Err.number) + " has happen ", vbExclamation, "System Error"
End If
End If

End Sub

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

[mohammad96]

سلام
نرم افزاری هست که بشه اکسس 2003 یا 2007 را به exe تبدیل کند؟

سلام،

بعد از نصب این برنامه:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

از مسیر : Office Button => Developer => Package Solution .