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

[hamedinho]

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

[شاپرک]

1-


Private Sub Form_Load()
DoCmd.Maximize
End Sub

[hedieh_rt]

()Private Sub Form_Open
DoCmd.Maximize
End Sub

[sarami]

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

[شاپرک]

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

[hamedinho]

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

[hamedinho]

شاپرک جان ممنونم . موقع باز شدن فرم یه دونه ارور میده و اگر یه 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 تبدیل می کردین

[sarami]

با استفاده از این کد دیگر نیازی به ایجاد یک جدول جدید ندارید ضمنا در اکسس پروجکت هم جواب میده .
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]

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

[شاپرک]

قابل توجه Moustafa