Access SQL   ›   MS SQL SERVER & DİĞER MS OFFICE VE VERİTABANI UYGULAMALARI   ›   DİĞER MS OFFICE VE VERİTABANI UYGULAMALARI   ›   MICROSOFT OFFICE PROGRAMLARI   ›   EXCEL   ›   EXCEL SORULARI   ›   Userform, Msgbox Hakkında

Userform, Msgbox Hakkında
Fetih1453
Yeni Üye 1-15

*
Kayıt Tarihi: 03.03.2020
Toplam 4 konu açtı.
Toplam 8 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2019,
Beğeniler: 0 / 0
#1
25-03-2022, 21:39
Merhaba arkadaşlar benim bir sorum olacak. Bir adet güncelleme butonum var. Bu butona 2 kez tıklama işlemi gerçekleştirilecek 2. tıklama sonrasında Personel bilgileri güncellendi. uyarısı vermek istiyorum. Aşağıdaki kod hem 1. tıklamada hem 2. tıklamada mesaj veriyor.


NOT: 1. tıklamada kilitli alanlar açılıyor
          2. tıklamada güncelleme işlemi gerçekleştiriliyor.


Visual Basic
  1. Dim baglan As New Connection
  2. Dim rs As New Recordset
  3.  
  4. baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\master.accdb;"
  5. rs.Open "SELECT * FROM personel where tckn='" & Me.TextBox2.Text & "'", baglan, adOpenKeyset, adLockPessimistic
  6.  
  7. rs.Update 2, Me.TextBox1.Text
  8.  
  9.  
  10. rs.Close
  11. baglan.Close
  12. mesaj = MsgBox("Personel bilgileri güncellendi.", vbOKOnly, "GÜNCELLEME MESAJI")
  13. End Sub





  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.037 yorum yaptı.
Toplam 1.068 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 56 / 235
#2
25-03-2022, 22:56
Visual Basic
  1. Dim Islem As Long
  2. Private Sub GuncelDugme_Click()
  3. If Islem = 0 Then
  4.     Me.Nesne.Locked = True
  5.     Islem = 1
  6. Else
  7.     Call Guncelleme
  8.     Islem = 0
  9. End If
  10. End Sub



Visual Basic
  1. Sub Guncelleme()
  2. '****** Sizin guncelleme prosedur *********
  3. Dim baglan As New Connection
  4. Dim rs As New Recordset
  5.  baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\master.accdb;"
  6. rs.Open "SELECT * FROM personel where tckn='" & Me.TextBox2.Text & "'", baglan, adOpenKeyset, adLockPessimistic
  7.  rs.Update 2, Me.TextBox1.Text
  8.  rs.Close
  9. baglan.Close
  10. mesaj = MsgBox("Personel bilgileri güncellendi.", vbOKOnly, "GÜNCELLEME MESAJI")
  11. End Sub


Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Userform, Excel Ortamında Rapor Oluşturma Fetih1453 5 710 01-04-2022, 12:10
Son Mesaj: dsezgin
  Userform, Label'a Listboxta Listelenen Kayıt Sayısını Aktarmak Fetih1453 2 315 25-03-2022, 23:06
Son Mesaj: Fetih1453
  Userform, Like Operatörü Fetih1453 3 355 24-03-2022, 08:45
Son Mesaj: dsezgin
  Access Te Bulunan Tablodan Excel Userform Labele Veri Atma ersin_gurbuz 1 534 24-05-2021, 13:43
Son Mesaj: dsezgin
  excel vba userform ile access veri tabanına dosya upload etme arif0636 2 1.186 06-09-2019, 16:28
Son Mesaj: arif0636

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi