السلام عليكم
اريد ان اجمع بين الكودين بشرط تحقق الشروط فيهما
[ تمت الإجابة ]كيف استطيع ان اجمع بين الكودين
حياك الله اخي ابو جهاد
ياليت ترفق مثال
حتى الاخوان يقدرون يساعدونك فيما تريد
وفقك الله
اتق الله حيث ماكنت
أخي الكريم...
عن أي كودين تتحدث؟؟
طبتم واهتديتم :)
===================================
إقرأ معي
رابط متجدد لكتاب أقرؤه فشاركني فيه
======
فضائح الرافضة ومخازيهم حين يكتب عنها أحد خصومهم فهذا شيء متوقع ،فإن كتب عنها أحدهم فهو شيء غير مألوف ، وإن كان الكاتب أحد مراجعهم وأخص خواصهم فهذا شيء متناهي الغرابة ، وإن علمت أن الكاتب قد قتل بعد نشر الكتاب فقد حان وقت قراءة الكتاب
الكتاب :
حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار
اضغط على الصورة لتحميل الكتاب
-----------
كتب سابقة
معذرة
الكود الاول :
Dim x1 As String
If IsNumeric(S) Then
(Select Case Len(S
Case Is > 2
(x1 = Left(S, Len(S) - 2) & "." & Right(S, 2
Case 2
x1 = "0." & S
Case 1
x1 = "0.0" & S
End Select
Else
x1 = "#Error"
End If
Me.B = x1
الكود الثاني:
Private Sub الكود_AfterUpdate()
Dim rst As Recordset, n As Integer, arrOps As Variant
If InStr(الكود, "*") > 0 Then arrOps = Split(الكود, "*") Else arrOps = Array(1, الكود)
Me.Refresh
Set rst = CurrentDb.CreateQueryDef("", "SELECT الكود.كود, الكود.اسم_المنتج FROM الكود ORDER BY الكود.كود, الكود.اسم_المنتج;").OpenRecordset(dbOpenDynaset)
With rst
Do While .EOF = False
If arrOps(1) <> rst!
Then
n = n + 1
Else
n = n + 0
End If
rst.MoveNext
Loop
End With
If n = DCount("[code]", "الكود") Then
MsgBox "هذا الكود غير موجود"
الكود.SetFocus
Else
الكود = arrOps(1)
الكمية = arrOps(0)
Me![اسم المنتج] = Me![الكود].Column(1)
End If
End Sub
زودونا بأرائكم واقتراحاتكم وتوجيهاتكم
تم تعديل هذه المشاركة بواسطة بوجهاد في 26 فبراير 2010 في 17:19
مشكلتك اخى انك لم توضح المطلوب
و لا اين تريد وضع الكود و لا الفائدة من ذلك
عموما
بعد معاناتى مع الكود لمحاولة الوصول الى ما تريده من جمع الكودين
اعتقد انك تريد تطبيق الكود على الكمية المدخلة
شكرا لك اخي الكريم
وضحت لي الفكرة
تمت الاجابة