استخراج Caption فرم ها با استفاده از نام موجود

[ARData]

در یک جدول نام فرم ها در یک فیلد ذخیره می باشد و چون برای استخراج اطلاعات Caption هر فرمی از فرمول Form_Frmx.Caption استفاده می شود ... بنابر این اگه اطلاعات فیلد من frmx باشد چطوری می تونم این کد رو اجرا کنم :
مثلا : متغیر FrmName رو برابر همون مقدار فیلد می کنیم :

dim frmname as string

frmname="form_" & dlookup("[fldfrmname]","tblforms")

msgbox frmname.caption

هر کاری می کنم جواب نمیگیرم !!!

[mazoolagh]

اینجا دو مشکل هست؛
اول اینکه کدتون از پایه نادرست هست چون string یک data type هست و نه object بنابراین فاقد property هست و بهمین دلیل frmname.caption معنی نداره.
شما باید یک آبجکت از نوع form تعریف کنین و بعد میتونین caption اون فرم رو بدست بیارین ولی مشکل بعدی اینجا بروز میکنه که وقتی اینکار میسر هست که فرم باز بشه (چه در حالت عادی چه در حالت طراحی).

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

FORMS(frmname).CAPTION

اما اگر باز نیست مجبورین بازش کنین و بعد از خوندن CAPTION دوباره ببندینش که چندان کار جالبی بنظر نمیاد! مگر اینکه در حالت HIDDEN باشه :

DIM frmname, frmcap AS STRING

frmname="...."

DOCMD.OPENFORM frmname,,,,ACHIDDEN

frmcap=FORMS(frmname).CAPTION

DOCMD.CLOSE ACFORM,frmname,ACSAVENO

[Abbas Amiri]

نام اشیای ایجاد شده و سیستمی اکسس در جدول MSysObjects نگهداری می شود
Dim fld As Field, rs As Recordset
Set rs = CurrentDb.OpenRecordset("MSysObjects")
Do While Not rs.EOF
If rs.Fields("Type") = -32768 Then
Debug.Print rs.Fields("Name")
End If
rs.MoveNext
Loop
Set rs = Nothing
End Sub

[ARData]

من نام فرم ها رو با کد زیر استخراج می کنم و در جدول مربوطه ذخیره می کنم و نمی خوام هیچ فرمی هم باز بشه تا کپشن اونو بردارم : کپشن فرم در حالت unload فرم مد نظر منه :

Private Sub Command16_Click()

On Error Resume Next

Dim DB As Database

Dim rst As Recordset

Dim obj1 As AccessObject

Set DB = CurrentDb

Set rst = DB.OpenRecordset(" select * from TblSysForms ")

rst.MoveFirst

           For Each obj1 In CurrentProject.AllForms

      rst.Edit

rst.Fields(1) = obj1.name

rst.Update

rst.MoveNext

Next obj1

End Sub

[Abbas Amiri]

کدی که نوشته اید تست کردم ، Error داشت . اولا باید جدول TblSysForms ایجاد کنیم بعد برای آپدیت کردن آن باید قبلا تعداد رکورد برابر تعداد فرمها داشته باشیم ویا اگر جدول خالی است AddNew. کنیم ،و درخط پنجم بجای AccessObject باید Object قراردهیم

[mazoolagh]

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

دوم:

نمی خوام هیچ فرمی هم باز بشه تا کپشن اونو بردارم : کپشن فرم در حالت unload فرم مد نظر منه

همونطور که گفتم پاسخ بطور مطلق منفی هست.