دابل کلیک برای فایل آماده شده جستجوی سریع

[salambeshoma]

سلام دوستان میخوام وقتی تو فرم 1 لیست باکس روی رکوردی که پس از فیلتر کردن دابل کلیک کردم همون رکورد تو فرم agh باز شه ممنون

[amirkazem]

دوست عزیزابتدایک کوئری بسازیدکه درقسمت شرط آن مقدار(id)راازلیست 2که درفرم 1داریدبگیردسپس دررویدادلیست 2قسمت دابل کلیک کدزیرراکپی کنید.
ضمنافرم(agh)رابایدباندکنیدب� � کوئری ای که ساخته اید.
[
If List2 <> Empty Then 'If vVal is not "Empty" (it has a value) step into this if statment.

DoCmd.OpenForm "D-s-Eslah", acNormal, , strHolder 'And use it in the criteria of the open report meathod
Else 'If nothing was selected, run message.
MsgBox "شمابايدابتدارکوردي راازليست انتخاب نماييد", vbInformation, "No Item Selected"
Me.List2.SetFocus
End If
ExSub:
Exit Sub
ErrHandler:
MsgBox "Error Number: " & Err.Number & " - " & Err.Description, vbInformation, "Opps: ERROR!"
]

[salambeshoma]

ممنون حل شد اینم فایل اصلاحی درسته خیلی سادست شاید بدرد دوستان بخوره

[amirkazem]

چشم.
فایل اصلح شد.بفرمایید.

114375