Re: [belajar-access] Pindah Form

 

COBA BEGINI :

Dim VARA As Variant
VARA = DLookup("[CL_STOCK]", "TBARANG", "[STORE_KODE] = '" & Forms!TISSUE!STORE_KODE & "'")
Text69 = VARA
Text71 = VARA - Qty
If VARA <> Text71 Then

If MsgBox("STOK BARANG MENDEKATI MINIM, ORDER BARANG?", vbOKCancel) = vbOK Then
    DoCmd.OpenForm "TINDENT", acViewNormal
Else
    SATUAN_ISSUE.SetFocus
End If

 

End If
End Sub

---

From: Maulana <maulana_pup@yahoo.co.id>
To: belajar-access@yahoogroups.com
Sent: Friday, July 29, 2011 9:02 AM
Subject: [belajar-access] Pindah Form

 

Dear All

 

adakah koreksi dengn script di bawah, karena pada saat message di ok tidak pindah form,please

Dim VARA As Variant
VARA = DLookup("[CL_STOCK]", "TBARANG", "[STORE_KODE] = '" & Forms!TISSUE!STORE_KODE & "'")
Text69 = VARA
Text71 = VARA - Qty
If VARA <> Text71 Then
MsgBox "STOK BARANG MENDEKATI MINIM, ORDER BARANG?", vbOK
    If vbOK = True Then
    DoCmd.OpenForm "TINDENT", acViewNormal
    Else
    SATUAN_ISSUE.SetFocus
End If

 

End If
End Sub

__._,_.___

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

Messages in this topic (2)

Recent Activity:

• New Members 11

Visit Your Group

SPAM IS PROHIBITED

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

.

__,_._,___