[VBA] Şifre değiştirme ekranında hatalı kodlama "update"

devilspath · 23-10-2018, 15:01

Herkese merhaba,
Yine basit bir hata yapıp, bir türlü bulamadığım bir soruyla karşınızdayım.
Aşağıdaki komut ile kullanıcı şifresi değiştirme işlemi yapmak istiyorum ama kodlamamda bir hata var ve bir türlü bulamıyorum. Yardımcı olursanız sevinirim.
Her ihtimale karşı örnek de ekliyorum.

Not1: sifre=metin4 kısmında bir hata yaptığımı düşünüyorum
Not2: formdaki "kullanan" metin kutusuna varsayılan bir kullanıcı id girdim.

Visual Basic
Private Sub Komut37_Click()
If Me.Metin2 = Me.sifreci Then
CurrentDb.Execute "UPDATE [tkullanicilar] SET sifre = me.Metin4" _
& " WHERE kul_id =  " & Forms!Sifredegistir!kullanan & ""
MsgBox "Yeni Şifreniz oluşturuldu.", vbInformation
DoCmd.Close
Else
MsgBox "Şifre hatalı tekrar deneyiniz.", vbInformation
Me.Metin2.SetFocus
End If
End Sub

dsezgin · 23-10-2018, 15:47

UPDATE [tkullanicilar] SET sifre = '" & me.Metin4 & _
"' WHERE (((kul_id) = " & Forms!Sifredegistir!kullanan & "))"

.rar

ornekk.rar (Boyut: 54,96 KB / İndirilme: 90)

devilspath · 23-10-2018, 15:57

(23-10-2018, 15:47)dsezgin demiş ki: UPDATE [tkullanicilar] SET sifre = '" & me.Metin4 & _
"' WHERE (((kul_id) = " & Forms!Sifredegistir!kullanan & "))"

hata verdi hocam. örnek üzerinden bir kontrol etmeniz mümkün müdür?

dsezgin · 23-10-2018, 16:26

Mesaj: #2 Uygulamanizi biraz degistirdim. Metin2 girilmesi ile sifre kontrol ettirilip, dogru oldugunda yeni ve buton nesneleri etkinlestirilme kontrolu biraz daha yakin gibi geldi.

VBA da Metin olan alanlar referans verilirken Kesme isareti is sinirlandirmalidir.

Metin.......' " & Metin1 & " ' gibi
Sayi........ " & Metin1 & "
Tarih.......#" & format(Metin1, "mm\/dd\/yyyy")

benzer eksik bolumleri kendiniz de tamamlayabilirsiniz.

devilspath · 23-10-2018, 17:03

Hocam elinize sağlık, yaptığınız geliştirmeler de çok güzel olmuş. Çok teşekkür ederim.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[FORM] access ıcon değiştirme	oosmaner	5	1.091	08-02-2024, 12:43 Son Mesaj: BeyTor
	Aktarım Yaparken Dosya Adını Değiştirme	zimbit	4	474	04-02-2024, 00:42 Son Mesaj: zimbit
	[RAPOR] Rapor Fontunu Değiştirme	ates2014	6	536	25-01-2024, 15:15 Son Mesaj: ates2014
	[VBA] Pc. Tarih Formatını Değiştirme	ates2014	8	644	09-01-2024, 09:18 Son Mesaj: ates2014
	Rapor üzerinde önizleme öncesi Etiket Ve Metin Kutularının Yerlerini Değiştirme Hk.	adnnfrm	4	522	26-12-2023, 03:42 Son Mesaj: adnnfrm
	Metin Kutusu Adı Değiştirme Hk.	snapper	9	787	08-11-2023, 01:12 Son Mesaj: dsezgin
	Etiket Isimlerini Toplu Değiştirme	hedefkaya	1	342	24-10-2023, 21:06 Son Mesaj: dsezgin
	Sadece Geçerli Kayıtta Kenarlık Rengi Değiştirme Hk.	adnnfrm	25	1.585	13-09-2023, 00:00 Son Mesaj: halily

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL