تعديل على كود في وحدة نمطية

لاحول ولا قوة الا بالله

يإخواني عبرونا شوية

واني على يقين أن طلبي سهلا وكثير من الإخوة يعرفون الحل

ربي يهدينا اجمعين

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

Private Sub comm1_AfterUpdate()

Select Case comm1.Value

Case "ãäÍÉ ÇáæáÇÏÉ 1"

    Me!mont1 = "1200.00"

    Me!AwardMonth = Date

  Case "ãäÍÉ ÇáæáÇÏÉ 2"

    Me!mont2 = "2400.00"

    Me!AwardMonth = Date

Case "ãäÍÉ ÇáÎÊÇä 1"

    Me!mont3 = "1000.00"

    Me!AwardMonth = Date

Case "ãäÍÉ ÇáÎÊÇä 2"

    Me!mont4 = "2000.00"

    Me!AwardMonth = Date

Case "ãäÍÉ ÒæÇÌ ÇáÚÇãá"

    Me!mont5 = "10000.00"

    Me!AwardMonth = Date

Case "ãäÍÉ ÒæÇÌ ÅÈä ÇáÚÇãá"

    Me!mont6 = "5000.00"

    Me!AwardMonth = Date

Case "ãäÍÉ æÝÇÉ ÇáÚÇãá"

    Me!mont7 = "50000.00"

    Me!AwardMonth = Date

Case "ãäÍÉ æÝÇÉ ÇáÒæÌÉ"

    Me!mont8 = "30000.00"

    Me!AwardMonth = Date

Case "ãäÍÉ æÝÇÉ ÃÍÏ ÃáÃÈäÇÁ Ãæ ÇáæÇáÏíä"

    Me!mont9 = "10000.00"

    Me!AwardMonth = Date

Case "ãäÍÉ ÇáÊÞÇÚÏ"

    Me!mont10 = "15000.00"

    Me!AwardMonth = Date

Case "ãäÍÉ ÇáÍÌ"

    Me!mont11 = "15000.00"

    Me!AwardMonth = Date

Case "ãäÍÉ ÇáÚãÑÉ"

    Me!mont12 = "105000.00"

     Me!AwardMonth = Date


 End Select


End Sub

mena7.rar

جرب  الملف بعد التعديل

menah.rar