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

مشاركة مع أساتذتى 

فى حدث عند الطباعة 

 

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

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

راجع هذه المشاركة 

اقتباس

 

في 19‏/11‏/2015 at 11:37, jjafferr said:

المسألة في الدائرة الحمراء وهي المادة 3 ، تأكد انها دولة فيها الحروف التي في برنامجك ، العربية في حالتنا  ،

وعدم اختيار المربع في الرقم 4 :

 

 

ثم تعيد تشغيل الكمبيوتر 🙂

أستاذ @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
 

تفضل هل هذا ما تريد 

 

INSERT INTO tbmor ( [or] )
SELECT [tbmr.mr] & "-" & [tbmo.mo] AS 123
FROM tbmo, tbmr;

mor.accdb