Printable View
با سلام و تشکر از دوستان عزیز که دفعات قبلی من را یاری کردند بار دیگر از شما دوستان مهربان تقاضا دارم این دوست کوچک خود را یاری دهید.
برای نوشتن یک برنامه احتیاج دارم که جواب این سوال را به تفکیک برای ( access 2003 و access 2007 )
بدانم اگر کسی جواب پیدا کرد لطفا" کد برنامه را به صورت جداگانه برای این سوال من بنویسد ممنون می شوم.
چگونه می توان فقط نام پوشه هایی که در ریشه اصلی (root) سی دی درایو است را لیست کرد؟
قبلا از توجهی که خواهید کرد کمال تشکر را دارم.
سلام من می خواهم فایل محافظت در اکسس 2007 بسازم و برای فایلم گروه کاری تعریف کنم لطفا راهنمایی کنید بسیار ممنون می شم.
با سلام خدمت دوستان گرامی و همراه هان صمیمی.
من موفق شدم کد مربوط به (office 2003 ) نمایش پوشه های ریشه اصلی(root) سی دی درایو را بصورت زیر بنویسم اما هنوز کد 2007 را نتوانستم بنویسم!!! متنظر کد 2007 هستم؟
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d In dc
Select Case d.DriveType
Case 0: t = "Unknown"
Case 1: t = "Removable"
Case 2: t = "Fixed"
Case 3: t = "Network"
Case 4: t = "CD-ROM"
Case 5: t = "RAM Disk"
End Select
If d.DriveType = 4 Then
Set zf = fs.GetFolder(d)
Set zfc = zf.SubFolders
z = 0
For Each zf1 In zfc
zs = zs & zf1.name
List_cd_folder.AddItem zf1.name
zs = zs & vbCrLf
z = z + 1
Next
s = s & d.DriveLetter & " :\ " & t & vbCrLf & zs
s = s & vbCrLf
End If
Next
If z = 0 Then
MsgBox "There is not any folder in this cd!", vbInformation, "Message"
else
Msgbox s
End If
سلام به همگی و خسته نباشید
راستش با یه مشکل توی اکسس برخوردم که می خواستم ببینم کسی اگر می تونه یه کمکی بکنه ممنون میشم
از قراری می خواهم یک دیتابیس از یک سری آمار شهرستانها که توی یک table جمعیت مساحت به صورت 3 تا فیلد این جدول هستند قرار دادم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
و می خواستم توی یک کوئری 4 تا تکسباکس قرار بدم که دو تا از آنها مربوط به مساحت و دوتا مربوط به جمعیت وبرای جستجو در بین اطلااعات table به این صورت عمل شود که چنانکه کاربر دکمه جستجو را فشار دهد شهرستانهایی رو که بین دو مساحتی که کاربر در آن دو تکس باکس قرارداده و همچنین بین دو مساحت قرار دارد مشاهده کند یعنی مثلا شهرهایی رو که جمعیتشون و مساحتشون به ترتیب بین بازه های (10000 تا 20000 برای جمعیت) و (125469 مترمربع تا 2256555 مترمربع) هست رو در یک صفحه نمایش بدهد که برای این کار کاربر در تکس باک مربوط به ماکزیمم جمعیت عدد 20000 و در تکس باکس مربوط به مینیمم جمعیت عدد 10000 و همینطور برای جمعیت در دو تکس باکس باقی مانده اعداد مربوطه را وارد کند و سپس کلید جستجو را بزند و شهرهای مورد نظر همراه با جمعیت و مساحت بیاید
راستش خودم تونستم یه کارایی بکنم ولی برای اینکه کاربر بخواهد بازه مساحت و جمعیت رو وارد کند 4 با یک ویندوز کوچیک میاد و ازش می پرسه و بعد شهرستانها رو نمایش می دهد که اینجور جالب نیست و می خواستم ببینم اگه کسی می تونه راهنماییم کنه ببینم چطور می شه که مثلا مثل زیر باشه:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] ممنون و تشکر
باسلام
من در يك فرم جداگانه تقويم شمسي نوشتم كه خروجييش را در متغير عمومي ذخيره مي كند ودر فرم ديگري مي توان از اين متغير استفاده كرد . حالا سوال اينجاست كه وقتي مي خواهيم فرم تقويم را اجراكنيم نمي خواهيم دستورات بعد از بازكردن فرم تا زمانی كه فرم تقویم بسته نشده اجرا شود .
چكار بايد كرد . يا راه حل چيست
Public a As Integer
Private Sub cmdCalendar_Click()
aa = ""
DoCmd.OpenForm "calendar", acNormal
txt1 = aa
End Sub
با سلام
تو می تونی از List Box استفاده كنی و SQL مربوط به هر قسمت رو در RowSource لیست باكس قرار بدی بعد با استفاده از ListBox.Column پارامتر را خوانده و در هر جایی كه می خواهی قرار بدهی .
با عرض سلام خدمت دوستان و اساتيد گرامي
سوالي من داشتم ممنون ميشم اگر كسي جواب سوالات رو ميدونه منو هم راهنمايي كنه
چطور ميشه دوتا فيلد از نوع عددي رو با هم جمع كردو حاصل را در فيلد ديگري نمايش بده
دوم اينكه در زمان طراحي فرم چطوري ميشه اعداد رو سه رقم سه رقم از هم جدا كنه
مثل
123,456,789
با تشكر از شما دوستان
من با 2007 اش یه فرم درست کردم !! حالا وقتی میخوام که یه فیلد به فرم اضافه کنم بعد از اضافه کردن بقیه رو نمیشناسه !!! بغلش علامت تعجب می زاره !!!!
کمک کنید!!!
taha_nadri سلام دوست عزيز پرسيده بودينقل قول:
(چطور ميشه دوتا فيلد از نوع عددي رو با هم جمع كردو حاصل را در فيلد ديگري نمايش بده
دوم اينكه در زمان طراحي فرم چطوري ميشه اعداد رو سه رقم سه رقم از هم جدا كنه
مثل 123,456,789 )
مي توني جهت جمع كردن از Query استفاده كني
به فرض اينكه نام جدول Table1 و نام دوفيلد عددي جدول Number1, Number2
يك Query ايجاد كن و در SQL كد زير را وارد كن
SELECT Number1, Number2, [Number1]+[Number2] FROM Table1;
دوم اينكه جهت جداسازي سه رقم سه رقم
در قسمت Format فيلد Standard را درج كن تا مشكلت حل شود
سلامنقل قول:
شما مي توني از لينك زير مثال زير رو در يافت كني.
رمز عبور : aak
کد:http://up.--------.ir/5/1261585760.zip
ممنون دوست عزيز از توجه شمانقل قول:
ممنون ميشم اگر يه مقدار بيشتر برام توضيح بدين
مثلاً چطوري مي تونم كد داده شده شما رو در 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:
سلام،نقل قول:
بعد از نصب این برنامه:
از مسیر : Office Button => Developer => Package Solution .کد:http://www.microsoft.com/downloads/details.aspx?familyid=d96a8358-ece4-4bee-a844-f81856dceb67&displaylang=en
نقل قول:سلام،نقل قول:
البته منظور من از نمونه یه دیتابیس نمونه بود که بشه راحت تر باهاش کار کرد، اما سوالی که پیش میاد اینه که چرا شما ضرورت دیدی که RecordSource رو عوض کنی؟ از این که بگذریم، هر وقت RecordSource فرم بازی رو عوض کنیم، عمل Requery بطور خودکار در داده های پایه فرم ( در اینجا chart_data ) انجام میشه. حالا احتمال داره شما در جدول chart_data یک ValidationRule داشته باشی. دیگه اینکه اجرای برنامه در کدوم خط متوقف میشه؟
باز هم اگه بشه قسمت مساله داره دیتابیس رو بذاری تو یه دیتابیس نمونه خیلی بهتره.
با سپاس!
سلام خدمت تمامی دوستان گرامی و عزیز
1) محمد جان اجرای برنامه در خط "Me.RecordSource = "chart_data متوقف می شود.
2) در جدول chart_data هیج ValidationRule وجود ندارد؟؟؟
3) دیگر اینکه طبق قوانین انجمن من اجازه فایل پیوست کردن را ندارم چگونه نمونه فایل را برای شما بگذارم؟؟؟
با تشکر از همه دوستان گرم و صمیمی.
سلام،نقل قول:
شما می تونی فایل موردنظر رو در سایتهای اشتراک گذاری مثلیاکد:www.rapidshare.com
و ... که تعدادشون هم کم نیست، بذاری. بعد لینک اون فایل رو که این سایتها در اختیار میذارن رو در اینجا قرار بدی. فشرده سازی قبل از ارسال هم میتونه ایده خوبی باشه!کد:www.fileden.com
سلام
من توی اکسس به یک مشکل بر خوردم .جدول ها و فرم هام را ساختم می خوام بدونم چه جوری می شه یک صفحه ایجاد کرد که یک سری دکمه داشته باشه که با کلیک روی اون بشه رفت توی فرم مورد نظر برای ورود اطلاعات .خودم هر چی دنبال گشتم پیدا نکردم.ممنون می شم کمکم کنید.
دوست عزيز براي اين كار شما بعداز طراحي فرم مورد نظر مراحل زير را دنبال كنيد: 1- روي گزينه گوشه سمت راست بالا علامت آفيس كليك كنيد . 2- از پنجره بازشده در قسمت پايين وارد گزينه اكسس اوپشين بشيد. 3- اين پنجره دوقسمتي هستي در قسمت سمت چپ گزينه دوم سيورنتي ديتا بيس را انتخاب كنيد 4- از پنجره باز شده سمت راست سومين گزينه با عنوان ديسپلي فرم را انتخاب كنيداز كليد راديويي جلوي اين گزينه شما كليه فرم هايي را كه تنظيم كرديد رو خواهيد ديد. 5- با انتخاب فرم مورد نظر از اين ببعد هر موقع اين پروژه شما اجرا شود فرمي را كه درقسمت سيورنتي معرفي كرده ايد به نمايش درخواهد آمد. 6- موفق باشيد.نقل قول:
سلام
دوستان من باید آفیس 2003 و 2007 رو در کنار هم داشته باشم
ولی موقع اجرای یکی اون یکی دیگه با همچین پیغامی مواجه میشه و می خواد دوباره نصب بشه!
به نظر شما باید چکار کنم؟
البته اکسل براش این اتفاق نمی افته
ممنونمیشم راهنمایی بکنید
با تشکر
کد:http://up.--------.com/7/1263707893.jpg
بله توی اکسس اینجوریه! ولی برنامه قرار نیست که خودش رو دوباره کامل نصب کنه. چارش هم کمی صبره تا برنامه کارش رو تا انتها انجام بده.نقل قول:
یعنی هیچ راهی نداره؟نقل قول:
چون من روی لپ تاپ همین کار رو کردم ولی هیچ مشکلی ندارم
حتی تازگی ها 2010 رو هم به مجموعه اش اضافه کردم باز هم فایده نداره!
ای کاش یک راه براش پیدا می شد
سلام..
من میخوام توی اکسس یه query بنویسم که فیلدهایی که از یکماه پیش تا به حال آپدیت نشده اند رو نشون بده...
برای این کار از datediff باید استفاده کنم ؟ توی تابع datediff فاصله تاریخ حال و تاریخ مورد نظر رو چه جوری میشه تعیین کرد؟
راهنمایی می کنید؟
یه جایی خوندم (لینک زیر) که:نقل قول:
نصب SP1 برای آفیس : میتونه سرعت انتقال از یک ورژن به دیگری رو افزایش بده. و
نصب SP2 برای آفیس : میتونه این مشکل رو کلا حل کنه ! ( امتحانش هم نیمه مجانی)
بای!کد:http://stackoverflow.com/questions/152670/how-to-stop-the-access-2007-configuration-progress-when-switching-versions
ممنون ولی من همه جورش رو امتحان کردمنقل قول:
الان
2003 سرویس پک 3 رو دارم که آپدیت آپدیت هست.(چون میتونم آپدیت کنم)
2007 هم سرویس پک 2 هست و آپدیت آپدیت
2010 رو هم تازگی ها نصب کردم
ولی مشکل همچنان باقی هست
من به هر ضربی بود query مربوط به زمان رو نوشتم حالا یه مشکل دیگه دارم کمککککککککککک کنید...
توی فرم وقتی یه دکمه command می زارم که query رو اجرا کنه ارور زیر رو میده !! مال چی می تونه باشه؟
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ویرایش شد: یافتم .... با نام فیلد فارسی مشکل داره.... خودم سوال می کنم خودم پیدا می کنم خودم ویرایش می کنم ..... مرسی بچه ها......... lol
نقل قول:سلام،نقل قول:
خوبیش به همینه دیگه!!
راستی درباره سوال اولتون: واقعا فیلدهایی رو که میخواستی پیدا کردی؟ چه جوری؟ یعنی تاریخ ویرایش فیلدها رو از کجا استخراج کردی؟
با سپاس!
چگونه می توان شرط گذاشت که اگر عدد حاصل یک خانه منفی بود در یک خانه مورد نظر درج شود و اگر مثبت بود در خانه دیگر ممنوع اگر راهنمایی ام کنید ضروریست
سلام
دوستان من یک خواسته خیلی ساده دارم (به شکل دقت کنید:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
حالا من 45 کارمند دارم که شماره پرسنلیشون از 100 تا145 هست حال می خوام هروقت توی مستطیل کد پرسنلی طرف مقابل رو زدم نام و نام خانوادگیش توی مستطیل روبروش نمایش داده بشه
چه دستوری رو باید به کار ببرم
مثل vlookup اکسل ولی نمیدونم چطور!!!!!!
با تشکر
سلامنقل قول:
دوستان کسی نیست کمک کنه؟
با تشکر
سلام،نقل قول:
دستوری که باید اجرا بشه FindRecord هست. که میشه با ماکرو و یا کد اجرا بشه (دستورش توی کد VBA اینجوریه : DoCmd.FindRecord ) .
دوستان من یه مشکل برام پیش اومده
می خوام تو tabel1
ستون les1_1 رو ضرب در 2 کنم و ستون les2_1 رو + ضرب شده ستون les1_2 کنم و نتیجه رو تو ستون les1 بزارم چکار باید بکنم
دوست عزیز می تونی از Combo Box به جای نام خانوادگی استفاده کنی و اونو به فلید کد فرد ربط بدینقل قول: