اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ادارج الاصناف بالفاتوره

النجاشي

بواسطه النجاشي
في قسم الأكسيس Access

 مشاركة
إذهب إلى أفضل إجابة Solved by jjafferr,

الردود الموصى بها

النجاشي

النجاشي

قام بنشر
قام بنشر (معدل)

السلام عليكم ورحمه الله وبركاته  احبتي الكرام   موضوعي

اريد ادارج الأصناف من نموذج frm_Search

الي نموذج اسمه ادراج  بفاتوره مبيعات 

عن طريق ضغطه واحده بزر انتر  بشرط الصنف المظلل باللون الأزرق سوا كان عند البحث او عند حركه السهم

وعندما يتم الادراج بفاتوره المبيعات  يمسح الصنف الموجود بنموذج الادراج

شاكرين مقدرين لتعاونكم معنا

اخوكم وضاح

215.rar

تم تعديل بواسطه ابو زاهر
jjafferr

jjafferr

قام بنشر
قام بنشر
20 ساعات مضت, ابو زاهر said:

وعندما يتم الادراج بفاتوره المبيعات  يمسح الصنف الموجود بنموذج الادراج

 

وعليكم السلام:smile:

 

قصدك بنموذج frm_Search ؟

مع العلم ، بأن النموذج " ادراج بفاتوره مبيعات" لا يمكنه اخذ اكثر من سجل واحد ، وذلك لأنه غير مضمن (ليس مرتبط بجدول).

 

جعفر

  • Like 1
النجاشي

النجاشي

قام بنشر
  • الكاتب
قام بنشر
الان, jjafferr said:

 

وعليكم السلام:smile:

 

قصدك بنموذج frm_Search ؟

مع العلم ، بأن النموذج " ادراج بفاتوره مبيعات" لا يمكنه اخذ اكثر من سجل واحد ، وذلك لأنه غير مضمن (ليس مرتبط بجدول).

 

حياك الله اخي جعفر دوما وانت المبادر جزاك الله خير ممكن تعملها لي حبه حبه حتا ينفهم الموضوع اليك اخي اكثر اريد الاتي

1- عندما افتح نموذج فاتوره مبيعات طبعا بعدها يفتح نموذج الادراج بعدها يفتح نموذج الاصناف الذي اسمه Fom-search تمام فالمطلوب عندما ابحث عن الصنف او بحركه السهم يعني الصنف المظلل اريد يرحل الصنف لفورم الا اسمه  .ادراج بفاتوره مبيعات. عندما اضغط انتر 

2- طبعا عندما يرحل من نموذج الاصناف الي نموذج الادراج يرسل الصنف الى الفاتوره بعد ارسال الصنف اريد يمسح البيانات بنموذج الادراج واذا اخي لم تتضح الفكره عملت لي الشرح برقم 1 حبه حبه باذن الله نصل الى المراد

فشكر اليك اخي على مبادرتك وعملك الخيري لنا اسال الله ان يجزيك كل خير

  • أفضل إجابة
jjafferr

jjafferr

قام بنشر
  • أفضل إجابة
قام بنشر

تفضل:smile:

 

  

Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo err_Form_KeyDown

    temp_MYn1 = Me.sfrm_Search!MYn1
    
    Select Case KeyCode
  
        Case vbKeyDown
    
            Me.sfrm_Search!MYn1 = 0
            I_went = "Down"
            Me.sfrm_Search.Form.RecordsetClone.MoveNext
            Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
            KeyCode = 0
   
        Case vbKeyUp
    
            Me.sfrm_Search!MYn1 = 0
            I_went = "Up"
            Me.sfrm_Search.Form.RecordsetClone.MovePrevious
            Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
            KeyCode = 0
            
        Case vbKeyReturn
        
            Me.sfrm_Search.Form.RecordsetClone.FindFirst "[Rajmsanf]='" & Me.sfrm_Search!MYn1 & "'"
            
            DoCmd.OpenForm "ادارج بفاتوره المبيعات"
            Forms![ادارج بفاتوره المبيعات]![رقم الصنف] = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
            Forms![ادارج بفاتوره المبيعات]![اسم الصنف] = Me.sfrm_Search.Form.RecordsetClone!NaEMP
            Forms![ادارج بفاتوره المبيعات]![الكميه] = Me.sfrm_Search.Form.RecordsetClone!Arsid
            Forms![ادارج بفاتوره المبيعات]![السعر] = Me.sfrm_Search.Form.RecordsetClone!sarabaih
            
            Me.sfrm_Search.Form.RecordsetClone.Delete
            KeyCode = 0
            
    End Select
    
