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