Listbox clear sorunu

[kemal turan]

Merhaba,
Alış ve Satış userformlarımız var.
Alış userformunda alıs.listbox1 den ürün seçip FİŞ adlı sayfaya gönderiyorum.
Bu bilgileri de FİŞ sahifesinden alıs.listbox2 de görüntülüyorum. İşlem bittiğinde FİŞ sahifesindeki bilgileri kodla silip userformu kapatıyorum.
Sonra Satış userformunu açtığımda satış userformunun listbox2 de bir önceki alış işleminde FİŞ sahifesine gönderip silinen ürün bilgileri geliyor.
userformların açılışında listbox2.clear koduna rağmen yine geliyor.
Nasıl çözebilirim.
Teşekkür ederim

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 6
    ListBox1.ColumnWidths = "30;146;30;50;50;50"
 ListBox2.ColumnCount = 6
    ListBox2.ColumnWidths = "30;50;150;50;50;50"
Call ALINAN
alıssıparıs.ListBox2.Clear
alıssıparıs.GOSTERFIS
End Sub

 

[kemal turan]

Listbox değiştirdim sorun aynı olunca sıkıntının işlem bittiğinde FİŞ sahifesinde yaptığım silme kodunda olduğunu düşünüyorum.

 

[Muzaffer Ali]

Listboxu temizleyen satır.

alıssıparıs.ListBox2.Clear

Bu satırdan sonraki kodlarla yeniden yükleniyor demekki.

alıssıparıs.GOSTERFIS

Kodlarını kontrol edin.

 

[kemal turan]

Muzaffer Hocam
dosyanın içini boşalttım.
giriş şifre
KEMAL
54321

 

[Muzaffer Ali]

Formu açtığımda alıs.listbox1 boş geliyor.

 

[kemal turan]

listbox1 e birşeyler yazıp ürünleri getirin, gelen ürünlerin satırına çift tıklayın, adet i onaylayın, cari yi seçip satışı kaydedip çıkın.
sonra alış yapmak istediğinizde alış userformu açıldığında fiş listesi sahifesinde sanki seçili bir ürün varmış gibi veri geliyor.
Halbuki bir önceki işlemden sonra fiş listesi sahifesini temizliyor.
Gelmemesi lazım.

 

[Muzaffer Ali]

Dediğiniz şey her seferinde olmuyor bazen oluyor.
Ama çözemedim sorunu.

 

[kemal turan]

Sorun kaynağı olabilecek neden
SATISADET
KAYDET butonunda
if ..... userform.visible = True kodunda olumsuzluk halinde
end if den önce
else
exit sub
komutunu vermedim. Büyük ihtimal burdan çıkacak
Bilgisayarım şimdi mevcut değil yarın bakacağım
Teşekkür ediyorum