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

اللغة العربية

تفضل

أسف للخطا IIF([eltkeem_elam] = 'غ' AND [stuehoa] = 'ذكر'; 'ناجح بحكم القانون';IIF([eltkeem_elam] = 'غ' AND [stuehoa] = 'انثى'; 'ناجحة بحكم القانون';IIF([eltkeem_elam] = 'ح' AND [stuehoa] = 'ذكر'; 'ناجح';IIF([eltkeem_elam] = 'ح' AND [stuehoa] = 'انثى'; 'ناجحة'))) ناجح.accdb

تفضل IIF([eltkeem_elam] = 'غ' AND [stuehoa] = 'ذكر'; 'ناجح بحكم القانون';IIF([eltkeem_elam] = 'غ' AND [stuehoa] = 'انثى'; 'ناجحة بحكم القانون';IIF([eltkeem_elam] = 'ح' AND [stuehoa] = 'ذكر'; 'ناجح';IIF([eltkeem_elam] = 'ح' AND [stuehoa] = 'انثى'; 'ناجحة'))) لكى تصلك مساعدة سريعة يرجى كتابة الكود و ليس وضع صورة أو وضع مثال صغير شكراُ لتفهك هذا المثال من موضوع سابق لك قمت بالعمل عليه تم التعديل ناجح.accdb

تفضل Dim folderPath As String folderPath = Me.linkx ' or ' folderPath = "d:\MyFolder\" & Me.ID ' فتح المجلد Shell "explorer.exe """ & folderPath & """", vbNormalFocus ضع الامر فى حدث عند النقر على حقل المسار أو من خلال الزرار فتح المجلد كما تريد

شكرا على الهدية و كل عام و أنت بخير

تفضل مسار المجلد.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