Tablo/Sorgu değil Değer Listesi (value list) olarak değiştirin ve
Kodunuzun altına sadece şu satırı ekleyin.
Kod:
liste1.AddItem Metin1Kod:
Private Sub Komut0_Click()
Randomize
Metin1 = Rnd() * 10 \ 1
liste1.AddItem Metin1
End Sub
#6
Öncelikle Liste Kutusunuzun özelliklerindeki kayıt kaynağı tipini;
Tablo/Sorgu değil Değer Listesi (value list) olarak değiştirin ve
Kodunuzun altına sadece şu satırı ekleyin.
Yani kodunuz şöyle olacak;
Tablo/Sorgu değil Değer Listesi (value list) olarak değiştirin ve
Kodunuzun altına sadece şu satırı ekleyin.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Konfüçyüs
