اذهب الي المحتوي
أوفيسنا

تثبيت رقم على باقى الخلايا بالضغط على زرار


إذهب إلى أفضل إجابة Solved by jjafferr,

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

إخوانى من فضلكم المثال المرفق به نموذج يوجد به شاشة بحث بالتاريخ

والمفروض اننى عندما أقوم بإدخال التاريخ 2015/03/16

يقوم بإظهار العملاء.

والرقم الموجود فى اول خانة هو 1

المطلوب هو أنه عندما اقوم بالضغط على الزرار الموجود بالأسفل يقوم بكتابة رقم 1 فى باقى الخلايا

بدل من أقوم بكتابته فى باقى الخلايا باليد

وشكراً جزيلا وجزاكم الله كل خير

CALLING.rar

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

تفضل أخي  :smile:

 

هذا كود الزر:

Private Sub Command25_Click()
'On Error Resume Next
' DoCmd.GoToRecord , , acNewRec
'If Me.NewRecord And Me.CurrentRecord > 1 Then
'    Me.NUM_ESAL = DLast("[num_esal]", "1")
'      End If

    Num = InputBox("Please Enter the number")
    
    Set rst = Me.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    DoCmd.GoToRecord , , acFirst
    
    For I = 1 To RC
        
        rst.Edit
            rst!NUM_ESAL = Num
        rst.Update
        
        rst.MoveNext
    Next I
    

End Sub

مافي داعي تكتب الرقم ، وطريقة العمل:

1. اختر التاريخ ،

2. اضغط على الزر ، 

3. في نافذة تطلب منك الرقم ، ادخل الرقم واضغط ok والسلام  :smile:

 

 

جعفر

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

  • أفضل إجابة

تعديل بسيط ، اذا لم يتم اخيار اي رقم وتم الغاء الامر:

Private Sub Command25_Click()
'On Error Resume Next
' DoCmd.GoToRecord , , acNewRec
'If Me.NewRecord And Me.CurrentRecord > 1 Then
'    Me.NUM_ESAL = DLast("[num_esal]", "1")
'      End If

    Num = InputBox("Please Enter the number")
    If Len(Num & "") = 0 Then Exit Sub
    
    Set rst = Me.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    DoCmd.GoToRecord , , acFirst
    
    For I = 1 To RC
        
        rst.Edit
            rst!NUM_ESAL = Num
        rst.Update
        
        rst.MoveNext
    Next I
    

End Sub

جعفر

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

اخى جعفر دائما سباق الى الخير لا حرمنا الله منكم

 

حياك الله  :smile:

هاه ، هل استقر رأيك على صورة معينة  :biggrin2:

 

 

 

السيد الأستاذ المحترم / جعفر

شكراً جزيلاً على تعبك ومعايا

فعلاً وهو المطلوب

جزاك الله كل خير وشكراً جزيلاً

 

 

حياك الله  :smile:

اعتقد سؤالك في الموضوع الاخر يعتبر ملغي الان ، صح؟

 

 

جعفر

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

  • 2 weeks later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information