DLookup İşlevi

süpersinizz

sn tdsharun hocamızın yazdıklarına ek olarak...
belki başına gelen arkadaşlar olabilir diye Tarihe bir not düşmek istedim.

Dlookup kullanımı esnasında aşağıda vereceğim örnek esnasında run-time error 2001 hatası ve söz dizimi hatası aldığım için ve uzun uğraşlar ve yabancı sitelerin katkılarıyla aşabildiğim için paylaşmak istedim.

Aşağıdaki örnekte ben bir form açılışında bilgisayarın adına göre bir yetkilendirme aşaması yapmak istediğim için bilgisayarın adını sistemden aldıktan sonra tablodan bunun yetki seviyesinin kontrolünü yaparak bazı butonları disable yapacağım. (Daha oraya gelemedim.
kodlar:
Private Sub Form_Load()
Dim ComputerName, CompName As String
Dim YetkiSayi As Integer
ComputerName = FindComputerName
Me.Etiket57.Caption = ComputerName
CompName = Left(ComputerName, Len(ComputerName) - 1)
YetkiSayi = Nz(DLookup("[BilgisayarYetki]", "Tbl_BilgYetki", "[BilgisayarAdi]=" & "'" & CompName & "'"))
Me.Etiket57.Caption = Me.Etiket57.Caption & " (" & YetkiSayi & ") "
End Sub

Elinize sağlık

teşekkürler

Bir de Dlookup ile mükerrer kayıt kontrolü yapalım:

If MetinKutusuAdi = Dlookup ("[AlanAdi]", "[TabloAdi]", "[AlanAdi]= Forms![FormAdi]!MetinKutusuAdi") Then
MsgBox "Bu Kayıt Zaten Var", vbOKOnly, "UYARI..."
Undo
MetinKutusuAdi.SetFocus
Else
End If


çok başarılı , paylaşım için teşekkürler tam aradığım kod

Hocam teşekkür ederim