kayanya sih waktu Dim i as Integer coba ganti dengan double dim i as double
Private Sub Form_Load() > > Dim i As Integer > > Call Konek --- rifztm <[EMAIL PROTECTED]> wrote: > data lebih dari 9999 tidak ada hubungan dengan ms > access, coba ganti > type data I dengan yang lebih tinggi misal long atau > real. > saya pakai aplikasi lebih dari 50 ribu record ndak > ada masalah. > > > salam, > > --- In [email protected], Asep Surya > <[EMAIL PROTECTED]> > wrote: > > > > Kalo Pake MS Access, setahu saya > > kalo datanya udah lebih dari 9999 harus pake > script tambahan > > sayangnya saya lupa lg scriptnya.. > > coba tanya ajah mas google > > > > > > ----- Pesan Asli ---- > > Dari: yudi susanto <[EMAIL PROTECTED]> > > Kepada: [email protected] > > Terkirim: Minggu, 1 Juni, 2008 23:42:55 > > Topik: Bls: [Programmer-VB] overflow > > > > > > mungkin type datanya di database mas, bukan Type > Long, mungkin > lho........ > > > > > > ----- Pesan Asli ---- > > Dari: god ril <[EMAIL PROTECTED] com> > > Kepada: master Visual basic <programmer-vb@ > yahoogroups. com> > > Terkirim: Sabtu, 31 Mei, 2008 23:53:09 > > Topik: [Programmer- VB] overflow > > > > > > Dim Conn As New ADODB..Connection > > Dim Rs As New ADODB.Recordset > > Dim StrConnect As String > > Dim StrSQL As String > > > > Sub Konek() > > StrConnect = "Provider=Microsoft .Jet.OleDB. > 4.0;Data Source=" + > App.Path + "\penjualan. mdb" > > If Conn.State = adStateOpen Then > > Conn.Close > > Set Conn = New ADODB.Connection > > Conn.Open StrConnect > > Else > > Conn.Open StrConnect > > End If > > End Sub > > > > Private Sub Form_Load() > > Dim i As Integer > > Call Konek > > StrSQL = "select No_faktur from item" > > Set Rs = Conn.execute( StrSQL) > > i = Rs("No_Faktur" ) > > Txtfaktur = i + 1 > > End Sub > > > > > > "Kenapa pasti overflow kalau datanya lebih dari > 9999?" > > tolong jelasin + kasih solusinya... . > > trims... > > > > ________________________________ > > Dapatkan info tentang selebritis - Yahoo! > Indonesia Search. > > > > > > Yahoo! Toolbar kini dilengkapi dengan Search > Assist. > Download sekarang juga. > > http://id.toolbar.yahoo.com/ > > > > >
