اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

والمفروض اننى عندما أقوم بإدخال التاريخ 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...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information