محمد احمد لطفى

تفضل مسار المجلد.rar مسار الملف.rar

تفضل هل هذا ما تريد بالتوفيق جديد.accdb

تعديل صغير للتأكد من وجود الملف قبل انشاء ملف جديد Dim MaakeFolder As String MaakeFolder = CurrentProject.Path & "\Libraries\Library1\BOOKS\" & Me.BookName If Len(Dir(MaakeFolder, vbDirectory)) = 0 Then MkDir MaakeFolder End If Libraries.rar

تفضل MkDir CurrentProject.Path & "\Libraries\Library1\BOOKS\" & FolderA

مشاركة أستاذى @Foksh Dim folderPath As String Dim folderName As String Dim checkFolder As String folderPath = "C:\Libraries\Library1\BOOKS\" folderName = Me.TextBox1.Value checkFolder = Dir(folderPath & folderName, vbDirectory) If checkFolder = "" Then MkDir folderPath & folderName Else MsgBox "Folder already exists!", vbExclamation End If

هناك طريقتان أخريان اعرفها If DCount("*", "الطالب", "اسم_الطالب='" & Me.xxx & "'") > 1 Then MsgBox "اسم الطالب هذا قد تم تسجيله من قبل." DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True End If Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM الطالب WHERE اسم_الطالب='" & Me.xxx & "'") If Not rs.EOF Then MsgBox "اسم الطالب هذا قد تم تسجيله من قبل." DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True End If rs.Close Set rs = Nothing

موجود فى نفس المثال جدول قم بملىء الجدول بالاسماء العربية وما يقابلها بالانجليزية قم بمسح البيانات و أملائه بالطريقة اليدوية

بداية شاهد هذا الملف ملف سابق من المنتدى تغيير من الجدول ترجمة من الانترنت Replace.mdb

تفضل من المنتدى نتيجة ابو جودى.rar

... شكراً على الهدية

تفضل بالتوفيق INSERT INTO tbmor ( [or] ) SELECT DISTINCT [tbmr.mr] & "-" & [tbmo.mo] AS 123 FROM tbmo, tbmr WHERE (((Exists (SELECT 1 FROM tbmor WHERE tbmor.[or] = [tbmr.mr] & "-" & [tbmo.mo] ))=False)) ORDER BY [tbmr.mr] & "-" & [tbmo.mo]; شكراً أستاذى @Foksh

تفضل هل هذا ما تريد INSERT INTO tbmor ( [or] ) SELECT [tbmr.mr] & "-" & [tbmo.mo] AS 123 FROM tbmo, tbmr; mor.accdb

من الخصائص اجعل منبثق = نعم و فى حدث عند الفتح DoCmd.Maximize بالتوفيق

تفضل اذا كان هناك مشكلة ارفق مثال Color.mdb

هل حقل total_arabic_nesf1 فيه قيمة غ

جرب بالتوفيق caler_arabic: IIf([total_arabic_nesf1]>=85, "أزرق", IIf([total_arabic_nesf1]>=65, "أخضر", IIf([total_arabic_nesf1]>=50, "أصفر", IIf([total_arabic_nesf1]>=1, "أحمر", IIf([total_arabic_nesf1]="غ", "غ", "")))))

تفضل =IIf(IsNull([many]);0;Sum([many]))

فقط قم باخفاء المربع الاصلى الصفر في التقرير.mdb

تفضل هل هذا ما تريد Dim a As String a = Me.x If Me.x = a Then Forms("fxm").Controls(a).Value = True End If أو If Me.x <> "" Then Forms("fxm").Controls(Me.x).Value = True End If testc.accdb

تفضل بالتوفيق If me.aa = 1 Then DoCmd.OpenForm "bb" Else MsgBox "يجب كتابة رقم صحيح" End If

تفضل هل هذا ما تريد Database5.accdb

تفضل qtest-1.accdb

تفضل حسب ما فهمت هناك طريقتان فى الوحدة النمطية اختر ما يناسبك qtest-1.accdb

اجعل التقرير منبثق نعم و عند حدث عند فتح التقرير قم باضافة DoCmd.Maximize بالتوفيق

@شامل2 وفقك الله وزادك علما ومعرفة @gamal gamal تمنياتى لك وللجميع بالتوفيق @kkhalifa1960 بارك الله فيك استاذى و نتعلم منكم