HATA MESAJI HAKKINDA BİLGİ

Katılım
8 Ekim 2004
Mesajlar
317
Excel Vers. ve Dili
EXCEL 2003 TÜRKÇE
HATA MESAJI HAKKINDA BÝLGÝ

UserForm2 üzerindeki CommandButon3 te aşağıdaki kodu çalıştırdığımda
hata veriyor.

Cod:

Private Sub CommandButton3_Click()
UserForm1.Show
End Sub

Hata Mesajı ;

Run time error '400';
Form already displayed: can't show modally

Butonu tıklayınca formun açılmasını istiyorum bu hatayı veriyor. Aynı zamanda bu komutu bir kod arasında çalıştırdığımdada hata veriyor

Bu sorunu nasıl çözebilirim

Yardımlarınıza teşekkürler
 
Katılım
3 Ağustos 2004
Mesajlar
87
eğer kodlarınızdan yanlış anlamadıysam

kod satırına load UserForm1 satırını eklersen sorunun çözülecektir.

Private Sub CommandButton3_Click()
load UserForm1
UserForm1.Show
End Sub
 
Katılım
8 Ekim 2004
Mesajlar
317
Excel Vers. ve Dili
EXCEL 2003 TÜRKÇE
Sayın hüsün demişki

kod satırına load UserForm1 satırını eklersen sorunun çözülecektir.

Private Sub CommandButton3_Click()
load UserForm1
UserForm1.Show
End Sub
Alakınıza teşekkür ediyorum ama sorun çözülmedi
 
X

xxrt

Misafir
http://www.excel.web.tr/viewtopic.php?t=757&highlight=hata+mesaj%FD
Aşağıdaki örnekte OnError ile 11 (Division by Zero) hatası kontrol edilmektedir:

Þu Kodlarla Hatayı denetleyin
Kod:
Sub Button1_Click () 
On Error GoTo HataKontrol 
A = 15 
B = 0 
Sunuc = A / B 

Exit Sub 'burada programa son verilir. 

HataKontrol: 
Select Case Err.Number 
Case 11: Mesaj = "Sıfıra bölünme hatası oluştu!!!" 
End Select 
MsgBox Mesaj 
Resume Next 

End Sub
CommandButton3 adında bir buton daha olmasın.Yada Dosyayı yollayın.. :mrgreen:
 
Katılım
8 Ekim 2004
Mesajlar
317
Excel Vers. ve Dili
EXCEL 2003 TÜRKÇE
xxrt Demişki
Þu Kodlarla Hatayı denetleyin
Hocam gönderdiğiniz kodu nereye kapyalamam gerekiyor. UserForm üzerine kopyaladım olmadı

Ayrıca UserForm1 üzerinde bir tane CommandButon3 var UserForm2 üzerinde de birtane CommandButon3 bulunmaktadır.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Her 2 UserForm üzerindeki CommandButton1 nesneleri diğer UserForm'u açmaya yarıyorsa;

UserForm1 modulüne:
Kod:
Private Sub CommandButton1_Click()
    Unload Me
    UserForm2.Show
End Sub
UserForm2 modulüne:

Kod:
Private Sub CommandButton1_Click()
    Unload Me
    UserForm1.Show
End Sub
 
Katılım
8 Ekim 2004
Mesajlar
317
Excel Vers. ve Dili
EXCEL 2003 TÜRKÇE
HATA MESAJI HAKKINDA BÝLGÝ

Kod:
Private Sub CommandButton1_Click() 
    Unload Me 
    UserForm2.Show 
End Sub
Hocam öncelikle Alakanıza çok teşekkür ederim

Ya benim beceriksizliğim yada bir sorun var ben çözemiyorum gönderdiğim örneği inceleyebilirmisiniz.

Sağlıcakla kalınız[/list]
 
X

xxrt

Misafir
UserForm1'in CommandButton3'ünün kodlarını silin bunları yapıştırın.
Kod:
Private Sub CommandButton3_Click()
'aranan numara yoksa
Set s1 = Sheets("EVRAK DEFTERİ")
noA = WorksheetFunction.CountA(s1.Range("a:a"))
For i = 1 To noA
    If s1.Cells(i, "b") = Val(TextBox1) Then
'devan et
Dim x As Integer
x = Sheets("EVRAK DEFTERİ").Range("B:B").Cells.Find(what:=TextBox1, LookIn:=xlValues).Row
TextBox1.Value = TextBox1
TextBox3 = Sheets("EVRAK DEFTERİ").Cells(x, 1)
TextBox4 = Sheets("EVRAK DEFTERİ").Cells(x, 4)
TextBox5 = Sheets("EVRAK DEFTERİ").Cells(x, 5)
TextBox6 = Sheets("EVRAK DEFTERİ").Cells(x, 6)
TextBox7 = Sheets("EVRAK DEFTERİ").Cells(x, 7)
TextBox8 = Sheets("EVRAK DEFTERİ").Cells(x, 8)
TextBox9 = Sheets("EVRAK DEFTERİ").Cells(x, 9)

CommandButton1.Enabled = True
Exit Sub
    End If
Next i
'Kaydı yoksa kayıt edeyimmi Numarasını yazmadıysa
İkaz = MsgBox("Evrak Numaralı bir kayıt yok." & vbCrLf & "Yeni Kayıt Yapmak İstermisiniz?", vbYesNo + vbExclamation, "Dikkat !")
If ikaz = vbNo Then Cancel = True
TextBox2.SetFocus
Unload Me
If İkaz = vbYes Then UserForm2.Show

'Tamam Düğmesine ait kod son

End Sub
Hata veren satır ise şu satır
Kod:
TextBox2.SetFocus
Unload Me
If İkaz = vbYes Then UserForm2.Show
UserForm1 arka planda çalıştığından Hataya sebep veriyor.
 
Katılım
8 Ekim 2004
Mesajlar
317
Excel Vers. ve Dili
EXCEL 2003 TÜRKÇE
Alakanıza teşekkür ederim. Bu sorunum çözülmedi bende daha fazla üstelemek istemedim başka bör yöntemle meseleyi hallatmeyi düşündüm.
Niyetim UserForm1 giriş formundan UserForm2.Show koduyla ekle güncelle formuna gitmek tekrar UserForm1 e dönmek istiyincede ilgili butonu tıklayarak bu forma gelmekti.

Ama şimdi Bir Ana form yapıp buradan tüm formlara ulaşmayı hedefledim. Ama sorun çözülürse konu hakkında aydınlatılmış oluruz.

Bu arada Cumanız müberik olsun, sağlıcakla kalın
 
Üst