[pakos]

την καλησπερα μου στα μελη

Ερωτηματα συνδεδεμενα οπως οι πινακες γιοκ

Απλα μπορεις να κανεις το εξης

Α) μεταφορα ερωτηματος απο αλλο αρχειο
DoCmd.DeleteObject acQuery, "Allo" ονομα ερωτηματος π.χ. Allo
DoCmd.TransferDatabase acImport, "Microsoft Access", "C:\ααα\αα\εε\multi.accdb", acQuery, "Allo", "Allo", False

================================================== ==========================================

Β)μεταφορα ερωτηματος προς το αλλο αρχειο
Dim Dbase As Database
Set Dbase = OpenDatabase("C:\ααα\αα\εε\multΑΒ.accdb")
Dbase.QueryDefs.Delete ("klose") ονομα ερωτηματος π.χ. klose
DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\ααα\αα\εε\multΑΒ.accdb", acQuery, "klose", "klose", False

Σε εμενα δουλεψε Access 2019
Δοκιμασε το πριν το ενταξεις στο προγραμμα σου