microsoft access penceresi

[oners]

arkadaşlar ekteki dosyada müşteri formuna aşağıdaki kodu yazdığımda microsoft penceresi görünmüyor ama şifre formuna yazdığım zaman hata veriyor access penceresi kaybolmuyor bu konuda yardımlarınızı bekliyorum.tıkladığımda şifre formunun gelmesini istiyorum ama access penceresi gelmesin?



Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (SW_HIDE)
End Sub

 

[beab05]

Böyle deneyin...

 

[aristoes]

acces penceresi

ben bir türlü yapamadım yardım bekliyorum

 

[gulsum1]

cevap

şifre formunda özellikler diğer açılan evet kalıcı evet yap sorun düzelir

 

[malibu22]

Beab05 bende access penceresi görünmemesi için çok uğraştım birtürlü olmadı vt4 gibi olması lazım beceremedim birde menüler üst üste gelmesin diyede uğraştım oda olmadı.. Sen bi bakarmısın ..

Teşekkürler..

 

[perisanoglu]

dosyanız ekte..raporlarında açılan ve kalıcı özelliklerini evet yapmanız lazım..o zaman onlarıda görüntülersiniz..birde beğeneceğinizi umarak ana menü üst görev çubuğuna güncel tarih ve saati gösteren timer ekledim..VB ye girerek ana menü kodlarının içinden form timer bölümünden isimleri istediğiniz isimlerle değiştirebilirsiniz..

 

[malibu22]

Perisanoglu çok teşekkürler .. eline sağlık .. geçiş panosu yaptım sizin yazdığınız modülü oraya aktardım gene olmadı .. birde bu komutları yenide nereye ilave edecem .. zahmet olmazsa tekrar bakarmısısınız .. Raporlarda görüntülemeyi yazmışınız evet olarak nereyi yapacam.. bir rica daha rapor görünümü ekranda çok küçük oluyor onu büyütme imkanı varmı..

Tekrar teşekkürler.
---------------------------------------------------------------------
Private Sub Form_Open(Cancel As Integer)
Call ShowWindow(Application.hWndAccessApp, SW_HIDE)
DoCmd.Restore
msg = "Emlak Takip Programına Hoşgeldiniz." & Chr(13)
msg = msg + "Bugün :" & Date & Chr(13)
msg = msg + "Şu an Saat : " & Format(Now, "hh:mm") & Chr(13)
msg = msg + "İyi Çalışmalar" & Chr(13)
MsgBox msg, vbOKOnly + 64, "Emlak Takip"

End Sub
--------------------------------------------------------------------
Private Sub Form_Timer()
Caption = "SAMSUNLU EMLAK-ANA MENÜ Tarih :" & Date & " Saat :" & Time & " İRFAN SAMSUNLU&YILDIRIM ILICAK"
End Sub
-----------------------------------------------------------------------
Private Sub Komut1_Click()
On Error GoTo Err_Komut1_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(50) & ChrW(95) & ChrW(83) & ChrW(97) & ChrW(116) & ChrW(305) & ChrW(99) & ChrW(305) & ChrW(32) & ChrW(304) & ChrW(351) & ChrW(108) & ChrW(101) & ChrW(109) & ChrW(108) & ChrW(101) & ChrW(114) & ChrW(105)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Komut1_Click:
Exit Sub

Err_Komut1_Click:
MsgBox Err.Description
Resume Exit_Komut1_Click

End Sub
---------------------------------------------------------------------

 

[perisanoglu]

dosyalarınızın ikisinide düzenledim dostum...raporlarıda tam ekran açılır halde..iyi çalışmalar..

 

[malibu22]

çok tşk .ler perisanoglu çok yardımcı oldunuz ..
beni msn ye eklerseniz sevinirim.

Sevgilerimle
y_ilicak@hotmail.com

 

[malibu22]

En Son GÖnderdİĞİm Programda Perİsanoglu Çok HoŞ Şeyler YapmiŞ .. Elİne SaĞlik .. Şİmdİde Ayni Prg. Kayit YaptiĞim Verİlerİ Ertesİ GÜn Bulamiyorum.. Bunada Yardim İstİyorum. Perİsanoglunun Ekİnden Alabİlİrsİnİz ..

TŞkler

 

[perisanoglu]

En Son GÖnderdİĞİm Programda Perİsanoglu Çok HoŞ Şeyler YapmiŞ .. Elİne SaĞlik .. Şİmdİde Ayni Prg. Kayit YaptiĞim Verİlerİ Ertesİ GÜn Bulamiyorum.. Bunada Yardim İstİyorum. Perİsanoglunun Ekİnden Alabİlİrsİnİz ..

TŞkler

dostum msn de yazmışsın ama pc başında değildim cevap veremediğim için özür dilerim..programını birkaç gündür deniyorum..hergün birkaç bilgi girişi yaptım ama bir sorun yok..kullandığın officede bir sorun olabilir belki.birde makro güvenliğini düşük olarak ayarlada dene..iyi çalışmalar..