Değerli uzman arkadaşlar paylaşmış olduğum çalışmamla Excel üzerindeki userform aracılığı ile Access veri tabanına kayıt yapıyorum. Çalışma mevcut hali ile bunu yapıyor. İlaveten yapmak istediğim textbox7 ye" E "yazmışsam personelin Adı ve Soyadını siyah renk yapsın "K" yapmışsam kırmızı yapsın istiyorum. Yardımlarınız için şimdiden teşekkürler

access tablosundaki Adı ve Soyadın alanlarını mı yoksa userfromdaki textbox3ü mü?

(22/08/2021, 13:34)berduş yazdı: access tablosundaki Adı ve Soyadın alanlarını mı yoksa userfromdaki textbox3ü mü?

Sayın berduş Textbox3 e Örneğin AHMET YILMAZ yazdım textbox7 ye erkek olduğu için "E" harfi yazdım diğer textboxlardaki bilgileride doldurduktan sonra kaydet butonuna bastığımda Access veri tabanına Adı soyadı alanına yazı tip rengini siyah olarak kaydetsin eğer bayan personel ise textbox7 ye bayan olduğu için "K" harfi yazdığımda Access veri tabanına yazı tipi rengini kırmızı yaparak kaydetsin istiyorum. Yani Access veri tabanındaki listemde kadın-erkek personelleri bu şekilde belirlemek istiyorum

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

(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

rica ederim
iyi çalışmalar