Yetkilendirme yapmak ve kullanıcı adını metin kutusuna yazdırmak

1 2 3
10/02/2010, 11:35

ozanakkaya

Başka bir üyenin sorusuna yazılar soru içerikli mesaj yeni konu olarak Access soruları bölümüne taşınmıştır.

AccessTr.Net Forumlarında Uyulması Gereken Genel Kurallar
6-) Sorununuz ile ilgili konu açtıysanız lütfen aynı soru ile ilgili tekrar konu açmayınız. Ayrıca, açtığınız konudaki sorun çözümlenmişse aynı konuya konu başlığındaki soru ile ilgisi olmayan farklı soru yazmayınız, başka bir üyenin soru içerikli konusuna soru yazmayınız. Sorunuz için yeni konu açınız.
[Uyarı Puanı: +2]




butonun kodunu aşağıdaki ile değiştir.

Kod:
Private Sub Komut29_Click()
On Error GoTo Err_Komut29_Click

If IsNull(Metin16) Or IsNull(Metin18) Then
MsgBox ("Adı ve Soyadı Alanları Boş Bırakılamaz vesaire vesaire")
Exit Sub
End If

DoCmd.GoToRecord , , acNewRec
Me.Metin26 = user
Me.Metin20 = sicilno
Me.Metin16.SetFocus


Exit_Komut29_Click:
    Exit Sub

Err_Komut29_Click:
    MsgBox Err.Description
    Resume Exit_Komut29_Click
    
End Sub
10/02/2010, 16:03

fox35

teşekkürler sayın sledgeab, konu çok dağılmış başka konu açmak açmak istemedim aynı uygulama üzerindeki çalışmayı burdan sürdürelim dedim ama neyse dikkat ederim.
10/02/2010, 16:09

ozanakkaya

sn fox35, sorun çözümlendi mi ?
10/02/2010, 20:24

fox35

evet evet çözüldü teşekkürler "exit sub" ı unutmuşum şart dinlemeden ard arda kayıt yapıyordu şimdi halloldu sayenizde tekrar teşekkürler.
1 2 3