Bls: [belajar-access] MsgBox Tanggal kadaluarsa

 

Gunakan function date-1 untuk dibandingkan dengan kolom tgl kadaluwarsa. Kalau tgl_kdlwarsa >= date() -1 tampilan msgbox "kadaluwarsa,...."

 

scriptnya bisa dimasukkan pada event on doubleclick pada barang yg mau dicek. Misal;

 

Private Sub ID_DblClick(Cancel As Integer)
    If Forms![frm_barang]![tgl_kadaluwarsa] >= Date-1 Then
        MsgBox "kadaluwarsa"
    End If
End Sub

 

 

Semoga membantu

 

omadhe - Balikpapan

Dari: Soetrisno <trisno_ae@yahoo.com>
Kepada: belajar-access@yahoogroups.com
Dikirim: Selasa, 24 Januari 2012 14:19
Judul: [belajar-access] MsgBox Tanggal kadaluarsa

 

Dear master access

mohon pencerahan, bagaimana caranya membuat MsgBox Tanggal kadaluarsa,
sesuai batas waktu yang ditentukan, misal tgl kadaluarsa : 02/02/12,maka sehari sebelumnya akan menampilkan pesan peringatan tgl tersebut atau nama barang yang sudah kadaluarsa. maklum lagi belajar banyak tanya.

Terima kasih

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 12

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___