AccessTr.neT
Access Maximize Durumunda - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Maximize Durumunda (/konu-access-maximize-durumunda.html)

Sayfalar: 1 2 3

Cvp: Access Maximize Durumunda - berduş - 13/06/2019

çalışmanızı görmeden bir şey demem zor ama aşağıdakine benzer bir kod kullandığımda bende otomatik olarak en önde açıldı
Dim appExcel As Excel.Application

 Dim myWorkbook As Excel.Workbook

  Set appExcel = CreateObject("Excel.Application")

    Set myWorkbook = appExcel.Workbooks.Open(dosyaAdresiveAdi)

    appExcel.Visible = True

    Set appExcel = Nothing

    Set myWorkbook = Nothing


Cvp: Access Maximize Durumunda - berduş - 13/06/2019

son olarak da aşağıdaki kodu bir deneyin isterseniz
Dim appExcel As excel.Application

 Dim myWorkbook As excel.Workbook

  Set appExcel = CreateObject("Excel.Application")

    Set myWorkbook = appExcel.Workbooks.Open(DosyaAdiveYolu)

    appExcel.Visible = True

myWorkbook.Activate '<==eklendi

    Set appExcel = Nothing

    Set myWorkbook = Nothing


Cvp: Access Maximize Durumunda - zaferlacin - 14/06/2019

(13/06/2019, 22:10)haliliyas yazdı: son olarak da aşağıdaki kodu bir deneyin isterseniz
Dim appExcel As excel.Application

 Dim myWorkbook As excel.Workbook

  Set appExcel = CreateObject("Excel.Application")

    Set myWorkbook = appExcel.Workbooks.Open(DosyaAdiveYolu)

    appExcel.Visible = True

myWorkbook.Activate '<==eklendi

    Set appExcel = Nothing

    Set myWorkbook = Nothing
Ben çözemedim bu kodları da kullandım bazen çalışıyor bazen çalışmıyor 
problemin proje veya kodlardan değil de bilgisayarım yada excel'den kaynaklı olduğunu düşünüyorum
bilgisayar ayarları ya da Excel ayarları konusunda tahmini çözüm bilgisi olan olursa 
yardımlarını bekliyorum Teşekkür ederim

Cvp: Access Maximize Durumunda - zaferlacin - 14/06/2019

(14/06/2019, 20:03)zaferlacin yazdı:
(13/06/2019, 22:10)haliliyas yazdı: son olarak da aşağıdaki kodu bir deneyin isterseniz
Dim appExcel As excel.Application

 Dim myWorkbook As excel.Workbook

  Set appExcel = CreateObject("Excel.Application")

    Set myWorkbook = appExcel.Workbooks.Open(DosyaAdiveYolu)

    appExcel.Visible = True

myWorkbook.Activate '<==eklendi

    Set appExcel = Nothing

    Set myWorkbook = Nothing
Ben çözemedim bu kodları da kullandım bazen çalışıyor bazen çalışmıyor 
problemin proje veya kodlardan değil de bilgisayarım yada excel'den kaynaklı olduğunu düşünüyorum
bilgisayar ayarları ya da Excel ayarları konusunda tahmini çözüm bilgisi olan olursa 
yardımlarını bekliyorum Teşekkür ederim

Projemde formumu açıyorum 
Set myWorkbook = appExcel.Workbooks.Open(DosyaAdiveYolu)
bu satırda dosyaAdi tekrar yazıyorum 
kaydedip çıkıyorum çalışıyor
programdan çıkış yapıyorum sonra tekrar açıp deniyorum çalışmıyor
dosyaadi nı tekrar yazıp kaydediyorum dosya adını değiştirmiyorum aynısını yazıyorum kaydediyorum
çalışıyor
çözemedim

Cvp: Access Maximize Durumunda - berduş - 15/06/2019

aşağıdaki kod düzgün çalışıyor gibi geldi, bir kaç defa denedim.
açtım kapattım tekrar tekrar -5 6 defa- dendim sorun çıkarmadı
dilerim işinize yarar
Dim XL As Excel.Application

Dim appExcel As excel.Application

Dim myWorkbook As excel.Workbook

  Set appExcel = CreateObject("Excel.Application")

  Set myWorkbook = appExcel.Workbooks.Open(DosyaAdiveYolu)

 appExcel.Visible = True

 AppActivate appExcel.Windows(1).Caption'<==eklendi

 'myWorkbook.Activate '<==silindi

   Set appExcel = Nothing

   Set myWorkbook = Nothing

'2. Yöntem____________
On Error Resume Next

AppActivate "Microsoft Excel"

AppActivate "Excel"
'______________________2. Yöntem_BİTTİ

Cvp: Access Maximize Durumunda - berduş - 25/06/2019

zafer bey çalışmanızın son durumu ile ilgili bilgi verir misiniz?