Exit_Form_KeyDown:
Exit Sub
err_Form_KeyDown:

    If Err.Number = 2113 Or Err.Number = 3021 Then
        
        If I_went = "UP" Then
            Me.sfrm_Search.Form.RecordsetClone.MoveNext
        Else
            Me.sfrm_Search.Form.RecordsetClone.MovePrevious
        End If
        
        Me.sfrm_Search!MYn1 = temp_MYn1
        Resume Exit_Form_KeyDown
        
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

 

جعفر

737.215.accdb.zip

  • Like 1
النجاشي

النجاشي

قام بنشر
  • الكاتب
قام بنشر
36 دقائق مضت, jjafferr said:

تفضل:smile:

 

  


Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo err_Form_KeyDown

    temp_MYn1 = Me.sfrm_Search!MYn1
    
    Select Case KeyCode
  
        Case vbKeyDown
    
            Me.sfrm_Search!MYn1 = 0
            I_went = "Down"
            Me.sfrm_Search.Form.RecordsetClone.MoveNext
            Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
            KeyCode = 0
   
        Case vbKeyUp
    
            Me.sfrm_Search!MYn1 = 0
            I_went = "Up"
            Me.sfrm_Search.Form.RecordsetClone.MovePrevious
            Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
            KeyCode = 0
            
        Case vbKeyReturn
        
            Me.sfrm_Search.Form.RecordsetClone.FindFirst "[Rajmsanf]='" & Me.sfrm_Search!MYn1 & "'"
            
            DoCmd.OpenForm "ادارج بفاتوره المبيعات"
            Forms![ادارج بفاتوره المبيعات]![رقم الصنف] = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
            Forms![ادارج بفاتوره المبيعات]![اسم الصنف] = Me.sfrm_Search.Form.RecordsetClone!NaEMP
            Forms![ادارج بفاتوره المبيعات]![الكميه] = Me.sfrm_Search.Form.RecordsetClone!Arsid
            Forms![ادارج بفاتوره المبيعات]![السعر] = Me.sfrm_Search.Form.RecordsetClone!sarabaih
            
            Me.sfrm_Search.Form.RecordsetClone.Delete
            KeyCode = 0
            
    End Select
    
Exit_Form_KeyDown:
Exit Sub
err_Form_KeyDown:

    If Err.Number = 2113 Or Err.Number = 3021 Then
        
        If I_went = "UP" Then
            Me.sfrm_Search.Form.RecordsetClone.MoveNext
        Else
            Me.sfrm_Search.Form.RecordsetClone.MovePrevious
        End If
        
        Me.sfrm_Search!MYn1 = temp_MYn1
        Resume Exit_Form_KeyDown
        
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

 

جعفر

737.215.accdb.zip

السلام عليكم اخي واستاذي الكريم  جعفر ربنا يبارك فيك كم يولمنا عندما لانقدر نوصف المطلوب بالطريقه الصحيحه  لكن باذن الله علي كرمك وصبرك راح تاخذه عند الله

اخي الكريم جعفر كان قصدي المسح من نموذج الادارج بعد ما ينتقل الصنف الى الفاتوره اما المسح من هذا النموذج frm_Search ؟ ليس المطلوب

لكن انت عدل لي الكود بحيث يدرج الصنف بنموذج الادراج لان هذا النموذج frm_Search ؟ خاص بالاصناف لا اريد مسح أي صنف منه

الصوره ممكن توضح اكثر

شاكرين مقدرين أستاذ جعفر

 

بدون عنوان.png

النجاشي

النجاشي

قام بنشر
  • الكاتب
قام بنشر

الحمدلله استاذي جعفر

