DLookup İşlevi - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Dersleri (https://accesstr.net/forum-access-dersleri.html) +--- Konu Başlığı: DLookup İşlevi (/konu-dlookup-islevi.html) |
Cvp: DLookup İşlevi - ayygun - 16/12/2010 süpersinizz Cvp: DLookup İşlevi - Bolu14Beyi - 02/03/2011 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.) fakat sistemden bilgisayar adını aldığımda stringin sonunda kare ile gösterilen tanımsız bir karakter olduğu dikkatimi çekti ve Left komutuyla onu çıkardıktan sonra hatalardan kurtuldum ve kod normal çalıştı. Meğer bütün kabahat bu karakterdeymiş.. Benzer bir arayış içinde olan olursa kodları incelesin.. herkese kolay gelsin.. 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 Cvp: DLookup İşlevi - hgulsever1702 - 23/05/2011 Elinize sağlık Cvp: DLookup İşlevi - freedom - 10/06/2011 teşekkürler Cvp: DLookup İşlevi - neslinet - 10/09/2011 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 Cvp: DLookup İşlevi - alitaha - 11/09/2011 Hocam teşekkür ederim |