طلب برنامج تحديد نوع نشاط العميل

ارجو من أعضاء المنتدي مساعدتي

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

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

Private Sub crn_AfterUpdate()
If Len(Me.crn) < 8 Then Exit Sub
If Left$(Me.crn, 8) = "04010404" Or Left$(Me.crn, 8) = "04013636" Or Left$(Me.crn, 8) = "04011515" Then
Me.نوع_العمل = "مشروع"
Else
Me.نوع_العمل = "استكمال"
End If
End Sub

ولكن بحكم أنك وضعت الكود في حدث بعد التحديث فلن يتغير نوع العمل حتى تحدث البيانات في crn أي حتى ولو وافقت قيمته الشرط فيجب كتابة القيمة مرة أخرى ليتم التغيير

وبالتوفيق