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

مطلوب طريقة للترقيم التلقائى حروف وارقام بضوابط محددة

Amr Ashraf

بواسطه Amr Ashraf
في قسم الأكسيس Access

 مشاركة

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

Amr Ashraf

Amr Ashraf

قام بنشر
قام بنشر

السلام عليكم اخوانى الكرام

فى المثال المرفق لدى 2 كومبوبوكس اريد عند الاختيار من الكومبوبوكس الأول صرف يكتب النموذج فى تكست بوكس مثلا حرف  A ثم بعد الاختيار من الكومبوبوكس الثانى اسم المخزن وليكن المنتج التام يكتب البرنامج بجوار حرف الA حرف اخر خاص بهذا المخزن وليكن C ثم عند اضافة سجل جديد يكون الترقيم التلقائى هكذا AC00001 طبعا على حسب الاختيارات يعنى صرف = A و اضافة = B بالنسبة للمخازن التعبئة = P و المنتج التام = G وهكذا على حسب التحديد الذى سيتم 

النقطة الثانية فى حالة اضافة سجل جديد واختيار النوع اضافة و تحديد اسم المخزن فيقوم البرنامج باحضار اخر قيمة لسندات الاضافة فى هذا المخزن من الجدول وليكن كما بالمثال AC00001 ويضيف عليها 1 لتصبح  AC00002 وبالتالى يكون الترقيم التلقائى متنوع على حسب نوع المستند صرف او اضافة و على حسب الحرف المخصص لكل مخزن وفى نفس الوقت لا يبدأ الترقيم من جديد فى كل مرة وانما يكمل من حيث توقف طبعا لكل مخزن على حدى

 

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

 

 

New.rar

رابط هذا التعليق
شارك
Shivan Rekany

Shivan Rekany

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

اصبر فان الصبر مفتاح الفرج

اذا ما وصلت عالنتيجة حتى غدا

ان شاء الله غدا لي العودة

تقبل تحياتي

تم تعديل بواسطه Shivan Rekany
  • Like 1
رابط هذا التعليق
شارك
Amr Ashraf

Amr Ashraf

قام بنشر
  • الكاتب
قام بنشر
2 دقائق مضت, Shivan Rekany said:

اصبر فان الصبر مفتاح الفرج

اذا ما وصلت عالنتيجة حتى غدا

ان شاء الله غدا لي العودة

تقبل تحياتي

ههههه فى انتظارك وصابر اخى شيفان ترجع بالسلامة :fff:

رابط هذا التعليق
شارك
Shivan Rekany

Shivan Rekany

قام بنشر
قام بنشر

اولا // انا اضفت حقل جديد باسم ID1 الى الجدول

ثانيا // اليك هذا الكود 

Private Sub Combo2_BeforeUpdate(Cancel As Integer)
    If Len(Me.Combo0 & "") = 0 Then
            MsgBox "اولا يجب ان تختار نوع الحركة"
            Me.Undo
    End If
End Sub

Private Sub Combo2_AfterUpdate()
    If Me.Combo2 = "مستلزمات" And Me.Combo0 = "صرف" Then
            Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
            Me.Text4 = "A" & "C" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
        ElseIf Me.Combo2 = "تعبئة" And Me.Combo0 = "صرف" Then
            Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
            Me.Text4 = "A" & "P" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
        ElseIf Me.Combo2 = "منتج تام" And Me.Combo0 = "صرف" Then
            Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
            Me.Text4 = "A" & "G" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
        ElseIf Me.Combo2 = "مستلزمات" And Me.Combo0 = "اضافة" Then
            Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
            Me.Text4 = "B" & "C" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
        ElseIf Me.Combo2 = "تعبئة" And Me.Combo0 = "اضافة" Then
            Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
            Me.Text4 = "B" & "P" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
        ElseIf Me.Combo2 = "منتج تام" And Me.Combo0 = "اضافة" Then
            Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
            Me.Text4 = "B" & "G" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
    End If
End Sub

ثالثا // اتفضل اليك قاعدة بياناتك بعد تعديل

 

 

 

New.rar

  • Like 3
رابط هذا التعليق
شارك
النجاشي

النجاشي

قام بنشر
قام بنشر
15 ساعات مضت, Shivan Rekany said:

اولا // انا اضفت حقل جديد باسم ID1 الى الجدول

ثانيا // اليك هذا الكود 


Private Sub Combo2_BeforeUpdate(Cancel As Integer)
    If Len(Me.Combo0 & "") = 0 Then
            MsgBox "اولا يجب ان تختار نوع الحركة"
            Me.Undo
    End If
End Sub

Private Sub Combo2_AfterUpdate()
    If Me.Combo2 = "مستلزمات" And Me.Combo0 = "صرف" Then
            Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
            Me.Text4 = "A" & "C" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
        ElseIf Me.Combo2 = "تعبئة" And Me.Combo0 = "صرف" Then
            Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
            Me.Text4 = "A" & "P" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
        ElseIf Me.Combo2 = "منتج تام" And Me.Combo0 = "صرف" Then
            Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
            Me.Text4 = "A" & "G" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
        ElseIf Me.Combo2 = "مستلزمات" And Me.Combo0 = "اضافة" Then
            Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
            Me.Text4 = "B" & "C" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
        ElseIf Me.Combo2 = "تعبئة" And Me.Combo0 = "اضافة" Then
            Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
            Me.Text4 = "B" & "P" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
        ElseIf Me.Combo2 = "منتج تام" And Me.Combo0 = "اضافة" Then
            Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
            Me.Text4 = "B" & "G" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
    End If
End Sub

ثالثا // اتفضل اليك قاعدة بياناتك بعد تعديل

 

 

 

New.rar

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

  • Like 1
رابط هذا التعليق
شارك
النجاشي

النجاشي

قام بنشر
قام بنشر
2 دقائق مضت, Shivan Rekany said:

في خدمتكم ان شاء الله

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

تحياتي لكم جميعا من اداره الموقع والخبراء والاعضاء 

  • Like 1
رابط هذا التعليق
شارك
Amr Ashraf

Amr Ashraf

قام بنشر
  • الكاتب
قام بنشر
18 ساعات مضت, Shivan Rekany said:

اولا // انا اضفت حقل جديد باسم ID1 الى الجدول

ثانيا // اليك هذا الكود 


Private Sub Combo2_BeforeUpdate(Cancel As Integer)
    If Len(Me.Combo0 & "") = 0 Then
            MsgBox "اولا يجب ان تختار نوع الحركة"
            Me.Undo
    End If
End Sub

Private Sub Combo2_AfterUpdate()
    If Me.Combo2 = "مستلزمات" And Me.Combo0 = "صرف" Then
            Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
            Me.Text4 = "A" & "C" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
        ElseIf Me.Combo2 = "تعبئة" And Me.Combo0 = "صرف" Then
            Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
            Me.Text4 = "A" & "P" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
        ElseIf Me.Combo2 = "منتج تام" And Me.Combo0 = "صرف" Then
            Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
            Me.Text4 = "A" & "G" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
        ElseIf Me.Combo2 = "مستلزمات" And Me.Combo0 = "اضافة" Then
            Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
            Me.Text4 = "B" & "C" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
        ElseIf Me.Combo2 = "تعبئة" And Me.Combo0 = "اضافة" Then
            Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
            Me.Text4 = "B" & "P" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
        ElseIf Me.Combo2 = "منتج تام" And Me.Combo0 = "اضافة" Then
            Me.ID1 = Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
            Me.Text4 = "B" & "G" & "0000" & Nz(DMax("[ID1]", "table1", "[warehouse]='" & Me.Combo2 & "'" & "AND [TYPE]='" & Me.Combo0 & "'"), 0) + 1
    End If
End Sub

ثالثا // اتفضل اليك قاعدة بياناتك بعد تعديل

 

 

 

New.rar

نتيجة ممتازة أخى شيفان وهو المطلوب بالظبط جزاك الله كل خير ونفع بك:fff:

  • Like 2
رابط هذا التعليق
شارك

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