1. 1.
    0
    @7 private sub command4_click()
    form6.visible = true
    end sub

    private sub timer1_timer()
    combo1.clear
    data1.recordset. movelast
    data1.recordset. movefirst
    kullanıcısayısı = data1.recordset. recordcount
    on error resume next

    for a = 1 to kullanıcısayısı
    combo1.additem text3.text
    data1.recordset. movenext
    next
    data1.recordset. movelast
    data1.recordset. movefirst
    timer1.interval = 0

    end sub

    var mı bi yanlışlık baksana
    ···
   tümünü göster