+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Useform Üzerinden Accesse Veri Kaydetme (/konu-excel-useform-uzerinden-accesse-veri-kaydetme.html)
Excel Useform Üzerinden Accesse Veri Kaydetme - mert_0671 - 22/08/2021
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
RE: Excel Useform Üzerinden Accesse Veri Kaydetme - berduş - 22/08/2021
access tablosundaki Adı ve Soyadın alanlarını mı yoksa userfromdaki textbox3ü mü?
RE: Excel Useform Üzerinden Accesse Veri Kaydetme - mert_0671 - 22/08/2021
(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
RE: Excel Useform Üzerinden Accesse Veri Kaydetme - berduş - 22/08/2021
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
RE: Excel Useform Üzerinden Accesse Veri Kaydetme - mert_0671 - 22/08/2021
(22/08/2021, 14:04)berduş yazdı: bunun için ad soyad alanının türünü değiştirmelisinizSayın Berduş çok teşekkür ederim tam istediğim gibi oldu sağolun
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
RE: Excel Useform Üzerinden Accesse Veri Kaydetme - berduş - 22/08/2021
rica ederim
iyi çalışmalar