+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Msgbox Hakkında (/konu-msgbox-hakkinda.html)
Msgbox Hakkında - H@K@N - 25/03/2022
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.
Kod:
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 SubRE: Msgbox Hakkında - berduş - 26/03/2022
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 SubRE: Msgbox Hakkında - H@K@N - 28/03/2022
(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?
RE: Msgbox Hakkında - berduş - 28/03/2022
Pardon hatalı yazmışım
if (degisken mod 2) =1 then goto etkin Else goto guncellle
RE: Msgbox Hakkında - H@K@N - 28/03/2022
(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
RE: Msgbox Hakkında - berduş - 28/03/2022
(26/03/2022, 09:37)berduş yazdı: Formunuzun 2. satirina long türünde public bir değişken tanimlayin diyelim ki degisken olsunformunuzun kodlarını yazdığınız modülün 2. satırına
aslında Option Compare.... benzeri kodların altına yazılabilir