کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

باز کردن فرم بر اساس شرط خاص Open Form Using Where Condition

"'DoCmd.OpenForm "Employees", , ,"LastName = 'King


فرم Employee رو باز میکنه و رکوردهائی را نمایش میدهد که  LastName آن برابر King باشد دقت شود چون ولیوی آن نامبر نیست داخل تک کوتیشن یا بین '  '  گذاشته شده اگربجای LastName از آیدی یا کد پرسنلی استفاده شود قسمت آخر باید 
"ID=10" باشد اگر 10 عددی نباشد  باید   "'ID='10"  نوشته شود 

نمونه ی زیرین  دررویداد کلیک باتن  cmdShowOrders که  frmOrder را باز میکند و آنهائی را نمایش میدهد که کاستمرآیدی  آنها برابر کاستمرآیدی در فرم جاری ( Me  ) باشد و کاستمرآیدی در جدول Number است 

()Private Sub cmdShowOrders_Click
If Not Me.NewRecord Then
_ ,"DoCmd.OpenForm "frmOrder WhereCondition:="CustomerID=" & Me.txtCustomerID End If End Sub
نظرات 0 + ارسال نظر
برای نمایش آواتار خود در این وبلاگ در سایت Gravatar.com ثبت نام کنید. (راهنما)
ایمیل شما بعد از ثبت نمایش داده نخواهد شد