Listing forms in table vba

[MarcoPolo]

Hello,
I want to last all new created forms in table "MyForms"
I am struggling with the folowing

By Example I already have 4 formnames in tblMytable
form1
form2
form3
form4

After adding several new forms in my database i want to add these new forms by vba code without deleting the excisting forms in the tblMytable?
The existing forms in the table may not beeing deleted for not loosing additional information in another field.

Thanks.

[Bob Fitz]

Just curious. Why would you want/need a table for the form names.

[MarcoPolo]

Hello Bob, Thanks for your supply..
I am programming databases for a long time,
Considering a database with quite a lot of forms, this database needs to be adjusted to a bilingual database Dutch and English.
The table with the form names and information is for the follow-up which forms have already been processed and additional information.
Marc Vermeersch.

[Welshgasman]

I would walk the system file MsysObjects and look for the Form type value.
I am not at my computer at the moment, but a quick Google should give you what you want, along with Reports/Queries etc?

[CJ_London]

Since to do something like making a form bilingual will involve modifying the underlying module - and presumably there will be common functions or calls (or include a comment) have you considered looping through the module collection or allforms to find the function name or comment?

[MarcoPolo]

Thanks for your reply,
The translation of the forms labels and buttons already works perfectly.
Only my question is to make a list of the forms in a table

After adding several new forms in my database i want to add these new forms by vba code without deleting the excisting list of forms in the tblMytable?
The existing forms in the table may not beeing deleted for not loosing additional information in another field.

[CJ_London]

I guess I don't understand - what is wrong with using an append query? Or is the question about trying to identify new forms?

[Welshgasman]

Thanks for your reply,
The translation of the forms labels and buttons already works perfectly.
Only my question is to make a list of the forms in a table

After adding several new forms in my database i want to add these new forms by vba code without deleting the excisting list of forms in the tblMytable?
The existing forms in the table may not beeing deleted for not loosing additional information in another field.

So a simple DCount() would determine whether you add a form or not?

[MarcoPolo]

Its to appending the new formnames in the table

By Example I already have 4 formnames in tblMytable

tblMytable
FORMNAMES | Done | Information |
form1
form2
form3
form4


I'm getting the formnames see code below

For Each frm In CurrentProject.AllForms
Debug.Print frm.Name

I need to add the new forms in tblMytable without deleting data in tblMytable
so i need to append the formnames that is not present in the list.

[Welshgasman]

And the question is?

You would use a INSERT query statement.

[CJ_London]

Not clear why you need two tables (MyForms and tblMyTable) or since you have two tables you are concerned about deleting the existing forms in tblMytable when you are adding new forms to MyForms but based on the info provided in post #1 perhaps

INSERT INTO MyForms ( frmName )
SELECT frms.Name
FROM (SELECT Name
FROM msysobjects
WHERE Type=-32768)  AS frms LEFT JOIN tblMytable ON frms.Name = tblMytable.formName
WHERE tblMytable.formName Is Null

You can easily convert the sql to be executed in vba

[MarcoPolo]

some help for vba code to fill the list in the table
insert querry or code dao

[MarcoPolo]

Thanks,
Seems to approach my question,
I have only 1 table "tblMytable" to fill the missing formnames FROM msysobjects

[Welshgasman]

Not clear why you need two tables (MyForms and tblMyTable) or since you have two tables you are concerned about deleting the existing forms in tblMytable when you are adding new forms to MyForms but based on the info provided in post #1 perhaps

INSERT INTO MyForms ( frmName )
SELECT frms.Name
FROM (SELECT Name
FROM msysobjects
WHERE Type=-32768)  AS frms LEFT JOIN tblMytable ON frms.Name = tblMytable.formName
WHERE tblMytable.formName Is Null

You can easily convert the sql to be executed in vba

Is there any need?, you could just execute that as a saved query?

[MarcoPolo]

Hello,
I just has test the insert query, and this work perfect.
Many thanks..