access içinden bir kod ile buton tıklamak

access içinden bir kod ile buton tıklamak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html)
+--- Forum: Serbest Bölge (https://accesstr.net/forum-serbest-bolge.html)
+--- Konu Başlığı: access içinden bir kod ile buton tıklamak (/konu-access-icinden-bir-kod-ile-buton-tiklamak.html)

access içinden bir kod ile buton tıklamak - accessman - 26/05/2012

herhangi bir programın
herhangi bir penceresinin
herhangi bir butonunu
access içinden bir kod ile nasıl tıklatabiliriz
bu işe yarar mı?

Kod:

if( IsWindowSuitable( (HWND)wParam ) && IsPositionOK( (HWND)wParam,&right, &top ) )

Cvp: access içinden bir kod ile buton tıklamak - accessman - 01/06/2012

bu konunun devamı olarak düşündüğüm için buradan soruyorum
vbsic de buton gibi vb nesnelerin hwnd değerleri var

Kod:

Declare Function GetForegroundWindow Lib "user32" () As Long

ile en üstteki pencerenin hwnd değerini buluyoruz

Kod:

Declare Function apiGetParent Lib "user32" Alias "GetParent" (ByVal hwnd As Long) As Long

ilede her pancerenin bağlı olduğu pencereleri buluyoruz.Anladığım kadarıyla
mesaj kutusunun bile hwnd değeri var.ben açtığım AHBS programındaki TC no girdiğim metin kutusunun içeriğini Access e aktarmak istiyorum
şu kod

Kod:

Option Compare Database



'Getting parent Form's caption

Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long



Public Function GetParentFormCaption(ByVal lngHwnd As Long) As String

  Dim strBuff As String * 255

  Dim lngOldHwnd As Long, lngResult As Long

 

  lngOldHwnd = GetParent(lngHwnd)

  lngResult = GetWindowText(lngOldHwnd, strBuff, Len(strBuff))

 

  GetParentFormCaption = Trim(strBuff)

End Function



Private Sub Komut0_Click()

Dim PFC As String

PFC = GetParentFormCaption([Metin1])

MsgBox PFC

End Sub

pencerenin bağlı olduğu pencere adını veriyor
bense bunları birleştirip TC girdiğim metin kutusunun içeriğini nasıl accesse çekeceğim
yardımlarınız için teşekkürler