mom20088 قام بنشر يوليو 10, 2016 مشاركة قام بنشر يوليو 10, 2016 السلام عليكم اريد دالة فصل الحروف عن الارقام والعكس فى حقل الاكسس حيث الحقل يحتوى على (100ml) وأيضا يحتوى على (1L) اريد معادلة تكون نتيجتها (ml) أو (L) ومعادلة اخرى تكون نتيجتها (100) أو (1) يعنى عاوز معادلتين شكرا رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يوليو 10, 2016 مشاركة قام بنشر يوليو 10, 2016 وعليكم السلام تفضل هذه الدالة textNum عملتها لك يمكنك ان تفصل بها الحروف عن الارقام او العكس الآن هي مهيأة لفصل الارقم ، فقط مرر اسم الحقل اليها وحتى تعكس النتيجة يلزم تفعيل السطرين 3 ، 4 __ وحجب السطرين 1 ، 2 Public Function textNum(fildHrfRqm As String) Dim lets, lets2, lets3 Dim i, r As Integer r = Len(fildHrfRqm) For i = 1 To r lets = Mid(fildHrfRqm, i, 1) If IsNumeric(lets) Then lets2 = lets2 & lets ' السطر1 خاص بالارقام Else 'lets3 = lets3 & lets ' السطر3 خاص بالحروف End If Next textNum = lets2 'السطر2خاص بالارقام 'textNum = lets3' السطر4 خاص بالحروف End Function 3 رابط هذا التعليق شارك More sharing options...
mom20088 قام بنشر يوليو 11, 2016 الكاتب مشاركة قام بنشر يوليو 11, 2016 أخى العزيز: شكرا لك على ردك لكنى محتاج دالة اضعها فى الاستعلام وليس فى النموذج لذلك انا محتاج دالة حسابية وليست دالة فيجول بيسك رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يوليو 11, 2016 مشاركة قام بنشر يوليو 11, 2016 نعم هي تعمل في الاستعلام ساوافيك لا حقا بمثال على ذلك رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يوليو 11, 2016 مشاركة قام بنشر يوليو 11, 2016 تفضل ، جعلتها دالتين textNum و Numtext فصل الحروف عن الارقام دالة .rar 2 1 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يوليو 11, 2016 مشاركة قام بنشر يوليو 11, 2016 وهذا كود لمن اراد فصل الارقام في حقل والحروف في حقل داخل النموذج Private Sub Command1_Click() Dim lets Dim i, r As Integer r = Len(Me.Text1) For i = 1 To r lets = Mid(Me.Text1, i, 1) If IsNumeric(lets) Then Me.Text3 = Me.Text3 & lets Else Me.Text2 = Me.Text2 & lets End If Next End Sub باعتبار Text1 هو الحقل المراد فصله و Text3 لاظهار الارقام Text2 لاظهار الحروف 1 1 رابط هذا التعليق شارك More sharing options...
mom20088 قام بنشر يوليو 11, 2016 الكاتب مشاركة قام بنشر يوليو 11, 2016 الف شكر أخى الكريم رابط هذا التعليق شارك More sharing options...
إبراهيم عطا قام بنشر يوليو 14, 2020 مشاركة قام بنشر يوليو 14, 2020 جزاك الله عنا خير الجزاء رابط هذا التعليق شارك More sharing options...
يونس محمد الخطابي قام بنشر نوفمبر 26, 2023 مشاركة قام بنشر نوفمبر 26, 2023 الف شكر استاذ ابو خليل وجعل الله ذلك في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان