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

ربنا يشفيه ويعافيه شفاء لا يغادر سقما

مشاركة مع أساتذتى فى حدث عند الطباعة Private Sub Report_Page() Me.DrawWidth = 10 Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), , B Me.DrawWidth = 20 Me.Line (20, 20)-(Me.ScaleWidth - 20, Me.ScaleHeight - 20), , B End Sub

تفضل قمت بالتنفيذ فى حقل name1 نفذ نفس الفكرة فى باقى الحقول بالتوفيق تلوين النصوص الفارغة.mdb

سؤال التقرير فيه صفحات ممتلئة و صفحات فارغة واذا كانت الاجابة التقرير لا يوجد بيانات اكتب مباشرة DoCmd.CancelEvent

تفضل بالتوفيق في حدث "On NoData" اكتب msgbox "لا توجد بيانات" cancel=true أو MsgBox "لا توجد بيانات في التقرير", , "تنبيه" DoCmd.CancelEvent

المشكلة عادة تكون فى لغة الويندوذ راجع هذه المشاركة

أستاذ @jo_2010 Public Function Jo_2010 () Forms("YourFormName").Controls("P_Day").SourceObject = "NewPU" Forms("YourFormName").Controls("P_Day").Form.Controls("TN").Caption = "Urine" Dim myfilter As String myfilter = "[TName]='" & "Urine" & "'" Forms("YourFormName").Controls("P_Day").Form.Filter = myfilter Forms("YourFormName").Controls("P_Day").Form.FilterOn = True Forms("YourFormName").Controls("JO") = 3 Forms("YourFormName").Controls("U_OK").Requery End Function قم بتغيير YourFormName باسم النموذج المراد العمل عليه أو Public Function Jo_2010 () Dim frm As Form Set frm = Screen.ActiveForm ' النموذج الحالي If Not frm Is Nothing Then frm.Controls("P_Day").SourceObject = "NewPU" frm.Controls("P_Day").Form.Controls("TN").Caption = "Urine" Dim myfilter As String myfilter = "[TName]='" & "Urine" & "'" frm.Controls("P_Day").Form.Filter = myfilter frm.Controls("P_Day").Form.FilterOn = True frm.Controls("JO") = 3 frm.Controls("U_OK").Requery Else MsgBox "No active form found.", vbExclamation End If End Function مفترض أن يعلم النموذج الذى سيتم العمل علية لم أقوم بالتجريب لانه لا يوجد مرفق

تفضل بالتوفيق Show Hide Icon Desk Top.mdb

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

تفضل

أسف للخطا 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