نوشته شده توسط
Mahsa Hatefi
دوست عزیز
باید در رویداد آفترآپدیت کومبو یک سلکت کیس یا شرط بنویسی که اگر مقدار کمبو مساوی فلان سپس فلان اپلیکیشن باز شود ، اگر بمان سپس بمان اپلیکیشن باز شود و الی آخر
برای اینکه بدونی چطوری اپلیکیشن ها رو فراخونی کنی از کدهای ویزارد مربوط به کامندباتن استفاده کن
موفق باشید
سلام، مرسی از لطفتون که اینقدر سریع جواب دادید. من این روش رو رفتم اما مشکلی که هست هر مقداری رو که کمبو باکس انتخاب می کنم فقط فایل خط اول رو بهم نشون میده (یعنی فایل 199_5-009.pdf) ممنون میشم راهنمایی کنید.
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