husamwahab

تفضل التعديل ارجو ان يكون طلبك
حساب تاريخ الحمل-11.rar

مشاركة مع استاذي العزيز جعفر
اعتقد ان المشكلة ليست بالحروف وانما بالقيم الفارغة
Function m_ar(a As Variant) As String If IsNull(a) Then m_ar = "عربي" ElseIf Val(a) < 20 Then m_ar = "عربي" Else m_ar = "" End If End Function  وهذه محاولة ارجو ان تكون موفقة
 

تفضل التعديل ارجو ان يكون طلبك
مثال-2.rar

وعليكم السلام استاذ عزالدين المنصوري
تفضل هذه المحاولة ارجو ان تكون طلبك
ملاحظة : الكود منقول من الرابط ادناه مع بعض الاضافات البسيطة ليناسب المطلوب
 
 
Desktop.rar

عليكم السلام استاذ WESAMZALL1177
تفضل هذه المحاولة ارجو ان تكون طلبك
فاتوره-2.rar

عليكم السلام استاذ ٌRayan Zakho
تفضل هذه المحاولة ارجو ان تكون طلبك
Root-20.rar

مشاركة مع استاذ جعفر
ارجو ان تكون موفقة
 
aaa.rar

وعليكم السلام استاذ اشرف 
تفضل التعديل  حسب فهمي
On Error GoTo err: ' Requires reference to Microsoft Office 14.0 Object Library. Dim fso As Object Set fso = CreateObject("scripting.filesystemobject") Dim fDialog As Office.FileDialog Dim varFile As Variant Dim destpath As Variant Dim i As Long ' Clear listbox contents. Me.PicPath1 = "" Me.PicPath2 = "" Me.PicPath3 = "" ' Set up the File Dialog. Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog ' Allow user to make multiple selections in dialog box .AllowMultiSelect = True ' Set the title of the dialog box. .Title = "Please select images" ' Clear out the current filters, and add our own. .Filters.Clear .Filters.Add "jpg image", "*.jpg" ' Show the dialog box. If the .Show method returns True, the ' user picked at least all files. If the .Show method returns ' False, the user clicked Cancel. If .Show = True Then i = 1 'Loop through each file selected and add it to our list box. For Each varFile In .SelectedItems If i = 1 Then destpath = Application.CurrentProject.Path & "\" & "ashraf" & "\" & Me.PName & "a." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, destpath Me.PicPath1 = destpath ElseIf i = 2 Then destpath = Application.CurrentProject.Path & "\" & "ashraf" & "\" & Me.PName & "b." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, destpath Me.PicPath2 = destpath Else destpath = Application.CurrentProject.Path & "\" & "ashraf" & "\" & Me.PName & "d." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, destpath Me.PicPath3 = destpath End If i = i + 1 Next Else MsgBox "You clicked Cancel in the file dialog box." End If End With Exit Sub err: MsgBox err.Description & " " & err.Number  

بالخدمة استاذ Mohameddd2003
 
RRR.rar

مشاركة مع استاذي العزيز ابا جودي
 
aaa.rar

السلام عليكم استاذ محمود حاتم احمد
تفسير الكود ان خزن النسخة الاحتياطية يتم في فولدر backup 
ويجب ان يكون الفولدر بجانب قاعدة البيانات اي في نفس المسار وعليه هناك طريقتين للحل حسب فهمي لطلبك
الاولى : ان ننشاء فولدر بجانب قاعدة البيانات كلما دعت الضرورة لذلك وهي طريقة غير عملية لاننا سنجد تعدد الفولدر وباماكن مختلفة كذلك تشتت النسخ الاحتياطية وهذا هو كود الطريقة الاولى
On Error GoTo MyErr Dim strFilePath As String strFilePath = CurrentProject.Path & "\backup" Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, CopyMyDB adad = CurrentProject.Path & "\Blocks_be.accdb" OldFile = adad DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) If Len(Dir(strFilePath, vbDirectory)) = 0 Then MkDir strFilePath SetAttr strFilePath, vbNormal End If NewFile = strFilePath & "\Blocks_be-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-ss-AMPM.") & Right(DBwithEXT, 5) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If  الطريقة الثانية : ان نجعل في الكود مسار ثابت لخزن النسخ الاحتياطية وبالتالي يمكن تشغيل قاعدة البيانات في اي مكان من الهارد وهذه الطريقة عملية اكثر ولا تؤدي الى تشتت النسخ الاحتياطية 
وهذا كود الطريقة الثانية علما ان الحفظ سيتم في c في فولدر backup
On Error GoTo MyErr Dim strFilePath As String strFilePath = "C:\backup" Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, CopyMyDB adad = CurrentProject.Path & "\Blocks_be.accdb" OldFile = adad DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) If Len(Dir(strFilePath, vbDirectory)) = 0 Then MkDir strFilePath SetAttr strFilePath, vbNormal End If NewFile = strFilePath & "\Blocks_be-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-ss-AMPM.") & Right(DBwithEXT, 5) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If وعذرا للاطالة
 

