(22/08/2021, 14:04)berduş yazdı: bunun için ad soyad alanının türünü değiştirmelisiniz
alanın veri türü uzun metin
not ayarları da zengin metin olmalı

buton kodu da aşağıdaki gibi olmalı
eklenen ve değişen kodlar:
eklenen : If UCase(TextBox7.Value) = "K" Then Rnk = "red"  else Rnk = "Black"'<-- eklenen
değişen : DataKayitlari.Fields("ADI SOYADI") = "<font color=" & Rnk & ">" & TextBox3.Text & "</font>"

Private Sub CommandButton1_Click()

  

    On Error Resume Next

    Dim DataBaglan As DAO.Database

    Dim DataKayitlari As DAO.Recordset



Set DataBaglan = OpenDatabase(ThisWorkbook.Path & "\ANA SAYFA.accdb")

Set DataKayitlari = DataBaglan.OpenRecordset("ANA SAYFA")



DataKayitlari.AddNew



DataKayitlari.Fields("SİCİLİ") = TextBox1.Value

DataKayitlari.Fields("TC KİMLİK NO") = TextBox2.Value * 1



If UCase(TextBox7.Value) = "K" Then Rnk = "red"  else Rnk = "Black"'<-- eklenen 

DataKayitlari.Fields("ADI SOYADI") = "<font color=" & Rnk & ">" & TextBox3.Text & "</font>" '<-- değişen



DataKayitlari.Fields("İŞE BAŞLAMA TARİHİ") = TextBox4.Text

DataKayitlari.Fields("GÖREVİ") = TextBox5.Value

DataKayitlari.Fields("ÇALIŞMA DURUMU") = TextBox6.Value



DataKayitlari.Update



'MsgBox Err.Number & " - " & Err.Description

MsgBox "iŞLEM TAMAM"



End Sub

---

(22/08/2021, 14:04)berduş yazdı: Set DataBaglan = OpenDatabase(ThisWorkbook.Path & "\ANA SAYFA.accdb")

access dosyanızın adresini kendi çalışmama göre değiştirmiştim o adresi düzeltirsiniz

Sayın Berduş çok teşekkür ederim tam istediğim gibi oldu sağolun