LÖncelikle prosedür genelinde bir değişken tanımlayalım :

Dim kutuMetinleri As String

bu değişken ile hangi kutular işaretli ise onların değerlerini saklayacak. Siz her onay kutusunun güncelleme sonrasına bir kod yazmışsınız. Hangi kutu işaretli ise o kutunun değeriniz gizli metin kutularına yazdırmışsınız. İşte tüm bu değerleri aralarında virgül olacak şekilde saklayacak olan değişken bu değişke olacak.

Değerleri arasında virgül olacak şekilde birleştirecek bir prosedür ekleyelim:

Private Sub MetinBirlestir()



    kutuMetinleri = ""

    kutuMetinleri = kalip_hazirlama_metin & "," & kalip_temizleme_metin & "," & kalip_bakim_metin & "," & ekipman_bakim_metin & "," & flas_bakim_metin & "," & ofis_yonetim_metin & "," & genel_metin



End Sub

Sizin onay kutularında yazdığınız kodlarda End If sonrasında bu prosedürü çalıştırmak için adını MetinBirlestir yazın.

Kaydetme işlemini yaptığınız yerde ki :

If VarMi > 0 Then

    MsgBox "Bu standart numarası daha önce girilmiş" & vbCr & "Lütfen farklı bir standart numarası yazın.", vbCritical, "Kaydetme Başarısız"

Else

    

    ' ELSE aralığındaki kodlarınız



End If

Else bloğu içinde Docmd.RunSQL "INSERT INTO ....." kodlarınızda en sonda yetkinlik sütununa değerleri kaydettiğiniz Me.kalip_hazirlama_metin ifadesini silip kutuMetinleri yazmanız yeterlidir.