mom20088 قام بنشر يوليو 10, 2016 قام بنشر يوليو 10, 2016 السلام عليكم اريد دالة فصل الحروف عن الارقام والعكس فى حقل الاكسس حيث الحقل يحتوى على (100ml) وأيضا يحتوى على (1L) اريد معادلة تكون نتيجتها (ml) أو (L) ومعادلة اخرى تكون نتيجتها (100) أو (1) يعنى عاوز معادلتين شكرا
ابوخليل قام بنشر يوليو 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
mom20088 قام بنشر يوليو 11, 2016 الكاتب قام بنشر يوليو 11, 2016 أخى العزيز: شكرا لك على ردك لكنى محتاج دالة اضعها فى الاستعلام وليس فى النموذج لذلك انا محتاج دالة حسابية وليست دالة فيجول بيسك
ابوخليل قام بنشر يوليو 11, 2016 قام بنشر يوليو 11, 2016 نعم هي تعمل في الاستعلام ساوافيك لا حقا بمثال على ذلك
ابوخليل قام بنشر يوليو 11, 2016 قام بنشر يوليو 11, 2016 تفضل ، جعلتها دالتين textNum و Numtext فصل الحروف عن الارقام دالة .rar 2 1
ابوخليل قام بنشر يوليو 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
يونس محمد الخطابي قام بنشر نوفمبر 26, 2023 قام بنشر نوفمبر 26, 2023 الف شكر استاذ ابو خليل وجعل الله ذلك في ميزان حسناتك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.