Access SQL
Ana Menüden 2.form Açtığımda Form Görev çubuğuna Inmiyor. 32'den 64'e Geçiş Hatası - Yazdırılabilir Sürüm

+- Access SQL (https://www.access-sql.com)
+-- Forum: ACCESS SORULARI VE ÖRNEK UYGULAMALARI (https://www.access-sql.com/Forum-ACCESS-SORULARI-VE-ORNEK-UYGULAMALARI)
+--- Forum: ACCESS SORULARI (https://www.access-sql.com/Forum-ACCESS-SORULARI)
+--- Konu: Ana Menüden 2.form Açtığımda Form Görev çubuğuna Inmiyor. 32'den 64'e Geçiş Hatası (/Konu-Ana-Menuden-2-form-Actigimda-Form-Gorev-cubuguna-Inmiyor-32-den-64-e-Gecis-Hatasi)

Ana Menüden 2.Form Açtığımda Form Görev çubuğuna inmiyor. 32'den 64'e geçiş hatası - OGUZTURKYILMAZ - 11-04-2023

Merhaba Hayırlı Ramazanlar. Hazırladığım dosyada Forumlardan aldığım destekle sona yaklaştım. Sorunum uygulumada birden fazla form açık çalışırken komple programı ekrandan sistem tepsisine yada görev çubuğuna indiremiyorum. Sadece AnaMenu Formum açıksa aşağıya iniyor ve masaüstümde işlem yapabiliyorum. Forumdan bulduğum konu ile ilgili kod da 32 bit için yazılmış 64 bite çevirmeye çalıştığımda hata veriyor. Bu düzenleme hakkında yardımlarınızı rica ederim.

Aşağıda modülde yazılı kodları dosyama adapte edemedim. Bu kodların işimi göreceğini umut ediyorum.

kullanıcı : ADMIN
parola : 171717
Visual Basic
  1. Option Compare Database
  2. Option Explicit
  3.  
  4. Global Const SW_HIDE = 0
  5. Global Const SW_SHOWNORMAL = 1
  6. Global Const tr = 2
  7. Global Const SW_SHOWMAXIMIZED = 3
  8.  
  9. Private Declare PtrSafe Function apiShowWindow Lib "user32" _
  10. Alias "ShowWindow" (ByVal hwnd As Long, _
  11. ByVal nCmdShow As LongPtr) As Long
  12.  
  13. 'Private Declare Function apiShowWindow Lib "user32" _
  14. 'Alias "ShowWindow" (ByVal hwnd As Long, _
  15. 'ByVal nCmdShow As Long) As Long
  16.  
  17. Function gizle(nCmdShow As Long)
  18.  
  19. Dim loX As Long
  20. Dim loForm As Form
  21. On Error Resume Next
  22. Set loForm = Screen.ActiveForm
  23. If Err <> 0 Then
  24. If nCmdShow = SW_HIDE Then
  25. MsgBox "deneme" _
  26. & "a form is on screen"
  27. Else
  28. loX = apiShowWindow(hWndAccessApp, nCmdShow)
  29. Err.Clear
  30. End If
  31. Else
  32. If nCmdShow = tr And loForm.Modal = True Then
  33. MsgBox "deneme" _
  34. & (loForm.Caption + " ") _
  35. & "form on screen"
  36. ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
  37. MsgBox "deneme" _
  38. & (loForm.Caption + " ") _
  39. & "form on screen"
  40. Else
  41. loX = apiShowWindow(hWndAccessApp, nCmdShow)
  42. End If
  43. End If
  44. gizle = (loX <> 0)
  45. End Function




RE: Ana Menüden 2.form Açtığımda Form Görev çubuğuna Inmiyor. 32'den 64'e Geçiş Hatası - feraz - 12-04-2023

Visual Basic
  1. Option Compare Database
  2. Option Explicit
  3.  
  4. Global Const SW_HIDE = 0
  5. Global Const SW_SHOWNORMAL = 1
  6. Global Const tr = 3
  7. Global Const SW_SHOWMAXIMIZED = 3
  8.  
  9. #If Win64 Then
  10.     Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  11. #Else
  12.     Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  13. #End If
  14.  
  15. Function gizle(nCmdShow As Long)
  16.  
  17. Dim loX As Long
  18. Dim loForm As Form
  19. On Error Resume Next
  20.  
  21. Set loForm = Screen.ActiveForm
  22. If Err <> 0 Then
  23.     If nCmdShow = SW_HIDE Then
  24.         MsgBox "deneme" & "a form is on screen"
  25.     Else
  26.         loX = apiShowWindow(hWndAccessApp, nCmdShow)
  27.         Err.Clear
  28.     End If
  29. Else
  30.     If nCmdShow = tr And loForm.Modal = True Then
  31.         MsgBox "deneme" & (loForm.Caption + " ") & "form on screen"
  32.     ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
  33.         MsgBox "deneme" & (loForm.Caption + " ") & "form on screen"
  34.     Else
  35.         loX = apiShowWindow(hWndAccessApp, nCmdShow)
  36.     End If
  37. End If
  38. gizle = (loX <> 0)
  39. End Function




RE: Ana Menüden 2.Form Açtığımda Form Görev çubuğuna inmiyor. 32'den 64'e geçiş hatası - alperalper - 13-04-2023

(11-04-2023, 09:42)OGUZTURKYILMAZ demiş ki: Merhaba Hayırlı Ramazanlar. Hazırladığım dosyada Forumlardan aldığım destekle sona yaklaştım. Sorunum uygulumada birden fazla form açık çalışırken komple programı ekrandan sistem tepsisine yada görev çubuğuna indiremiyorum. Sadece AnaMenu Formum açıksa aşağıya iniyor ve masaüstümde işlem yapabiliyorum. Forumdan bulduğum konu ile ilgili kod da 32 bit için yazılmış 64 bite çevirmeye çalıştığımda hata veriyor. Bu düzenleme hakkında yardımlarınızı rica ederim.

Aşağıda modülde yazılı kodları dosyama adapte edemedim. Bu kodların işimi göreceğini umut ediyorum.

kullanıcı : ADMIN
parola : 171717
Visual Basic
  1. Option Compare Database
  2. Option Explicit
  3.  
  4. Global Const SW_HIDE = 0
  5. Global Const SW_SHOWNORMAL = 1
  6. Global Const tr = 2
  7. Global Const SW_SHOWMAXIMIZED = 3
  8.  
  9. Private Declare PtrSafe Function apiShowWindow Lib "user32" _
  10. Alias "ShowWindow" (ByVal hwnd As Long, _
  11. ByVal nCmdShow As LongPtr) As Long
  12.  
  13. 'Private Declare Function apiShowWindow Lib "user32" _
  14. 'Alias "ShowWindow" (ByVal hwnd As Long, _
  15. 'ByVal nCmdShow As Long) As Long
  16.  
  17. Function gizle(nCmdShow As Long)
  18.  
  19. Dim loX As Long
  20. Dim loForm As Form
  21. On Error Resume Next
  22. Set loForm = Screen.ActiveForm
  23. If Err <> 0 Then
  24. If nCmdShow = SW_HIDE Then
  25. MsgBox "deneme" _
  26. & "a form is on screen"
  27. Else
  28. loX = apiShowWindow(hWndAccessApp, nCmdShow)
  29. Err.Clear
  30. End If
  31. Else
  32. If nCmdShow = tr And loForm.Modal = True Then
  33. MsgBox "deneme" _
  34. & (loForm.Caption + " ") _
  35. & "form on screen"
  36. ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
  37. MsgBox "deneme" _
  38. & (loForm.Caption + " ") _
  39. & "form on screen"
  40. Else
  41. loX = apiShowWindow(hWndAccessApp, nCmdShow)
  42. End If
  43. End If
  44. gizle = (loX <> 0)
  45. End Fu

Bu söylediğinizi burada yapamazsınız. Açtığınız formlar form içinde açılmaz. Yani form içinde form şeklinde değildir. Tek form dahi olduğunda Access tepsiye inme konusunda yığınla sıkıntıya sahip.

RE: Ana Menüden 2.form Açtığımda Form Görev çubuğuna Inmiyor. 32'den 64'e Geçiş Hatası - OGUZTURKYILMAZ - 13-04-2023

Halily hoca'mın sayesinde 64 Bitde formlar istediğim gibi Taskbara indirilebiliyor. İlginiz için teşekkür ederim.