Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim KeyRange As Range

Dim ColumnCount As Integer

ColumnCount = Range("DataRange").Columns.Count

Cancel = False

If Target.Row = 1 And Target.Column <= ColumnCount Then

Cancel = True

Set KeyRange = Range(Target.Address)

Range("DataRange").Sort Key1:=KeyRange, Header:=xlYes

End If

End Sub

Merhaba F_UyeListesi formunun uye no alanının çift tıklanma olay yordamına yazdığım aşağıdaki kod da hata alıyorum. Nedeni konusunda 
yardımcı olmanızı rica ederim.

DoCmd.OpenForm "F_Uye", , , "[UyeNo]=" & [UyeNo_TXT], , , Me.UyeNo_TXT

[Resim: https://resim.accesstr.net/do.php?img=9886]

[Resim: https://resim.accesstr.net/do.php?img=9887]

[vb]Option Compare Database
Option Explicit

Private Sub UyeNo_DblClick(Cancel As Integer)

DoCmd.OpenForm "F_Uye", , , "[UyeNo]=" & [UyeN

merhaba
hazır olan bir formda hesaplama yaptırıyorum, doğru yapıyor

ama metin kutusuna bir kere tıklayınca hesaplama yapıyor

o metin kutusuna açıldığında bir kere otomatik tıklama formülü nedir bilen varsa yardımcı olursanıuz sevinirm
çok tşk ederim

bazı sitelerde gezinirken buttonlar tıklanmıyor.
site baktığım örneklerde de aradığımı bulamadım.

örnek sitede fare ile Sign in buttonunu tıklamama rağmen hiç tepki vermiyor

Sayın hocalarım; WebBrowserdeki aşağıda yazan koddaki kaydet butona Access formda Vba kodu ile tıklamak istiyorum ama bir türlü yapamadım. Yardım ederseniz çok sevinirim.

Değerli hocalarım. Yaklaşık 2000 kayıtlı bir tablom ve bağlı formlarım mevcut. Ancak 2 sıkıntı yaşıyorum. Örnek bir kopyasını veri güvenliğini sağlayarak küçük ve incelenebilir hale getirdim.

1. sıkıntım : 'Kayipsahislistesi' formunda filtreleme yaptığımda listede filtreleme meydana geliyor. İstediğim veriye tıklayacağım sırada yanlışlıkla listede boşluğa tıklayınca hata veriyor. Bu hatayı vermesini istemiyorum. Çünkü sürekli hızlı iş yapmaya çalıştığımdan listede boşluğa tıklayabiliyorum.

kod editörüne aşağıdaki kodları yazdım ama olmuyor. Yapmak istediğim b sütundaki belli aralıklardaki veriyi L sütunun belli aralığına yazdırmak. tek şatta oluyor çok şat olması gerekir yapamadım yardımcı olabilecek arkadaş var mı.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("b:b")) Is Nothing Then Exit Sub
If Target.Column = 2 Then
Sheets("AnaSayfa").Range("L2").Offset = Target.Offset
End If
End Sub
na calişiyor ama ben