Amr Ashraf قام بنشر مايو 7, 2017 قام بنشر مايو 7, 2017 السلام عليكم اخوانى الكرام فى المثال المرفق لدى 2 كومبوبوكس اريد عند الاختيار من الكومبوبوكس الأول صرف يكتب النموذج فى تكست بوكس مثلا حرف A ثم بعد الاختيار من الكومبوبوكس الثانى اسم المخزن وليكن المنتج التام يكتب البرنامج بجوار حرف الA حرف اخر خاص بهذا المخزن وليكن C ثم عند اضافة سجل جديد يكون الترقيم التلقائى هكذا AC00001 طبعا على حسب الاختيارات يعنى صرف = A و اضافة = B بالنسبة للمخازن التعبئة = P و المنتج التام = G وهكذا على حسب التحديد الذى سيتم النقطة الثانية فى حالة اضافة سجل جديد واختيار النوع اضافة و تحديد اسم المخزن فيقوم البرنامج باحضار اخر قيمة لسندات الاضافة فى هذا المخزن من الجدول وليكن كما بالمثال AC00001 ويضيف عليها 1 لتصبح AC00002 وبالتالى يكون الترقيم التلقائى متنوع على حسب نوع المستند صرف او اضافة و على حسب الحرف المخصص لكل مخزن وفى نفس الوقت لا يبدأ الترقيم من جديد فى كل مرة وانما يكمل من حيث توقف طبعا لكل مخزن على حدى سامحونى اعرف ان موضوع الترقيم التلقائى يتكرر بكثرة ولكنى بحثت ولم اجد ما يفيدنى فى هذه الجزئية دمتم بخير New.rar
Shivan Rekany قام بنشر مايو 7, 2017 قام بنشر مايو 7, 2017 (معدل) اصبر فان الصبر مفتاح الفرج اذا ما وصلت عالنتيجة حتى غدا ان شاء الله غدا لي العودة تقبل تحياتي تم تعديل مايو 7, 2017 بواسطه Shivan Rekany 1
Amr Ashraf قام بنشر مايو 7, 2017 الكاتب قام بنشر مايو 7, 2017 2 دقائق مضت, Shivan Rekany said: اصبر فان الصبر مفتاح الفرج اذا ما وصلت عالنتيجة حتى غدا ان شاء الله غدا لي العودة تقبل تحياتي ههههه فى انتظارك وصابر اخى شيفان ترجع بالسلامة
Shivan Rekany قام بنشر مايو 7, 2017 قام بنشر مايو 7, 2017 اولا // انا اضفت حقل جديد باسم 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 3
النجاشي قام بنشر مايو 8, 2017 قام بنشر مايو 8, 2017 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 جزاك الله خير استاذي شفان انت دوما سباق للخير شكرا لك 1
Shivan Rekany قام بنشر مايو 8, 2017 قام بنشر مايو 8, 2017 1 دقيقه مضت, ابو زاهر said: جزاك الله خير استاذي شفان انت دوما سباق للخير شكرا لك في خدمتكم ان شاء الله
النجاشي قام بنشر مايو 8, 2017 قام بنشر مايو 8, 2017 2 دقائق مضت, Shivan Rekany said: في خدمتكم ان شاء الله ما تقصر من طيبك استاذي شفان واسال الله ان يجعله في ميزان حسناتك تحياتي لكم جميعا من اداره الموقع والخبراء والاعضاء 1
Amr Ashraf قام بنشر مايو 8, 2017 الكاتب قام بنشر مايو 8, 2017 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 نتيجة ممتازة أخى شيفان وهو المطلوب بالظبط جزاك الله كل خير ونفع بك 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.