Sub Form_Current()  bu subun içine   Dim ParentDocName As String ve  ParentDocName = Me.Parent.Name bunu eklemişsiniz lakin neden eklediniz.

Yani kod çalışınca bunlarla hiç işi olmuyor.
Kodu alttaki gibi kısalttım

AltForm adlarınıda değiştirdim AltKtgr2 gibi.

Sub Form_Current()



    On Error GoTo hata

    Me.Parent![AltKtgr2].Requery

    Exit Sub

hata:

    MsgBox Err.Description



End Sub

Üstad bir sorum daha olacak bilmem anlarmısın.

Bir tane Tablo adında tablo ekledim ve aa,bb,cc diye başlık yaptım.
Bunlarıda comboboxa çevirdim.

Giftede göreceğin gibi aa sütununa ne yazarsam bb sütununa onun bb deki karşılıkları gelmeli Sorgu1 den.Aynen exceldeki dolaylı veri doğrulama gibi.
Gifte aa ya bb  ye ve cc ye tüm veriler benzersiz geliyor.Gifte extra anlaşılması için Sql içine a ve aa yazarak verileri çağırdım sonucu gör diye.
Yani kısaca Tablo aa sütununa a yazarsam onu gidecek sorgu1deki aa sütunda bulacak ve bb sütunundakileri listeleyecek.

SELECT DISTINCT Sorgu1.bb FROM Sorgu1 WHERE Sorgu1.aa='a' ORDER BY Sorgu1.bb;

'a' burayı Tablo aa ya ne yazdıysam onu getirmeli.

Sorgu tasarımında koşulu aa sutunu altına yazıp görünmez yapıp bb sutununu görünür yaparsak sanırım istediğiniz olur

Yani aa mehmet olan bb sutunundaki soy isimleri görürüz

Benimde aklıma  sonradan gelmişti deneyeceğim birazdan.

Mükerrer olayı tablolardaki katagori1 için çalışıyor fakat kategori2 bb ve kategori3 cc için olmuyor neden?

aslında il ilçe mahalle gibi düşünürsek
bozkurt ilçesi hem denizlide hem kastamonuda var
ama denizlide sadece bir tane var
atatürk mahallesi her ilçede var ama bir ilçede sadece bir tane var
bu durumda 
aynı ilde aynı ilçede aynı mahalle bir kez var
ilid ilçeid aynı ise o zaman mahalle benzersiz olur