kasus nya begini siswa hanya bisa pinjam satu buku , dan jika siswa masih belum mengembalikan buku , maka siswa tidak boleh meminjam buku , dan di sebelum input peminjaman ada pengecekan peminjaman buku siswa .
Dim rbuk As Recordset
Dim sSQL As String
Dim ssql2 As String
Dim terang As String
Dim rspinjam As Recordset
Dim ab As String
ab = "sudah di kembalikan"
Set rspinjam = New ADODB.Recordset
rspinjam.Open "SELECT * FROM pinjam WHERE nis='" & Trim(Me.txtcek.Text) & "'", conndb
If Not rspinjam.EOF Then
If rspinjam!statusbuku = "sudah di kembalikan" Then
MsgBox "Siswa dapat meminjam buku", vbInformation, "Info"
Else
MsgBox "Maaf, Siswa dilarang Meminjam buku !!", vbCritical, "Info"
End If
Else
MsgBox "Data Siswa Tidak Ditemukan", vbInformation, "Info"
End If
aku suka dgn makalah ini byk ilmunya terutama bagi parapemula
BalasHapussmg bagi pembaca yg lain juga sgt manfaat trims
terima kasih banyak gan saya sudah cri kemana2 script ini semoga sukses
BalasHapus