zozzz قام بنشر ديسمبر 17, 2022 مشاركة قام بنشر ديسمبر 17, 2022 السلام علیکم جمیعا احبایی الکرام فی هذا المنوذج ارید احسب عدد 672 بهذه الطریقه : 2 + 7 + 6 و الرقم یساوی 15 وشکرا جزیلا Numberic.accdb رابط هذا التعليق شارك More sharing options...
أفضل إجابة Barna قام بنشر ديسمبر 17, 2022 أفضل إجابة مشاركة قام بنشر ديسمبر 17, 2022 تفضل <><><><><><><> Numberic.accdb 2 1 رابط هذا التعليق شارك More sharing options...
zozzz قام بنشر ديسمبر 18, 2022 الكاتب مشاركة قام بنشر ديسمبر 18, 2022 احسنت احسنت احسنت 👍 رابط هذا التعليق شارك More sharing options...
zozzz قام بنشر ديسمبر 18, 2022 الكاتب مشاركة قام بنشر ديسمبر 18, 2022 طیب اخی Barna هل من الممکن نستمر بهذه الطریقه حتی یصبح العدد ، رقم واحد؟؟ مثلا 672 => 2 + 7 + 6 = 15 و ایضا 15 => 5 + 1 = 6 وشکرا لاستمرار مساعدتک رابط هذا التعليق شارك More sharing options...
Barna قام بنشر ديسمبر 18, 2022 مشاركة قام بنشر ديسمبر 18, 2022 5 ساعات مضت, zozzz said: طیب اخی Barna هل من الممکن نستمر بهذه الطریقه حتی یصبح العدد ، رقم واحد؟؟ مثلا 672 => 2 + 7 + 6 = 15 و ایضا 15 => 5 + 1 = 6 وشکرا لاستمرار مساعدتک طيب استبدل بهذا ...... Public Function CountNumberic() As Integer Dim StringToSearch As String, ms As Integer, ms1 As Integer Dim i As Integer If Len(Me.Text4) <= 1 Or IsNull(Me.Text4) Then StringToSearch = Me.Text1 Else StringToSearch = Me.Text4 End If ms = 0 ms1 = 0 For i = 1 To Len(StringToSearch) ms = Mid(StringToSearch, i, 1) ms1 = ms1 + ms Next i Me.Text4 = ms1 End Function 2 رابط هذا التعليق شارك More sharing options...
zozzz قام بنشر ديسمبر 18, 2022 الكاتب مشاركة قام بنشر ديسمبر 18, 2022 كلك ذوق شکرا و جزاک الله خیر و عافیه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان