24/07/2018, 16:25
ielmacilar
Öncelikle bu siteye ne kadar teşekkür etsem azdır. Hayatım da çok anlamı olan Access bu site ile önemini sonsuzlaştırdı. Bu siteyi açanlara ve emeği geçen herkese çok teşekkür ediyorum.
Açacağım konuyu Açılan kutuda çoklu sütun arama olarak arattım ama bir şey bulamadım.
Hocalarım aşağıdaki kod da Açılan kutuda sorunsuz arama yapıyorum ama ben 2, 3, 4, sütunu aramasını istiyorum bu yapılabilir birşey mi bilmiyorum. [ParçaSeriNo] sütununa nasıl 2. 3. sütunu aramasını sağlarım. örnek ekleyemiyorum program çok büyük ayıramıyorum da.
Şimdiden yardımlarınız için çok teşekkür ederim.
Private Sub orjnoara_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
orjnoara = Replace(orjnoara, " ", "")
Set rs = Me.Recordset.Clone
rs.FindFirst "[ParçaSeriNo] = '" & Me![orjnoara] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Açacağım konuyu Açılan kutuda çoklu sütun arama olarak arattım ama bir şey bulamadım.
Hocalarım aşağıdaki kod da Açılan kutuda sorunsuz arama yapıyorum ama ben 2, 3, 4, sütunu aramasını istiyorum bu yapılabilir birşey mi bilmiyorum. [ParçaSeriNo] sütununa nasıl 2. 3. sütunu aramasını sağlarım. örnek ekleyemiyorum program çok büyük ayıramıyorum da.
Şimdiden yardımlarınız için çok teşekkür ederim.
Private Sub orjnoara_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
orjnoara = Replace(orjnoara, " ", "")
Set rs = Me.Recordset.Clone
rs.FindFirst "[ParçaSeriNo] = '" & Me![orjnoara] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub