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.

Denemedim farazi yazim hatalari olabilir
1 - Formunuzun 2. satirina long  türünde public bir değişken tanimlayin diyelim ki degisken olsun
2 - butonunuzun başına da

degisken=degisken+1 

 if degisken mod=1 then goto etkin  Else goto guncellle

etkin:

Etkinleştirme kodları

Exit sub

guncellle:

Dim baglan As New Connection

Dim rs As New Recordset



baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\master.accdb;"

rs.Open "SELECT * FROM personel where tckn='" & Me.TextBox2.Text & "'", baglan, adOpenKeyset, adLockPessimistic



rs.Update 2, Me.TextBox1.Text





rs.Close

baglan.Close

mesaj = MsgBox("Personel bilgileri güncellendi.", vbOKOnly, "GÜNCELLEME MESAJI")

End Sub

(26/03/2022, 09:37)berduş yazdı: Denemedim farazi yazim hatalari olabilir
1 - Formunuzun 2. satirina long  türünde public bir değişken tanimlayin diyelim ki degisken olsun
2 - butonunuzun başına da

degisken=degisken+1 

 if degisken mod=1 then goto etkin  Else goto guncellle

etkin:

Etkinleştirme kodları

Exit sub

guncellle:

Dim baglan As New Connection

Dim rs As New Recordset



baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\master.accdb;"

rs.Open "SELECT * FROM personel where tckn='" & Me.TextBox2.Text & "'", baglan, adOpenKeyset, adLockPessimistic



rs.Update 2, Me.TextBox1.Text





rs.Close

baglan.Close

mesaj = MsgBox("Personel bilgileri güncellendi.", vbOKOnly, "GÜNCELLEME MESAJI")

End Sub

if degisken mod=1 then goto etkin Else goto guncellle



bu satırda bir hata olabilir mi?

Pardon hatalı yazmışım
if (degisken mod 2) =1 then goto etkin Else goto guncellle

(28/03/2022, 14:42)berduş yazdı: Pardon hatalı yazmışım
if (degisken mod 2) =1 then goto etkin Else goto guncellle

Üstad

Formunuzun 2. satirina long türünde public bir değişken tanimlayin diyelim ki degisken olsun


demişsiniz bu kısmı anlayamadım

ben Public degisken As Long
şeklinde yazdım bunu nereye yazmam gerekiyor

(26/03/2022, 09:37)berduş yazdı: Formunuzun 2. satirina long  türünde public bir değişken tanimlayin diyelim ki degisken olsun

formunuzun kodlarını yazdığınız modülün 2. satırına
aslında Option Compare.... benzeri kodların altına yazılabilir