رساله تنبيه ان رقم الصنف مكرر بالفاتوره

[النجاشي]

السلام عليكم 

احبتي  الكرام 

اريد ظهور رساله تمنع تكرار اضافه الصنف لفاتوره المرتجع من نموذجfrmEdrajSenfm عند الضغط على زر الادارج  

شاكرين احبتي الكرام

تحياتي اليكم

 

رساله التكرار.rar

تم تعديل ديسمبر 31, 2017 بواسطه ابو زاهر

[النجاشي]

للرفع

[jjafferr]

وعليكم السلام اخوي وضاح

 

استعمل هذا الكود للزر "ادراج بالفاتوره" ، بدل الكود الموجود حاليا:

Private Sub أمر44_Click()
On Error Resume Next

Forms![frm_Recall_sales]![Rjmfatwra2] = Me.Rjmfatwra

    Dim Rs As DAO.Recordset
    Set Rs = Forms!frm_Recall_sales!SubSales.Form.RecordsetClone

    Rs.FindFirst "[Rjmfatwra] = '" & Me.n7 & "' And ID_Sanf =" & Me.ID_Sanf
    If Rs.NoMatch = False Then
        MsgBox "Record Exists"
        GoTo No_Records
    Else

Rs.AddNew
Rs!Rajmsanf = Me.Rajmsanf
Rs!ID_Sanf = Me.ID_Sanf
'Rs!Price_Sales = Me.Price
Rs!Price = Me.Price
'Rst!Price = Me.Price_Sales
Rs!Alkmiah = Me.n6
Rs!Atarih = Me.Atarih
Rs!Nwaha = Me.Nwaha
Rs!Rjmfatwra = Me.n7
Rs!Adfah = Me.Adfah
Rs!NoEmp = Me.NoEmp
Rs.Update

Me.Price_Sales = Null
Me.ID_Sanf = Null
Me.Rajmsanf = Null
Me.Sanf = Null
'sarabaih = Null
Me.Price = Null
Me.n9 = Null
Me.n6 = Null
Me.Alkmiah = Null
Me.الاجمالي = Null
Me.Atarih = Null
Me.Nwaha = Null
Me.Rjmfatwra = Null
Me.Adfah = Null
Me.NoEmp = Null
Rajmsanf.SetFocus

    End If
    
No_Records:

Rs.Close
 
'DoCmd.Close

'   End If
End Sub

.

جعفر

844.رساله التكرار.mdb.zip

[النجاشي]

2 ساعات مضت, jjafferr said:

وعليكم السلام اخوي وضاح

 

استعمل هذا الكود للزر "ادراج بالفاتوره" ، بدل الكود الموجود حاليا:

Private Sub أمر44_Click()
On Error Resume Next

Forms![frm_Recall_sales]![Rjmfatwra2] = Me.Rjmfatwra

    Dim Rs As DAO.Recordset
    Set Rs = Forms!frm_Recall_sales!SubSales.Form.RecordsetClone

    Rs.FindFirst "[Rjmfatwra] = '" & Me.n7 & "' And ID_Sanf =" & Me.ID_Sanf
    If Rs.NoMatch = False Then
        MsgBox "Record Exists"
        GoTo No_Records
    Else

Rs.AddNew
Rs!Rajmsanf = Me.Rajmsanf
Rs!ID_Sanf = Me.ID_Sanf
'Rs!Price_Sales = Me.Price
Rs!Price = Me.Price
'Rst!Price = Me.Price_Sales
Rs!Alkmiah = Me.n6
Rs!Atarih = Me.Atarih
Rs!Nwaha = Me.Nwaha
Rs!Rjmfatwra = Me.n7
Rs!Adfah = Me.Adfah
Rs!NoEmp = Me.NoEmp
Rs.Update

Me.Price_Sales = Null
Me.ID_Sanf = Null
Me.Rajmsanf = Null
Me.Sanf = Null
'sarabaih = Null
Me.Price = Null
Me.n9 = Null
Me.n6 = Null
Me.Alkmiah = Null
Me.الاجمالي = Null
Me.Atarih = Null
Me.Nwaha = Null
Me.Rjmfatwra = Null
Me.Adfah = Null
Me.NoEmp = Null
Rajmsanf.SetFocus

    End If
    
No_Records:

Rs.Close
 
'DoCmd.Close

'   End If
End Sub

.

جعفر

844.رساله التكرار.mdb.zip

تسلم يديك يا حبيبنا جفعر ابداع جميل

كل عام وانت بخير وصحه وعافيه

شكرا اليك حبيبنا جعفر هو المطلوب بكله