Formu yenilemeden ListBox taki kayıtları göremiyorum.

[teksen]

Arkadaşlar merhaba,

Aşağıdaki kodlarla access dosyasındaki kayıtları farklı ListBox lara alıyorum.Fakat formu kapatıp açmadan malesef görünmüyor.Bunun için ne yapabiliriz acaba?

şimdiden teşekkür ederim.





Sub macoku0708()
On Error Resume Next
Set RS = CreateObject("ADODB.recordset")
STRSQL = "SELECT * FROM [0708] ORDER BY mac0708"
RS.Open STRSQL, adoCN, 1, 3
RS.MoveFirst
Do While Not RS.EOF
With UserForm8
.ListBox7.AddItem RS("mac0708")

End With
RS.MoveNext
Loop
Set RS = Nothing
End Sub





Private Sub UserForm_Activate()
With UserForm8


End With
Call macoku0708


End Sub

 

[Orion1]

Aşağıdaki deyimi kullanarak istediğiniz zaman listeleme yapabilirsiniz.

Call macoku0708

 

[teksen]

Teşekkür ederim Sn.Evren Gizlen fakat

Sub RefreshDB()

üzerinde

Call macoku0708
Call uyeoku0708
Call macoku0809
Call uyeoku0809


bu şekilde bir kod kullandığım zaman

sayfayı yeniliyor ama bu seferde sanki tekrar yazılmış gibi bir önceki için tekrar bir kayıt yazıyor.

sanırım doğru yer burası değil.

kaydet butonuna ekleyebileceğim bir yer varmıdır acaba aşağıdaki kodlarda



Private Sub kaydet_Click()



On Error Resume Next

Set RS = CreateObject("ADODB.recordset")
If ComboBox2.Text = "06:07" Then

STRSQL = "SELECT * FROM [0607] Where mac0607='" & TextBox1 & "'"
RS.Open STRSQL, adoCN, 1, 3
RS.AddNew
RS("mac0607") = TextBox1
RS("uye0607") = ComboBox1

RS.Update

RS.Close
RefreshDB
Set kayit = Nothing
End If

Set RS = CreateObject("ADODB.recordset")
If ComboBox2.Text = "07:08" Then

STRSQL = "SELECT * FROM [0708] Where mac0708='" & TextBox1 & "'"
RS.Open STRSQL, adoCN, 1, 3
RS.AddNew
RS("mac0708") = TextBox1
RS("uye0708") = ComboBox1


RS.Update

RS.Close
RefreshDB
Set kayit = Nothing
End If

Set RS = CreateObject("ADODB.recordset")
If ComboBox2.Text = "08:09" Then

STRSQL = "SELECT * FROM [0809] Where mac0809='" & TextBox1 & "'"
RS.Open STRSQL, adoCN, 1, 3
RS.AddNew
RS("mac0809") = TextBox1
RS("uye0809") = ComboBox1


RS.Update

RS.Close
RefreshDB
Set kayit = Nothing
End If






End Sub

 

[Orion1]

Kaydet butonunda en alttaki satıra ;

Call macoku0708