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

تفضل 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 بارك الله فيك استاذى و نتعلم منكم

اسعدك الله وبارك فيك وفى علمكم جزاك الله خيرا على شعوركم الطيب بارك الله فيك اخى واستاذى و نتعلم منكم الله يبارك فى حضرتك الله يبارك فى حضرتك الله يبارك فى حضرتك أستاذى شايب و نتعلم منكم

أستاذى @ابوخليل بارك الله فيك و مازلت تلميذاً وفقك الله وزادك علما ومعرفة بارك الله فيك ووفقك لما يحبه ويرضاه

أساتذتي الكرام، ربنا يبارك فيكم و يحفظكم ما زلت تلميذًا وما زلتُ أتعلم