Silahkan Modifikasi program yang disertakan ini, ma'af ya..
----- Original Message ---- From: Setyo H <[EMAIL PROTECTED]> To: [email protected] Sent: Monday, April 30, 2007 9:16:26 PM Subject: [indoprog-vb] [ASK]: Nomor Otomatis lagi Saya juga mempunyai permasalahan juga dengan pemberian nomor otomatis di sebuah textbox, ini scriptnya: Private Sub AutoNo() Dim No As Double scari = "Select Nomor from CONTOH order by Nomor desc" Set RCari = New ADODB.Recordset RCari.Open scari, CN, adOpenKeyset If RCari.RecordCount <> 0 Then No = Val(RCari("Nomor" )) + 1 NoStr = Digit(2, No) Text2 = NoStr If nosave = True Then 'MsgBox "NOMOR TRANSAKSI YANG TERSIMPAN'" + Trim(Text1) + "'" End If Else No = 1 NoStr = Digit(2, No) Text2 = NoStr End If RCari.Close Set RCari = Nothing End Sub Pesan error yg muncul, tidak ada data yg tersimpan dalam tabel contoh.Baru ketika ada data dalam tabel tersebut, baru bisa berjalan autono-nya. Kebetulan database pake MySql, akan tetapi kalo saya implementasikan di MS SQL Server bisa jalan. Apa pengaruh didatabasenya ya? Terima Kasih Setyo Send instant messages to your online friends http://uk.messenger.yahoo.com [Non-text portions of this message have been removed]
