Rabu, (10/10/2012)
Hiri ini saya Bisa membuat auto number
langkah langkahnya di bawah ini ...!!- Kita buka Visual Basicnya
- Kita buat Form sepertin di bawah ini
3. Setelah Selesai buat Form seperti di atas
kita klik project => Preferences => lalu pilih seperti yang ada di gambar di bawah ini...
4. setelah itu kita pilih View Code dan masuk masukkan script di bawah ini..
txtinduk = textbox yang di lingkari warna merah
txtid= textbox yang di lingkari warna hitam
-----------------------------------------------------------------
Dim conn As New ADODB.Connection
Dim pilih As Integer
-----------------------------------------------------------------
Private Sub txtinduk_KeyPress(KeyAscii As Integer)
'Call angka
If KeyAscii = 13 Then
OpenRecordset "SELECT induk, id, kls_terapi, hal from terapi1 " & _
" where id = '" & txtinduk.Text & "'", conn
If Not rs.EOF Then
txtinduk = rs.Fields!id
Call AN
Else
MsgBox " Maaf No Induk Ini Tidak ada di database ", vbInformation, "Warning"
Call kosong
txtinduk.SetFocus
End If
End If
'If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") _
' Or KeyAscii = vbKeyBack) Then
' KeyAscii = 0
'
'End If
End Sub
-----------------------------------------------------------------
Private Sub AN()
Call kon 'Koneksi
rs.Open ("Select Count(id) as id from terapi1 where induk = '" & txtinduk.Text & "' "), conn
rs.Requery
Dim Urut As String, titik As String, ids As String, s As Integer
Dim Hitung As Long
Urut = txtinduk.Text
titik = "."
With rs
If rs.EOF Then
Else
If txtinduk.Text = "0" Then
Hitung = (rs.Fields!id)
ids = (Hitung)
txtid = ids
txtnama.SetFocus
txttingkat.Text = "0"
Else
Hitung = rs.Fields!id + 1
ids = (Urut & titik & Hitung)
txtid = ids
txtnama.SetFocus
s = UBound(Split(txtinduk.Text, ".")) + 1
txttingkat.Text = s
End If
End If
End With
End Sub
-----------------------------------------------------------------
Silakan Mencoba Dan semoga Berhasil.....
Kalau ada Yang masih Bingung Bisa komentar di bawah ini....
|| Good luck ||
0 komentar:
Posting Komentar