سلام من تازه واردم و می خواستم با اکسس و با استفاده از کمبو باکس و انتخاب داده های اون فایل مورد نظرم باز بشه مثلا با انتخاب عدد 1 از کمبو یک فایل ورد باز بشه لطفا سریعا کمکم کنید متشکرم
Printable View
سلام من تازه واردم و می خواستم با اکسس و با استفاده از کمبو باکس و انتخاب داده های اون فایل مورد نظرم باز بشه مثلا با انتخاب عدد 1 از کمبو یک فایل ورد باز بشه لطفا سریعا کمکم کنید متشکرم
دوست عزیز
باید در رویداد آفترآپدیت کومبو یک سلکت کیس یا شرط بنویسی که اگر مقدار کمبو مساوی فلان سپس فلان اپلیکیشن باز شود ، اگر بمان سپس بمان اپلیکیشن باز شود و الی آخر
برای اینکه بدونی چطوری اپلیکیشن ها رو فراخونی کنی از کدهای ویزارد مربوط به کامندباتن استفاده کن
موفق باشید
سلام، مرسی از لطفتون که اینقدر سریع جواب دادید. من این روش رو رفتم اما مشکلی که هست هر مقداری رو که کمبو باکس انتخاب می کنم فقط فایل خط اول رو بهم نشون میده (یعنی فایل 199_5-009.pdf) ممنون میشم راهنمایی کنید.نقل قول:
نوشته شده توسط Mahsa Hatefi
Private Sub Combo4_AfterUpdate()
Dim Combo4 As String
Select Case Combo4
Case Is = a
Combo4 = "D:\Program Files\Adobe\Acrobat 5.0\Acrobat\Acrobat.exe C:\Documents and Settings\user\My Documents\sme\199_5-009.pdf"
Call Shell(Combo4, 1)
Case Is = b
Combo4 = "D:\Program Files\Adobe\Acrobat 5.0\Acrobat\Acrobat.exe C:\Documents and Settings\user\My Documents\sme\1212_9A56.pdf"
Call Shell(Combo4, 1)
End Select
End Sub