Access, Visual Basic hakkında soru

__kadıköyRAP__06.04.20096 cevap2.611 görüntüleme

2007'den beri29 bin mesaj

#1
06.04.2009 22:42

arkadaşlar bi form yapıcam kullanıcı adı ve parola girişi olacak ve butona tıkladığımda kullanıcı adı parola uyuşuyorsa başka bi form açıcak bana.

bi tane butonun içinde şunları yaptım

Private Sub Komut9_Click()
If ([kullanici] = "ali" And [parola] = "123") Then

On Error GoTo Err_Komut9_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    DoCmd.Close
    stDocName = "personel"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    
Exit_Komut9_Click:
    Exit Sub

Err_Komut9_Click:
    MsgBox Err.Description
    Resume Exit_Komut9_Click
End If
End Sub

bu çalışıyor ali ve 123 girdiğim taktirde.

ama ben bi tablo oluşturup içine kullanıcı adları ve şifreleri girmek ve kontrolü o tabloya göre yaptırmak istiyorum mümkünmüdür ?
Yani kod kısmında kontrol ederken ali ve 123 mü diye bakmayacak da tablodaki değerlere göre kontrol yapacak

Cevaplar

emubaltaci

2005'den beri19 bin mesaj

#2
06.04.2009 22:44

konu Diğer Yazılım Konuları a taşınmıştır

__kadıköyRAP__ Konuyu açan

2007'den beri29 bin mesaj

#3
06.04.2009 23:05

ama ama ama bilen yokmu sınavım var yarın muhteremler :(
:mrgreen:

emubaltaci

2005'den beri19 bin mesaj

#4
06.04.2009 23:08

yardımcı olacaklardır ;)

Yunus ÖZCAN

2008'den beri593 mesaj

#5
09.04.2009 19:13

bu konuda yardımcı olabilicek birileri varmı

visual basic'de veritabanı işlemleri

halepce

2009'den beri17 mesaj

#6
09.04.2009 20:02

benim vbasic kodu olarak excelde kullandığım bir kod var, açıklaması ile birlikte yazıyorum. belki işine yarar

ThisWorkbook" kısmına yazın

Private Sub workbook_open()
Application.Visible = False
UserForm1.Show
End Sub

'Dosyanıza ekleyeceğiniz Userforma bir CommandButton ve iki Textbox yerleştirin ve aşağıdaki kodu Userformun kod kısmına girin

Private Sub CommandButton1_Click()
If TextBox1.Value = "Ali" Or TextBox1.Value = "Veli" Then
goto Kontrol2
Else
Unload UserForm1
MsgBox "Üzgünüm girdiğiniz kullanıcı adı hatalı.", vbCritical, "HATA"
ActiveWorkbook.Close 0
Exit Sub
EndIf
Kontrol2:
If TextBox2.Value = "123" Or TextBox2.Value = "456" Then
MsgBox "Programa girişiniz onaylanmıştır.", vbInformation
Unload Me
Application.Visible = True
Else
Unload UserForm1
MsgBox "Üzgünüm girdiğiniz parola hatalı.", vbCritical, "HATA"
ActiveWorkbook.Close 0
Exit Sub
EndIf
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = True
End Sub

'Ayrıca Textbox2'nin Properties kısmında bulunan "PasswordChar" bölümüne "*" (yıldız) işareti koyarsanız girilen parola ekranda "*****" şeklinde görünecektir.

Yunus ÖZCAN

2008'den beri593 mesaj

#7
09.04.2009 20:35

biraz yardımcı oldun teşekkürler
datagridwiev kullanımı ve veri tabanına kayıt etmek silmek