mungkin type datanya di database mas, bukan Type Long, mungkin lho........
----- Pesan Asli ---- Dari: god ril <[EMAIL PROTECTED]> Kepada: master Visual basic <[email protected]> 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... Yahoo! Toolbar kini dilengkapi dengan Search Assist. Download sekarang juga. http://id.toolbar.yahoo.com/
