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
