Access, Visual Basic hakkında soru

[__kadıköyRAP__]

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

 

[emubaltaci]

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

 

[__kadıköyRAP__]

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

 

[emubaltaci]

yardımcı olacaklardır

 

[Yunus ÖZCAN]

bu konuda yardımcı olabilicek birileri varmı

visual basic'de veritabanı işlemleri

 

[halepce]

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]

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