ممنون دوست عزيز از توجه شمانقل قول:
ممنون ميشم اگر يه مقدار بيشتر برام توضيح بدين
مثلاً چطوري مي تونم كد داده شده شما رو در sql يك query وارد كنم
دوم آيا قابليت نمايش در گزارش رو هم داره
باز هم ممنون
Printable View
ممنون دوست عزيز از توجه شمانقل قول:
ممنون ميشم اگر يه مقدار بيشتر برام توضيح بدين
مثلاً چطوري مي تونم كد داده شده شما رو در sql يك query وارد كنم
دوم آيا قابليت نمايش در گزارش رو هم داره
باز هم ممنون
سلام دوست عزيزنقل قول:
نمونه مثالي در آدرس زير برات گزاشتم دانلود كن .
بله در گزارش هم مي توني استفاده كني
کد:http://up.--------.ir/5/1261585760.zip
تشکر خیلی عالی بود
من تو اکسل دو شیت درست کردم که کار حساب های دفترمو توش می گذارم
جداول من
دفتر کل و دفتر روزانه
میخوام این دو پروژه رو تو اکسس بیارم البته وارد میشه ولی فرمول های (جمع ها یا ضرب ها یا .. ) از بین می ره و کار نمی کنه و چه طور این جداول رو به افراد متفاوت نسبت میدن یعنی هر نفر یک حساب
سلام
من می خوام یه فرم جمع آوری اطلاعات بسازم که توش گزینه ی میله ای باشه.یعنی مثلا یه منو باز بشه که چند تا گزینه تو شبتشه تا کاربر بتونه مثلا از 5 گزینهی یکی رو انتخاب کنه.چه جوری می تونم بسازم؟
با سلام خدمت همه دوستان صمیمی و قدیمی و تشکر از زحمات قبلی که برای حل مسائل من داشتید...
من پیغام زیر را دریافت می کنم کسی می داند این 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 دارم؟؟؟؟:18:
قبلا از همکاری و توجه که نسبت به مسئله من دارید تشکر می کنم و برای شما و دیگر دوستن آرزوی موفقیت دارم.
با سلام،نقل قول:
میشه یه نمونه بذاری؟
سلام
نرم افزاری هست که بشه اکسس 2003 یا 2007 را به exe تبدیل کند؟
دوست عزیز 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 می شود(مرحله دوم ). [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
بار دیگر سلام به همه دوستان قدیمی و صمیمی.دوست عزیز 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
باز هم از دقت و توجهی که نسبت به مشکل من خواهید داشت تشکر فراوان دارم.شاد و سلامت باشید.:20: