فول اسکرین کردن فرم و استخراج نام جداول در

1-چه جوری می تونم مثل نمونه کار هایی که تو فروم هست صفحه رو فول اسکرین کنم؟
2-توی فرم یک کمبو باکس دارم که می خوام لیست TABLE ها رو توش داشته باشم ؟

1-

Private Sub Form_Load()

 DoCmd.Maximize

End Sub

()Private Sub Form_Open
DoCmd.Maximize
End Sub

دوست عزیز از عنوان متناسب با سئوالتون در عنوان استفاده نمائید.و هر سئوالتون رو در یه تاپیک جداگانه مطرح فرمائید.سئوال اول شما نیز قبلا پاسخ داده شده اول جستجو نموده سپس تاپیک ایجاد نمائید. باتشکر

برای سوال دوم فردا یک نمونه میذارم.

DoCmd.Maximize که بچه بازی من منظورم این بود که تمام صفحه مانیتور رو بگیره.
از شاپرک جان هم تشکر می کنم اگر می شه زودتر نمونه قرار بدن .
من گفتم دیگه چنتا تاپیک درست نکنم که کلی فضا اشغال کنه و شلوغ بشه.

شاپرک جان ممنونم . موقع باز شدن فرم یه دونه ارور میده و اگر یه table هم اضافه بشه توی لیست نمی آد. اگر ممکنه این مشکل رو توضیح بدید .

ولی من امتحان کردم درست عمل میکرد .
میشه دقیقا بگی چه Error ای ؟؟؟؟؟

با استفاده از این کد دیگر نیازی به ایجاد یک جدول جدید ندارید ضمنا در اکسس پروجکت هم جواب میده .

Private Sub Combo5_GotFocus()

Combo5.RowSource = ""

Dim obj As AccessObject, dbs As Object

Set dbs = Application.CurrentData

    For Each obj In dbs.AllTables

        If Not obj.name Like "Msys*" Then

        Combo5.RowSource = obj.name & ";" & Combo5.RowSource

        End If

    Next obj

End Sub

خالی نشون میده ....؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

من نتونستم بدون استفاده از جدول جواب بگیرم .
ولی با جدول و با استفاده از کد شما اینجوری شد :

شما باید Rowsource type رو به Value List تبدیل می کردین

نقل قول:

---

نوشته شده توسط سنبله کار

با استفاده از این کد دیگر نیازی به ایجاد یک جدول جدید ندارید ضمنا در اکسس پروجکت هم جواب میده .

Private Sub Combo5_GotFocus()

Combo5.RowSource = ""

Dim obj As AccessObject, dbs As Object

Set dbs = Application.CurrentData

    For Each obj In dbs.AllTables

        If Not obj.name Like "Msys*" Then

        Combo5.RowSource = obj.name & ";" & Combo5.RowSource

        End If

    Next obj

End Sub

---

در اکسس پروجکت شما میتونین از روی SQL تمامی اسامی table و کلا اشیای بانک اطلاعاتی رو استخراج کنین برا نمونه از کد زیر میتونین اسامی جداول رو استخراج کنین.

Select Name From SysObjects Where XType ='u'

استخراج نام اشیاءاز قبیل جداول ،فرمها و ..... چه کاربردی برای کاربر داره ؟
استخراج نام فیلدهای یه جدول چگونه می باشد ؟
فرض کنید در یه برنامه اطلاعات یه جدول به نحوی ممکن به یه جدول دیگه ملحق میشه
اگه یه جدول دیگه داشته باشیم که اسم فیلدهاش با جدول اول فرق داره و بخواهیم معادل فیلدهای اون رو به جدول دوم ملحق کنیم، چیکار کنیم

قابل توجه Moustafa