Userformu Açarken Hata Oluyor

[ahmedummu]

Merhaba arkadaşlar.

Aşağıdaki kod ile Form17'yi ilk açışımda sorun olmuyor. Formu kapatıp tekrar açtığımda, "Form already displayed; can't show modally" hatasını veriyor. (400)

UserForm1.Hide
UserForm17.Show

Aşağıdaki kod ile de

Dim as New Userform17
Userform1.Hide
Userform17.Show

Yine formu ilk açtığımda bir sorun yok ama kapatıp tekrar açtığımda altında bir form daha açılıyor. 10 kez kapatıp açtığımda altına 10 form daha açılıyor.

 

[cems]

Formu kapatıp tekrar açtığımda,

UserForm1.Hide
UserForm17.Show

Aşağıdaki kod ile de

Dim as New Userform17
Userform1.Hide
Userform17.Show

Hide kapatmaz gizler. Yani , söylediği gibi gösterimde ve açık.

Gerçekten kapatması için

Userform1.Hide

yerine

Unload Userform1

kullanın .

 

[ahmedummu]

Teşekkürler sayın cems.

 

[ahmedummu]

Sayın cems aynı hatayı yine verdi.

Userform17 kapatma kodu

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Unload UserForm17
UserForm1.Show
End Sub

Buda

Private Sub Image3_Click()
Unload UserForm1
UserForm17.Show
End Sub

Userform17 açma kodu. İlk açıp kapattığımda bir sorun yok. ikinci kez açtığımda "Form already displayed; can't show modally" hatası veriyor.

 

[askm]

Hata ne veriyor. Dün bana gönderdiğiniz dosya ise onu ben 64 bite uyarlamıştım. 32 bit olarak kodları revize etmeniz gerekir tekrardan.

 

[ahmedummu]

Evet demiştiniz. Şimdi hatırladım. Sağolun.

 

[ahmedummu]

Arkadaşlar yine aynı hatayı verdi.

 

[askm]

Dosyanızın yeni halini bana mail atın düzeltip göndereyim.

 

[ahmedummu]

Sayın askm kurusa bakmayın işim vardı evde değildim. cevap biraz geç oldu. Dosyayı gönderdim. form1 deki ikonlardan diğer formları açın ve kapatıp tekrar açın o zaman hata vereiyor.