Hocam çok teşekkür ederim istediğim gibi olmuş fakat tablo seçmeden istediğimiz veritabanını seçtikten sonra değiştir dediğime değiştirmek istediğim tabloları otomatik değiştirsin istiyorum önceki hazırladığınız mdb içerisinden ben düzenlemiştim istediğim tabloları komut butonun içeriğini aşağıdaki şekilde değitirdim gerekli tabloları tek işlemle değitiriyor

Private Sub Komut6_Click()
DoCmd.RunSQL "UPDATE Analiz SET Analiz.DersSiraNo = [Metin2] WHERE (((Analiz.DersSiraNo)=[Metin0]));"
MsgBox ("Analiz Tablosu Düzeltildi")
DoCmd.RunSQL "UPDATE Dersler SET Dersler.SiraNo = [Metin2] WHERE (((Dersler.SiraNo)=[Metin0]));"
MsgBox ("Dersler Tablosu Düzeltildi")
DoCmd.RunSQL "UPDATE Notlar SET Notlar.SiraNo = [Metin2] WHERE (((Notlar.SiraNo)=[Metin0]));"
MsgBox ("Notlar Tablosu Düzeltildi")
DoCmd.RunSQL "UPDATE KonuAnalizi SET KonuAnalizi.DersNo = [Metin2] WHERE (((KonuAnalizi.DersNo)=[Metin0]));"
MsgBox ("Konu Analizi Tablosu Düzeltildi")
DoCmd.RunSQL "UPDATE Konular SET Konular.DersNo = [Metin2] WHERE (((Konular.DersNo)=[Metin0]));"
MsgBox ("Konular Tablosu Düzeltildi")
End Sub