Abu Farid

احد حلول بطريقة تغير تنسيق الحقل من رقم الى نص و ادخال بيانات في الحقل نص بدلا من رقم . Test p.accdb

تقضل أخي خليت 80 او اكثر (الوجه المبتسم) و اقل من 80 (الوجه الحزين ) Database1 (1).rar

جرب الكود: if (lable.Caption >80 ) then pic.visble=true end if

وعليكم السلام و رحمة الله جرب الكود: DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE جدول2 Set [الاسم]='" & [الاسم] & "' WHERE جدول2.[رقم الموظف]=" & [رقم الموظف] Me.Requery DoCmd.SetWarnings True نقل سجل من جدول الى جدول مع الغاء رساله التحذير.mdb

اخي اسلام يبدو انك ما جربت المرفق امس

السلام عليكم أخي اسلام من المعروف الساعة تانية صباحا اقدم م الساعة سادسة صباحا من نفس يوم و جمع عدد ساعات يأتي بسالب ولتغلب على تلك المشكلة يجب وضع شرط اذا وقت بدايه الحضور اكثر من بدايه الانصراف يستمر و الا طرح بدايه الحضور من بداية الانصراف ثم +24 وفي حقل بدايه الانصراف اكتب كما هو اكتب كما هو (00:2 ص) و المثال في المرفق. حضور وانصراف .rar

تفضل أخي اليك المثال userdata (1).accdb

Nz(sum([???],0) علامات استفهام يمثل اسم الحقل مراد جمعه

و جزاك بمثله و جميع مسلمين

أخي اليك التعديل في المرفق المستخدمين.accdb

تفضل أخي اليك الملف المعدل المستخدمين.accdb

بسيطة ان شاء الله حاليا انا بعيد من كمبيوتر

هل تقصد نسخ بيانات صفحة الاول الى باقي صفحات !! اذا اجابة نعم ، ماذا لو عملت جدول و جعل تلك الجدول كمصدر بيانات جميع نماذج تفضل أخي المستخدمين.accdb

أخي بلال انظر التعديل حسب فهمي من السؤال حيث يعمل زر تاكيد في صفحة مفتوحة من صفحات (الصفحة1، الصفحة2 ، الصفحة أو اضافة صفحات اخرى أو اعادة تسمية صفحات ملاحضة: في كل صفحة تسمية عدد اثنان من مربعات Text2 و Text4 إجباري بتوفيق،،،، المستخدمين.accdb

و هذا تعديل على نفس كود Function NoToTxt2(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.999 Then Exit Function If TheNo < 0 Then TheNo = TheNo * -1 ReMark = "يتبقى لكم " Else ReMark = "فقط " End If If TheNo = 0 Then NoToTxt2 = "صفر" 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) = "تسعة" '====================== GetNo = Format(TheNo, "000000000000.000") I = 0 Do While I < 15 If I < 12 Then Myno = Mid$(GetNo, I + 1, 3) Else Myno = Mid$(GetNo, I + 2, 3) + "0" End If If (Mid$(Myno, 1, 3)) > 0 Then RdNo = Mid$(Myno, 1, 1) My100 = MyArry1(RdNo) RdNo = Mid$(Myno, 3, 1) My1 = MyArry3(RdNo) RdNo = Mid$(Myno, 2, 1) My10 = MyArry2(RdNo) If Mid$(Myno, 2, 2) = 11 Then My11 = "إحدى عشر" If Mid$(Myno, 2, 2) = 12 Then My12 = "إثنى عشر" If Mid$(Myno, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(Myno, 1, 1)) > 0) And ((Mid$(Myno, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(Myno, 3, 1)) > 0) And ((Mid$(Myno, 2, 1)) > 1) Then My1 = My1 + MyAnd GetTxt = My100 + My1 + My10 If ((Mid$(Myno, 3, 1)) = 1) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My11 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My11 End If If ((Mid$(Myno, 3, 1)) = 2) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My12 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My12 End If If (I = 0) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then Mybillion = GetTxt + " مليار" Else Mybillion = GetTxt + " مليارات" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " مليار" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " ملياران" End If End If If (I = 3) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyMillion = GetTxt + " مليون" Else MyMillion = GetTxt + " ملايين" If ((Mid$(Myno, 1, 3)) = 1) Then MyMillion = " مليون" If ((Mid$(Myno, 1, 3)) = 2) Then MyMillion = " مليونان" End If End If If (I = 6) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyThou = GetTxt + " ألف" Else MyThou = GetTxt + " اَلاف" If ((Mid$(Myno, 3, 1)) = 1) Then MyThou = " ألف" If ((Mid$(Myno, 3, 1)) = 2) Then MyThou = " ألفان" End If End If If (I = 9) And (GetTxt <> "") Then MyHun = GetTxt If (I = 12) And (GetTxt <> "") Then MyFraction = GetTxt End If I = I + 3 Loop If (Mybillion <> "") Then If (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then Mybillion = Mybillion + MyAnd End If If (MyMillion <> "") Then If (MyThou <> "") Or (MyHun <> "") Then MyMillion = MyMillion + MyAnd End If If (MyThou <> "") Then If (MyHun <> "") Then MyThou = MyThou + MyAnd End If If MyFraction <> "" Then If (Mybillion <> "") Or (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then NoToTxt2 = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + MyAnd + MyFraction + " " + MySubCur Else NoToTxt2 = ReMark + MyFraction + " " + MySubCur End If Else NoToTxt2 = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur End If End Function

اخي غير المسار الى: CurrentProject.Path & "\photo\Worker"

اخي العزيز شاركت الموضوع مجرد لتنوع الحلول لا للافضلية، اجابتك و اخلاقك و اسلوبك مع الناس في المنتدى افضل من اجابتي ب مراتب

السلام عليكم و رحمة الله مشاركة مع الأخي ابو بسمله رغم اتمام الاجابة و الطريقة تصفية كل النموذج و تقرير عن طريق vba az2.accdb

الف الف مبروك للأساتذة الكرام

السلام عليكم بعد اذن استاذ اشرف تجد اختلاف في حقل الرتبة (رئيس عرفاء ، نائب عريف) و جميع سجلات منفردة و لايوجد تكرار

أخي @Barna اذننا دائما معك ماشاء الله فعلا طريقة جيدة

قمت بحذف برنامج Avast من جهاز و ضبط ماعدى عند بدء في تحديث ويندوز و جاري حل المشكلة انظر التعديل 11.mdb

و انت بـ خير و الصحة و السلامة أخي أحمد عيدك مبارك و عيد جميع اخواننا في المنتدى و جميع مسلمين انا موجود في االمنتدى بين حين و الآخر و أغلب احيان من خلال جوال لان كمبيوتر فيه فايروس يفصل الشبكة كل دقيقة أو دقيقتين و نحن في فترة حذر تجوال ، الله يسهل امور جميع المسلمين

تفضل أخي 11.mdb

وإياك أخي الكريم