Rabu,10 Oktober 2012

Pagi ini saya browsing tentang coding right(pengambilan data).Siangnya saya membenahi project ASKES pada ID agar muncul ID secara otomatis.

Berikut ini adalah Source Coding yang saya tambahkan :

Private Sub AN()

Call koneksidb

rs.Open ("Select Count(id) as id from terapi where induk = '" & Text1.Text & "'"), con

rs.Requery

            Dim Urut As Integer, titik As String, id As String

            Dim Hitung As Long

                Urut = Text1.Text

                titik = "."

    With rs

        If rs.EOF Then

        Else

            Hitung = rs.Fields!id + 1

            id = (Urut & titik & Hitung)

            Text2 = id

                Text3.SetFocus

        If Text1.Text = "0" Then

            Hitung = (rs.Fields!id)

            id = (Hitung)

            Text2 = id

                Text3.SetFocus

        End If

        End If

    

    End With

End Sub

Nahh , setelah project saya selesai saya presentasi ke pembimbing saya ..
Ehh ternyata ada kesalahan pada pengambilan rigth di induk-nya..
Setelah sharing dengan mas yondi akhirnya project saya sudah bisa di jalankan lagi.
Trimakasih , di tunggu komentnya ya :D :) Selamat Sore ^.^