aslm mohon pencerahan fungsi panggil combobox kenapa tidak bias jalan ketila saya panggil di Form_Load() dengan
call isi awal
ini fungsi nya :
Function isian_awal()
Dim st, sx, sj, sk, ss, sl As Variant
cmdKecamatan.Visible = False
cmdKecamatan.RowSource = ""
koneksi
If conn.State <> 0 Then
Set rsp = conn.Execute("select DISTINCT kec_Nama" _
& " from kecamatan order by kec_nama asc")
st = ""
If Not rsp.EOF Then
Do While Not rsp.EOF
st = st & rsp.Fields(0) & ";"
rsp.MoveNext
Loop
End If
Next
End If
rsp.Close
Set rsp = Nothing
End Function
cmdKecamatan.RowSource = ""
koneksi
If conn.State <> 0 Then
Set rsp = conn.Execute("select DISTINCT kec_Nama" _
& " from kecamatan order by kec_nama asc")
st = ""
If Not rsp.EOF Then
Do While Not rsp.EOF
st = st & rsp.Fields(0) & ";"
rsp.MoveNext
Loop
End If
Next
End If
rsp.Close
Set rsp = Nothing
End Function
__._,_.___
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (4) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar