Skip to main content

AccessTr.neT


Çarpıdan Formu Kapatmak

Çarpıdan Formu Kapatmak

Çözüldü #1
Merhaba Arkadaşlar

Eklediğim uygulamada exceli açtığım zaman UserFom4 açılıyor. listede çift tıklayarak seçili personel sayfasına gidiyorum giriş butonuna tıklayarak UserForm1 Açılıyor. 

UserForm1 de Müşteri Listesi butonuna tıkladığımda UserForm2 açılıyor. Listede başka müşteriyi çift tıkladığım zaman o müşterinin sayfasına gidiyorum ve tekrar UserForm1 açılıyor. UserForm1 çarpı işareti ile kapatığım zaman excl sayfası kilitleniyor. Excel kurtarfa devreye giriyor.

Özetle Useerfom1 de Müşteri Listesi butonu UseerFom2 ile sayfalar arası geçiş yaptığım zaman UserForm1 çarpı işareti ile kapatamiyorum. Excel kilitleniyor.
.rar Per.3.rar (Dosya Boyutu: 496,56 KB | İndirme Sayısı: 3)
Son Düzenleme: 02/05/2020, 20:44, Düzenleyen: m_demir.
Cevapla
#2
Userform1 i kapatıp açtırmanıza bence gerek yok.

Unload UserForm1
'UserForm1.Show
Yukarıdkileri silip
UserForm_Initialize
eklemeniz yeterli.


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next

Sheets(ListBox1.Text).Select
Unload UserForm2
UserForm_Initialize
'Unload UserForm1
'UserForm1.Show
End Sub
Cevapla
#3
Gereksiz mesaj oldu yanlışlık olarak.
Cevapla
#4
UserForm_Initialize içindeki alttaki kodu Next satırının altına almalısınız.


ListBox1.ColumnCount = 11
               
ListBox1.ColumnWidths = "20;55;60;140;65;65;50;50;65;65;65"
ListBox1.ColumnHeads = True
ListBox1.RowSource = "A7:K" & [A65536].End(3).Row + 1
Cevapla
#5
Son olarak ilgili kodları alttaki gibi yapınız.

Userform2 kod
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next

Sheets(ListBox1.Text).Select
Unload UserForm2
UserForm_Initialize
End Sub
Userform1 kod
Private Sub UserForm_Initialize()
 
  'ComboBox3.MatchEntry = fmMatchEntryComplete
    For i = 7 To [d65536].End(3).Row
        If WorksheetFunction.CountIf(Range("d7:d" & i), Cells(i, "d")) = 1 Then
          ComboBox3.AddItem CStr(Cells(i, 4))
 
      'TextBox1.Text = CDate(Date) 'Form Açýlýþta otomatik tarih
       
      End If
    Next

'TextBox1.Text = CDate(Date) 'Form Açýlýþta otomatik tarih
ListBox1.ColumnCount = 11
ListBox1.ColumnWidths = "20;55;60;140;65;65;50;50;65;65;65"
ListBox1.ColumnHeads = True
ListBox1.RowSource = "A7:K" & [A65536].End(3).Row + 1

ComboBox1.RowSource = "Liste!l1:l2"
On Error Resume Next
TextBox21.Text = [e2]
TextBox22.Text = [e4]
TextBox23.Text = [e5]
TextBox60.Text = [C4]
TextBox61.Text = [C5]
TextBox29.Text = [a1]
TextBox24.Text = [g1]
TextBox25.Text = [g2]
TextBox27.Text = [G3]
TextBox63.Text = [G5]
TextBox62.Text = [ý1]
TextBox64.Text = [ý5]
TextBox65.Text = [K4]

'ComboBox1_Change
TextBox21 = Format(TextBox21, "#,##0.00")
TextBox22 = Format(TextBox22, "#,##0.00")
TextBox23 = Format(TextBox23, "#,##0.00")
TextBox60 = Format(TextBox60, "#,##0.00")
TextBox61 = Format(TextBox61, "#,##0.00")
TextBox24 = Format(TextBox24, "#,##0.00")
TextBox25 = Format(TextBox25, "#,##0.00")
TextBox27 = Format(TextBox27, "#,##0.00")
TextBox63 = Format(TextBox63, "#,##0.00")
TextBox62 = Format(TextBox62, "#,##0.00")
TextBox64 = Format(TextBox64, "#,##0.00")
TextBox65 = Format(TextBox65, "#,##0.00")

'TextBox5.MaxLength = 2
End Sub
Cevapla
#6
Çok, çok teşekkürler Hocam ellerinize sağlık. 

Hocam UserForm_Initialize ile sayfadaki veriler listede güncelliyoruz.

Unload Me UserForm1.Show kodları ile sayfayı yenilemeden sayfadaki verileri TextBox ve ComboBox larda günceliyebilirmiyiz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da