عبدالقدوس48

تفضل أخي

السلام عليكم لي صفحة مكتوبة بشكل عادي حتى أصبحت على شكل جدول وشكرا

تفضل أخي هل هي قاعدة البيانات كما هي shamal.rar

السلام عليكم هذا مثال لي أحد الأخوة وأريد التعديل عليه وشكرا names.mdb

يأخي تريد ازرار للتعامل مع البرنامج بشكل صحيح

السلام عليكم كي أنتم أبحث عن دالة التفقيط التاريخ بالعربي والفرنسي مثال 12/01/1978 في الثاني عشر جانفي عام ألف وتسعمائة وثمانية وسبعون وكذلك بالفرنسية وشكرا

شكرا لك أخي جزاك الله خير سأبحث عن القاموس

هذا القاموس كيف أعمل له دالة يأخي وشكرا على الرد

ممكن مساعدة في الترجمة في أكسيس بدون أنترنات وجزاكم الله خيرا

Function NoToTxt(TheNo As Double, MyCur As String, MySubCur As String) As String Dim MyArry1(0 To 9) As String Dim MyArry2(0 To 9) As String Dim MyArry3(0 To 9) As String Dim MyNo As String Dim GetNo As String Dim RdNo As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetTxt As String Dim Mybillion As String Dim MyMillion As String Dim MyThou As String Dim MyHun As String Dim MyFraction As String Dim MyAnd As String Dim i As Integer Dim ReMark As String If TheNo > 999999999999.99 Then Exit Function If TheNo = 0 Then NoToTxt = "صفر" Exit Function End If MyAnd = " و" MyArry1(0) = "" "MyArry1(1) = "مائة MyArry1(2) = "مائتان" MyArry1(3) = "ثلاثمائة" MyArry1(4) = "أربعمائة" MyArry1(5) = "خمسمائة" MyArry1(6) = "ستمائة" MyArry1(7) = "سبعمائة" MyArry1(8) = "ثمانمائة" MyArry1(9) = "تسعمائة" MyArry2(0) = "" MyArry2(1) = " عشر" MyArry2(2) = "عشرون" MyArry2(3) = "ثلاثون" MyArry2(4) = "أربعون" MyArry2(5) = "خمسون" MyArry2(6) = "ستون" MyArry2(7) = "سبعون" MyArry2(8) = "ثمانون" MyArry2(9) = "تسعون" MyArry3(0) = "" MyArry3(1) = "واحد" MyArry3(2) = "اثنان" MyArry3(3) = "ثلاثة" MyArry3(4) = "أربعة" MyArry3(5) = "خمسة" MyArry3(6) = "ستة" MyArry3(7) = "سبعة" MyArry3(8) = "ثمانية" MyArry3(9) = "تسعة" '====================== في مكان الصفر يكون مثل MyArry1(محمد) = "mohamed" MyArry1(كمال) = "kamal" .........إلخ وشكرا

شكرا لك أخي جزاك الله خيرا أخي

شكرا لك أخي

الأسم واللقب : bbbbbbbb kkkkkkk رقم حساب :54859874 الراتب: 3002222 أريد أن يكون كما هذا المثال في مفكرة وشكرا *000000000000548598740000003002222bbbbbbbb kkkkkkk 1

هذا هو المطلوب أخي شكرا لك وجزاك الله خيرا

شكرا لك أخي

شكرا لك أخي

السلام عليكم أريد من الا ساتذا الكرام مثال حفظ قاعدة البانات وإسترجعها وشكرا

أليك هذا المثال مثال.accdb

تفضل أخي Private Sub Form_Current() Me.معاينة_التقرير.Enabled = False Me.معاينة_التقرير.Caption = "أدخل بداية التاريخ" Me.معاينة_التقرير.FontBold = 1 End Sub Private Sub z_AfterUpdate() If [z] < [zz] Then Else: Me.معاينة_التقرير.Caption = "بداية التاريخ صحيح" End If End Sub Private Sub zz_AfterUpdate() If [zz] >= [z] Then Me.معاينة_التقرير.Caption = "نهاية التاريخ صحيحه" Me.معاينة_التقرير.Enabled = True Me.معاينة_التقرير.ForeColor = vbRed Me.معاينة_التقرير.FontBold = 1 Else: Me.معاينة_التقرير.Caption = "نهاية التاريخ غير صحيحه": Me.معاينة_التقرير.Enabled = False End If End Sub Private Sub أمر9_Click() DoCmd.Close DoCmd.OpenForm "ترقيات", acNormal End Sub Private Sub معاينة_التقرير_Click() On Error Resume Next DoCmd.OpenReport "ترقية التوقيت كامل", acViewPreview, , "[من تاريخ] between [forms]![form2]![z] And [forms]![form2]![zz]" End Sub

تفضل أخي

يأخي يقول الدالة غير معرفة

شكرا لك أخي فضلتها في الإستعلام DateDiff("m";[1]![من تاريخ];[1]![إلى تاريخ])

السلام عليكم ورحمة الله وبركاته كيف إيجاد فرق بين تارخين وبشهر واليوم مثلا 01/01/2020 إلى 05/03/2020 مطلوب 2 أشهر وخمسة أيام وشكرا

تفضل هذا الكود Dim msg1, msg2 As String msg2 = "عزيزي المستخدم " & vbNewLine & "يرجى تعبئة الحقل / الحقول الفارغة" Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then If IsNull(ctl) Or ctl = "" Then If msg1 = "" Then msg1 = " - " & ctl.Name Else msg1 = msg1 & vbNewLine & " - " & ctl.Name End If End If End If Next ctl If msg1 = "" Then DoCmd.RunCommand acCmdSaveRecord MsgBox "تم الحفظ بنجاح", vbInformation, "تأكيد" Else MsgBox msg2 & vbNewLine & msg1, vbCritical, "تنبيه بوجود حقول فراغة" End If

تفضل أخي Dim msg1, msg2 As String msg2 = "عزيزي المستخدم " & vbNewLine & "يرجى تعبئة الحقل / الحقول الفارغة" Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then If IsNull(ctl) Or ctl = "" Then If msg1 = "" Then msg1 = " - " & ctl.Name Else msg1 = msg1 & vbNewLine & " - " & ctl.Name End If End If End If Next ctl If msg1 = "" Then DoCmd.RunCommand acCmdSaveRecord MsgBox "تم الحفظ بنجاح", vbInformation, "تأكيد" Else MsgBox msg2 & vbNewLine & msg1, vbCritical, "تنبيه بوجود حقول فراغة" End If