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
