AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Alt Form İçinde Alt Form + İşaretinin Açılması

1 2 3
29/08/2018, 21:48

ielmacilar

Hocam Ben yaptığınızdan bir şey anlamadım. Saygılar
30/08/2018, 09:55

ozanakkaya

Merhaba, önceki mesaja eklediğim örnek uygulamayı hazırladığım pc dışında 4 farklı pcde denedim. 5 pcnin 2sinde çalışıyor, 3ünde çalışmıyor. Sendkeys ile ilgili bir sıkıntı var.
30/08/2018, 10:18

ozanakkaya

Son hali ektedir, inceleyip olumlu/olumsuz bildirimde bulununuz.
30/08/2018, 10:20

ielmacilar

Hocam windows 7  Access 2003 sendkeys yaşanan problemler için şöyle bir kod buldum size sormadan kullanmayayım dedim zaten nerede kullanacağımı anlamadım.
Kod:
If Nz(sQueryParams, "") <> "" Then
       MyParameters = Split(sQueryParams, "|", -1, vbTextCompare)
       
       If MyParameters(0) = "*UseQueryDef*" Then
           
       Else
           For nParameter = 0 To UBound(MyParameters)
            If Not init Then
       If IsDevEnv() Then
           IsIDEUnderVista = (OsVersion() >= 6)
           If IsIDEUnderVista Then Set WshShell = CreateObject("WScript.Shell")
       End If
       init = True
   End If
   
   If Not IsIDEUnderVista Then
       VBA.SendKeys MyParameters(nParameter) & "{Enter}"
   Else
       WshShell.SendKeys MyParameters(nParameter) & "{Enter}"
              ' SendKeys MyParameters(nParameter) & "{Enter}"
           Next
       End If
   End If
   

   
   'send some CR's if requested
   
   'Kris 20100823 - Send Keys fix
   
   For nLoop = 1 To nEnters
       
       'SendKeys "{Enter}", False
        If Not init Then
       If IsDevEnv() Then
           IsIDEUnderVista = (OsVersion() >= 6)
           If IsIDEUnderVista Then Set WshShell = CreateObject("WScript.Shell")
       End If
       init = True
   End If
   
   If Not IsIDEUnderVista Then
       VBA.SendKeys "{Enter}", False
   Else
       WshShell.SendKeys "{Enter}", False
   End If
   Next



Private Function IsDevEnv() As Boolean
  Dim x As Long
  Debug.Assert Not TestIDE(x)
  IsDevEnv = x = 1
End Function

Private Function TestIDE(x As Long) As Boolean
  x = 1
End Function
30/08/2018, 10:45

ielmacilar

Hocan son örnek iyi çalışıyor fakat form1'i açtığımızda arama yaptıktan sonra Tablo2 alt formda ilk satırlarda noa otomatik sayıda focus var o focus yüzünden olsa gerek satırı açmıyor. Alttaki satırlara  tab yada enterladığımız da hepsini açıyor. ilk satırları açmıyor.
16/09/2018, 18:23

ozanakkaya

Merhaba, 15 gün geçmiş. Ben düzenlediğim örneği tekrar inceledim. Herhangi bir sorun yok. Tıkladığınız alanı genişletiyor.
1 2 3