نجحت العمليه شكر كثير اليك عطلت كود الحذف خليت بقيت الكود الف الف شكر استاذي جعفر

النجاشي

النجاشي

قام بنشر
  • الكاتب
قام بنشر
16 ساعات مضت, jjafferr said:

تفضل:smile:

 

  


Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo err_Form_KeyDown

    temp_MYn1 = Me.sfrm_Search!MYn1
    
    Select Case KeyCode
  
        Case vbKeyDown
    
            Me.sfrm_Search!MYn1 = 0
            I_went = "Down"
            Me.sfrm_Search.Form.RecordsetClone.MoveNext
            Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
            KeyCode = 0
   
        Case vbKeyUp
    
            Me.sfrm_Search!MYn1 = 0
            I_went = "Up"
            Me.sfrm_Search.Form.RecordsetClone.MovePrevious
            Me.sfrm_Search!MYn1 = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
            KeyCode = 0
            
        Case vbKeyReturn
        
            Me.sfrm_Search.Form.RecordsetClone.FindFirst "[Rajmsanf]='" & Me.sfrm_Search!MYn1 & "'"
            
            DoCmd.OpenForm "ادارج بفاتوره المبيعات"
            Forms![ادارج بفاتوره المبيعات]![رقم الصنف] = Me.sfrm_Search.Form.RecordsetClone!Rajmsanf
            Forms![ادارج بفاتوره المبيعات]![اسم الصنف] = Me.sfrm_Search.Form.RecordsetClone!NaEMP
            Forms![ادارج بفاتوره المبيعات]![الكميه] = Me.sfrm_Search.Form.RecordsetClone!Arsid
            Forms![ادارج بفاتوره المبيعات]![السعر] = Me.sfrm_Search.Form.RecordsetClone!sarabaih
            
            Me.sfrm_Search.Form.RecordsetClone.Delete
            KeyCode = 0
            
    End Select
    
Exit_Form_KeyDown:
Exit Sub
err_Form_KeyDown:

    If Err.Number = 2113 Or Err.Number = 3021 Then
        
        If I_went = "UP" Then
            Me.sfrm_Search.Form.RecordsetClone.MoveNext
        Else
            Me.sfrm_Search.Form.RecordsetClone.MovePrevious
        End If
        
        Me.sfrm_Search!MYn1 = temp_MYn1
        Resume Exit_Form_KeyDown
        
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

 

جعفر

737.215.accdb.zip

السلام عليكم استاذي جعفر ممكن احي الله يكرمك بزياده العلم انا اخي وصلت الى عند فاتوره المشتريات وقبلتنا مشكله المطلوب اخي الله يسعدك

الكود الذي عملته لي ممكن حظرتك تعدله كي يصبح يعمل بشرطين اذا  دخلت من فورم (ادراج بفاتوره مبيعات ) وفتحث الأصناف تنتقل الى هذا الفورم

واذا كان الفورم اسمه (ادارج بفاتوره مشتريات ينقل الى فورم ادارج المشتريات

او بصوره أوضح الكود الان شغال تمام بعد توقيف السطر الخاص بالحذف بس اضفت انا فاتوره المشتريات فاريد العمليه تكون علي حسب النموذج الذي افتحه اليك القاعده الجديده اخي جعفر

شاكرين والسموحه ما خطر بباللي فاننا اريد الأصناف كمان تتنقل للنموذج المشتريات الفكره كامله

فاتوره مبيعات مشتريات.rar

النجاشي

النجاشي

قام بنشر
  • الكاتب
قام بنشر

الحمدلله أستاذي جعفر عدل لي الكود الأستاذ اكرم العريقي الف شكر اليك تماما التمام جزاك الله خير

النجاشي

النجاشي

قام بنشر
  • الكاتب
قام بنشر
الان, أكسس وبس said:

اخى الكريم ابو زاهر فكرتك جميلة ممكن استخدمها فى برنامجي 

اخي وايش المانع هون بالمنتدي كل واحد يستفيد من الاخر دعواتك للقايمن على المنتدي الجميل الذي سوف نتخرج منه باذن الله وللاستاذ جعفر صاحب الكود  ساعدنا كثير بالعمل فيه الله يجزيه خير

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept