frm_SIPARIS_BEKLEYEN adlı formun İŞ EMRİ adını verdiğiniz Komut76 adlı butonun Tıklandığında olay yordamı içerisine,aşağıdaki kod ifadelerini eskisinin yerine ekleyiniz.(ya da eskisini etkisizleştiriniz,daha sonra belki değerlendirmek üzere).
Kod:
Me.Onay65 = -1
Me.RENK = "SARI"
RENK = Me.RENK
Dim C As Integer
Dim stDocName As String
Dim stLinkCriteria As String
' strLinkCriteria = "[SIP_NO]=" & Me.SIPARIS_NO
strLinkCriteria = "[SIP_NO]=" & Forms!ANAFORM!Sub.Form!SIPARIS_NO
'If DCount("SIP_NO", "[tbl_ISEMRI]", "SIP_NO=" & Me.SIPARIS_NO) > 0 Then
If DCount("SIP_NO", "[tbl_ISEMRI]", "SIP_NO=" & Forms!ANAFORM!Sub.Form!SIPARIS_NO) > 0 Then
If MsgBox("BU SİPARİŞİN İŞ EMRİ DAHA ÖNCE AÇILMIŞ..., AÇILMIŞ OLAN İŞ EMRİ'Nİ GÖRMEK İSTERMİSİNİZ...?", _
vbYesNo) = vbYes Then
DoCmd.OpenForm "frm_ISEMRI_GOR_BEKLEYEN", acNormal, stLinkCriteria
Else
Undo
End If
Else
C = MsgBox("İŞ EMRİ OLUŞTURMAK İSTİYORMUSUNUZ..!", vbOKCancel + vbQuestion, "İŞ EMRİ")
If C = vbOK Then
DoCmd.OpenForm "frm_ISEMRI_YAP", , , strLinkCriteria
Else
Me.Undo
End If
End If