[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 (1)

Recent Activity:

• New Members 11

Visit Your Group

SPAM IS PROHIBITED

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

.

__,_._,___