[belajar-access] Re: QUERY APPEND BIKIN MUMET

[lukito504]

Sedikit optimasi,

Sub OK_Click()

Dim I As Integer

    DoCmd.SetWarnings False

    For I = CInt(nomor1.Value) To CInt(nomor2.Value)
      DoCmd.RunSQL "INSERT INTO DATAKU (Nomor) VALUES (" & I & ")", True
    Next

    DoCmd.SetWarnings True

End Sub

Docmd.SetWarning tidak perlu di ulang dalam loop, kecuali memang betul-betul 
diperlukan.
Oh ya...kode seperti singkat tapi lambat (yang penting hasilnya seperti yang 
diiginkan).

Thanx.