LISTING PROGRAM FORM PRODUK

Private Sub kd_produk_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then

        If kd_produk.Text = "" Then

            MsgBox "Masukkan kd_produk produk !", vbInformation, "produk"

            kd_produk.SetFocus

            Exit Sub

        End If

        SQL = "SELECT * FROM produk WHERE kd_produk='" & kd_produk.Text & "'"

        If RS.State = adStateOpen Then RS.Close

        RS.Open SQL, Db, adOpenDynamic, adLockOptimistic

        If RS.RecordCount <> 0 Then

            Tampilproduk

            Call RubahCMD(Me, False, True, True, True)

            cmdproses(1).Caption = "&Edit"

            kd_produk.Enabled = False

        Else

            x = kd_produk.Text

            Call hapus

            kd_produk.Text = x

            Call RubahCMD(Me, False, True, False, True)

            cmdproses(1).Caption = "&baru"

        End If

        nama.SetFocus

    End If

End Sub