تفضل هذا المثال ارجو ان ينفعك
aaa.rar

السلام عليكم 
مشاركة مع استاذي العزيز الفلاحجى
 اخ Matin_Murad 
وصفك للمطلوب غير صحيح فهناك عبارة  التعامل مع سجلات مكررة وهو ما فهمه استاذ احمد منك وكان حله صحيح
اما ما تريده هو التعامل مع قيم مكررة في حقل وهو حل اخر بالاضافة يجب ان توضح مصير الحقول الاخرى بحيث هل تريد القيمة الاولى ام الاخيرة ام المجموع
وهذا تعديل بطلبك مع مجموع الحقل الثاني
وعذرا للاطالة 
onerecord-1.rar

تفضل هذه المحاولة وارجو ان تكون طلبك
 
ترقيم تلقائى-2.rar

السلام عليكم
مشاركة مع اساتذتي الاعزاء
تفضل هذه المحاولة ارجو ان تكون طلبك
ملاحظة : شغل المايكرو لتشغيل الكود وهو معد لتغيير خلفية جميع النماذج المفردة في قاعدة البيانات 
BackGround.rar

تفضل التعديل ارجو ان يكون طلبك
Compressed.rar

تفضل التعديل
تعريف الاعداد الكبيرة يكون ب Long
بدل Integer
Database2.rar
تفضل التعديل
تعريف الاعداد الكبيرة يكون ب Long
بدل Integer

اعتذر منك استاذي العزيز استاذ jjafferr
 
وهذا هو التعديل حسب موافقة استاذ جعفر جزاه الله كل خير
استاذ Ahmed_J يرجى التاكد اكثر من مرة من صحة النتائج قبل اعتماد التعديل
B2.rar

عليكم السلام
الفكرة جميلة جدا عاشت ايديك
تفضلالتعديل ارجو ان يكون طلبك
ملاحظة : تم استخدام صور غير صورك للضرورة يمكنك تعديلها ووضع الصور التي تريد في جدول tblImages
512563393_-2.rar

تفضل التعديل ارجو ان يكون طلبك
مثال-11.rar

تفضل هذه المحاولة 
تحديث الصور فى المجلدين-2.rar

من رخصة استاذي العزيز kanory
تفضل التعديل ارجو ان يكون طلبك 
test-6.rar

تفضل التعديل ارجو ان يكون طلبك
 
Combobox-2.rar

بالخدمة استاذ Ahmed_J
تفضل التعديل
ملاحظة : الافضل في المستقبل وضع مشاركة جديدة لطلب جديد لانه قد نكون مخالفين لقواعد المشاركة في الموقع
واعتذر من المشرفين اذا حدث هذا التجاوز    
test-5.rar

عليكم السلام والرحمة
طريقتك غير ممكنة في جدول مستمر لان نطاق بيانات حقل نوع المخالفة يعتمد على حقل وصف المخالفة
لذا اي تغير في حقل وصف المخالفة سيؤدي الى تغيير نطاق بيانات نوع المخالفة وبالتالي سيهمل البيانات التي خارج النطاق وكذلك الحال بالنسبة لحقل مقدار الحسم
هذه محاولة ارجو ان تفيدك مع بعض التغييرات الممكنة
 
Database2.rar