البحث في الموقع
Showing results for tags 'vba access'.
تم العثور علي 3 نتائج
-
.thumb.gif.27c4a79ce23abc61b721f833e6899131.gif)
السلام عليكم ورحمة والله تعالى وبركاته طيب ببساطه انظر للسلسلة النصية الاتية "Moh8202281012343434" ونريد التعديل عليها لتظهر بهذا الشكل "Moh-820-228-101-234-343-4" او بهذا الشكل "Moh,820,228,101,234,343,4" او بهذا الشكل Moh820/228101/234343/4 يتم عمل ذلك من خلال الكود الاتى Function ReFormat(ByVal strText As String, Optional strSymbol As String = "-", Optional intCountDigits As Integer = 3) Dim i As Long ReFormat = "" For i = 0 To Len(strText) - 1 Step intCountDigits If i = 0 Then ReFormat = Mid(strText, i + 1, intCountDigits) Else ReFormat = ReFormat & strSymbol & Mid(strText, i + 1, intCountDigits) End If Next i End Function syntax code ReFormat(string ,Symbol, Count Digits) Result By default syntax used ReFormat(string) Symbol >-->> - Count Digits >-->> 3 اذا من خلال استدعاء الكود عن طريق البنية المفضلة الاتية: ReFormat(string) تحصل على اضافة العلامة - بعد كل 3 مواضع فى السلسلة النصية اما اذا اردت التعديل فى شكل الرمز وعدد المواضع يمكنك استخدام الكود الاتى : ReFormat(string ,Symbol, Count Digits) مثلا لو اردت استخدام الرمز $ بدلا من الرمز - وتريد وضع الرمز فى السلسلة النصية بعد كل خمس مواضع يكون الكود كالأتى: ReFormat(string ,"$", 5)- 3 replies
-
- 1
-
-
- شخابيط
- شخابيط وافكار
- (و22 أكثر)
-
سلام عليكم اخواني ... في هذا الفيديو نشرح كيف تحمي اكسس في مشروعاتك بدون كود فيجوال بيسك طريق سهل جدا https://www.youtube.com/watch?v=1AvCOO_ee4M
-
السلام عليكم vba حاب اتعلم اكثر في الاكسس وخصوصا بكتابة اكواد وواجهتني مشكلة اتمنى ان اجد منكم المساعدة قمت بتصميم نموذج بسيط فيه حقلين رقم العميل واسم العميل وقمت بتصميم نموذج اخر فيه اسم المستخدم والرقم السري والصلاحيات الخاصة بالمستخدم وجعلته كنموذج فرعي في النموذج الاول ولكن لا يوجد اي ارتباط بين النموذجين frmLogin وقمت بتصميم نموذج فيه حقل واحد عبارة عن شاشة دخول فيها رقم سري اسمه وهنا واجهتني المشكلة يتم الاتي userpassfinder في الحقل frmLogin كيف اجعل المستخدم اذا قام بادخال الرقم السري الخاص به في نموذج الى اسم المستخدم المطابق للرقم السري fsubUser يقوم الكود بالبحث عن الرقم السري في جدول المستخدمين ثم يقوم بتغيير السجل في النموذج الفرعي حاولت كتابة الكود لكن لم استطع Private Sub userpassfinder_AfterUpdate() If userpassfinder = "SELECT * FROM tblUsers WHERE UserPass = " & userpassfinder Then Forms!frm!fsubUser.RecordSource = "SELECT * FROM tblUsers WHERE UserPass = " & userpassfinder Else MsgBox "ÇáÑÞã ÇáÓÑí ÛíÑ ÕÍíÍ" userpassfinder.SetFocus End If End Sub Database3.zip طبعا تبويب الصلاحيات سوف يكون مخفي عن المستخدم اذا تم الدخول بنجاح frmLogin ايضا احاول ان اخفي نموذج
