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ı: 2)
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.

Visual Basic Code
Unload UserForm1
'UserForm1.Show

Yukarıdkileri silip

Visual Basic Code
UserForm_Initialize

eklemeniz yeterli.


Visual Basic Code
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

Son Düzenleme: 02/05/2020, 23:04, Düzenleyen: feraz.
Cevapla
#3
Gereksiz mesaj oldu yanlışlık olarak.
Son Düzenleme: 02/05/2020, 23:20, Düzenleyen: feraz.
Cevapla
#4
UserForm_Initialize içindeki alttaki kodu Next satırının altına almalısınız.


Visual Basic Code
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

Visual Basic Code
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

Visual Basic Code
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