Skip to main content

AccessTr.neT


Excel Useform Üzerinden Accesse Veri Kaydetme

Excel Useform Üzerinden Accesse Veri Kaydetme

Çözüldü #1
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
.rar çalışma.rar (Dosya Boyutu: 31,5 KB | İndirme Sayısı: 1)
Cevapla
#2
access tablosundaki Adı ve Soyadın alanlarını mı yoksa userfromdaki textbox3ü mü?
Cevapla
#3
(22/08/2021 13:34)berduş Adlı Kullanıcıdan Alıntı: 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
Cevapla
#4
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ı
[Resim: do.php?img=11217]
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>"

Visual Basic Code
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ş Adlı Kullanıcıdan Alıntı: 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
Son Düzenleme: 22/08/2021, 14:08, Düzenleyen: berduş.
Cevapla
#5
(22/08/2021 14:04)berduş Adlı Kullanıcıdan Alıntı: 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ı
[Resim: do.php?img=11217]
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>"

Visual Basic Code
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ş Adlı Kullanıcıdan Alıntı: 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
Cevapla
#6
rica ederim
iyi çalışmalar
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da