Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Ana Menüden 2.form Açtığımda Form Görev çubuğuna Inmiyor. 32'den 64'e Geçiş Hatası

Ana Menüden 2.form Açtığımda Form Görev çubuğuna Inmiyor. 32'den 64'e Geçiş Hatası
OGUZTURKYILMAZ
Yeni Üye 1-15

*
Kayıt Tarihi: 22.01.2018
Toplam 4 konu açtı.
Toplam 9 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR,
Beğeniler: 2 / 0
#1
11-04-2023, 09:42 (En son düzenleme: 11-04-2023, 13:31 OGUZTURKYILMAZ.)
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




Eklenti Dosyaları
.zip   FORUM.zip (Boyut: 254,92 KB / İndirilme: 28)
.jpg   Screenshot_1.jpg (Boyut: 130,91 KB / İndirilme: 15)



  Bul
  Alıntı
Bu mesajı beğenenler:
feraz
Aktif Üye 100-150

*
Kayıt Tarihi: 14.07.2012
Toplam 10 konu açtı.
Toplam 118 yorum yaptı.
Toplam 15 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 TR, Office 2016 TR,
Beğeniler: 23 / 2
#2
12-04-2023, 01:09
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





  Bul
  Alıntı
Bu mesajı beğenenler:
alperalper
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 06.11.2013
Toplam 93 konu açtı.
Toplam 626 yorum yaptı.
Toplam 88 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016, Office 2019,
Beğeniler: 0 / 31
#3
13-04-2023, 16:04
(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.



  Bul
  Alıntı
Bu mesajı beğenenler:
OGUZTURKYILMAZ
Yeni Üye 1-15

*
Kayıt Tarihi: 22.01.2018
Toplam 4 konu açtı.
Toplam 9 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR,
Beğeniler: 2 / 0
#4
13-04-2023, 23:39
Halily hoca'mın sayesinde 64 Bitde formlar istediğim gibi Taskbara indirilebiliyor. İlginiz için teşekkür ederim.


Eklenti Dosyaları
.zip   Forum.zip (Boyut: 323,34 KB / İndirilme: 25)



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Acces Form Da Pencere Dısında Göruntuleme sevincili 1 117 30-03-2024, 05:35
Son Mesaj: dsezgin
  [FORM] Alt Forum Dan Tıklandıgında Yenı Form Acmak sevincili 2 113 29-03-2024, 15:54
Son Mesaj: sevincili
  Form üzerinde Bulunan Sorguda Değişiklik Yaparak Kayıt Güncelleme geneclean 5 179 13-02-2024, 15:51
Son Mesaj: dsezgin
  Form Zoom Ayarı Ile Boyutlama Hk. adnnfrm 7 272 09-01-2024, 00:04
Son Mesaj: dsezgin
  [FORM] form klasör içinde dosya kontrolü obaysal42 4 2.181 29-12-2023, 10:24
Son Mesaj: burhanb
  Form Konumlandırma adnnfrm 1 84 21-11-2023, 15:04
Son Mesaj: dsezgin
  [FORM] Ana Form Içerisindeki Ilişkili Formların Güncellenmesi RASİMPEH 1 98 22-09-2023, 01:53
Son Mesaj: dsezgin
  [FORM] Gezinti Formu Ile Alt Form Oluşturmak abahceci 2 186 09-08-2023, 15:09
Son Mesaj: abahceci

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi