اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

محمد أبوعبدالله

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1,998

  • تاريخ الانضمام

  • Days Won

    26

 نوع المحتوي 

مشاركات المكتوبه بواسطه محمد أبوعبدالله

    مساعدة في اجبار المستخدم ان يدخل تاريخ اليوم في الادخالات اليوميه

    في قسم الأكسيس Access

    قام بنشر

    الحل لهذه المشكلة الا يكون الحقل غير منضم والاعتماد في هذه الحالة عل حقل " تاريخه = odb_Date " فقط

    وبهذا بمكن التعامل معه مباشرة بدون الحقل الغير منضم

    واجعله غير قابل للتعديل حتى لا يمكن التعديل على السجلات سواء السابقة او الحالية

    والاكتفاء بوضع قيمة افتراضية له تاريخ اليوم = date وليس مصدر السجلات

    تحياتي

     

     

    • Like 1

    مساعدة في اجبار المستخدم ان يدخل تاريخ اليوم في الادخالات اليوميه

    في قسم الأكسيس Access

    قام بنشر

    وعليكم السلام ورحمة الله وبركاته

    بالاضافة الى اخونا @الحلبي وله الشكر

    استخدم الكود التالي 

            If Me.NewRecord Then
            Me.odb_Date = Date
        End If

    بدلاً من 

    Me.odb_Date = Date
If Me.odb_Date <> Date Then
MsgBox "غير مقبول"
End If

    odbBalanceAmir.rar

    تحياتي

    • Like 2

    [شرح] اداة تحويل SQL الى VBA من برمجتي

    في قسم الأكسيس Access

    قام بنشر

    بارك الله فيك استاذنا الفاضل

    البرنامج يعمل جيدا في حالة الحاق البيانات في نفس الجدول

    لكن لو كان الالحاق بجدول ثاني تظهر اخطاء

    مثال : هذه جملة Sql منقولة من استعلام الحاق موجود بالفعل 

    INSERT INTO tblOperations ( IdAgents, XDate, X13 )
SELECT tblAgents.IdAgents, Date() AS Xdate, tblAgents.MonthlyPayment
FROM tblAgents
WHERE (((tblAgents.MonthlyPayment)<>0) AND ((tblAgents.IdAgentsType)=1));

    وهذه النتيجة من البرنامج 

    Public Sub Insert_tblOperations ( IdAgents, XDate, X13 )
SELECT tblAgents.IdAgents, Date() AS Xdate, tblAgents.MonthlyPayment
FROM tblAgents
WHERE (((tblAgents.MonthlyPayment)<>0) AND ((tblAgents.IdAgentsType)=LogedType (IdAgents, XDate, X13 ) 
Dim mySQL As String
    mySQL = "INSERT INTO tblOperations ( IdAgents, XDate, X13 )
SELECT tblAgents.IdAgents, Date() AS Xdate, tblAgents.MonthlyPayment
FROM tblAgents
WHERE (((tblAgents.MonthlyPayment)<>0) AND ((tblAgents.IdAgentsType)=LogedType "
    mySQL = mySQL & "(IdAgents, XDate, X13)"
    mySQL = mySQL & " VALUES "
    mySQL = mySQL & "('" & IdAgents & "','" & XDate & "','" & X13 & "')"
    CurrentDb.Execute mySQL
End Sub

    تحياتي

    كود نسخة احتياطية

    في قسم الأكسيس Access

    قام بنشر

    1 ساعه مضت, abouelhassan said:

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

    هل جربت الكود الذي ارفقته لك

    اعتقدت ان الموضوع متعلق بصلاحيات ويندوز

    ولكني جربت الكود الآن فلم تظهر مشكلة والحمد لله وتم عمل نسخة احتياطية بنجاح

    تحياتي

    • Like 1

    تحويل تاريخ الى عدد

    في قسم الأكسيس Access

    قام بنشر

    وعليكم السلام ورحمة الله وبركاته

    بالاضافة الى ما تفضل به الاخوة الكرام ولهم الشكر

    اولاً لديك مشكلة انك تستخدم حقل باسم date وهذا الاسم محجوز لتاريخ اليوم  الا اذا كنت تسخدمه لعرض اليوم الحالي

    ثانياً جرب الكود التالي 

    dusm("عمود";"جدول";"Format([date1];"yyyy/mm/dd")<=date and date<Format([date2];"yyyy/mm/dd")")

    تحياتي

    اضافة الى الفرعى ومنع التكرار

    في قسم الأكسيس Access

    قام بنشر

    وعليكم السلام ورحمة الله وبركاته

    تفضل اخي الكريم 

    Private Sub Combo23_Click()

        If DLookup("[Id]", "[price]", "[Id] ='" & Me.Combo23.Column(0) & "'") > 0 Then
            MsgBox "العنصر مضاف من قبل"
        Else

            Dim db As DAO.Database
            Dim Rs As DAO.Recordset
    
            Set db = CurrentDb
            Set Rs = db.OpenRecordset("SELECT price.*FROM price;")
            
            Rs.AddNew
            Rs("Id") = Me.Combo23.Column(0)
            Rs("xname") = Me.Combo23.Column(1)
            Rs.Update
            Rs.Close
            Me.pricesub.Requery
        
        End If
                 
End Sub

    مكرر.rar

    تحياتي

    • Like 3

    مطلوب التعويض عن الحروف بقيمتها حسب الجملة كاملة

    في قسم الأكسيس Access

    قام بنشر

    تفضل اخي الكريم 

    Private Sub Form_Current()
On Error GoTo Err:
    If IsNull(Me.Text79) Then
        DoCmd.CancelEvent
    Else
    
        X1 = NoSpace(Me.Text79)
'        Debug.Print X1
        Me.[1].Value = Mid(X1, 1, 1)
        Me.[2].Value = Mid(X1, 2, 1)
        Me.[3].Value = Mid(X1, 3, 1)
        Me.[4].Value = Mid(X1, 4, 1)
        Me.[5].Value = Mid(X1, 5, 1)
        Me.[6].Value = Mid(X1, 6, 1)
        Me.[7].Value = Mid(X1, 7, 1)
        Me.[8].Value = Mid(X1, 8, 1)
        Me.[9].Value = Mid(X1, 9, 1)
        Me.[10].Value = Mid(X1, 10, 1)
        Me.[11].Value = Mid(X1, 11, 1)
        Me.[12].Value = Mid(X1, 12, 1)
        Me.[13].Value = Mid(X1, 13, 1)
        Me.[14].Value = Mid(X1, 14, 1)
        Me.[15].Value = Mid(X1, 15, 1)
        Me.[16].Value = Mid(X1, 16, 1)
        Me.[17].Value = Mid(X1, 17, 1)
        Me.[18].Value = Mid(X1, 18, 1)
        Me.[19].Value = Mid(X1, 19, 1)
        Me.[20].Value = Mid(X1, 20, 1)
        Me.[21].Value = Mid(X1, 21, 1)
        Me.[22].Value = Mid(X1, 22, 1)
        Me.[23].Value = Mid(X1, 23, 1)
        Me.[24].Value = Mid(X1, 24, 1)
        Me.[25].Value = Mid(X1, 25, 1)
        Me.[26].Value = Mid(X1, 26, 1)
        Me.[27].Value = Mid(X1, 27, 1)
        Me.[28].Value = Mid(X1, 28, 1)
        Me.[29].Value = Mid(X1, 29, 1)
        Me.[30].Value = Mid(X1, 30, 1)


    End If

Err:

End Sub

Private Sub Text79_Exit(Cancel As Integer)
    
    Call Form_Current

End Sub

    حروف.rar

    تحياتي

    وهذه اضافة على ملف استاذنا @kanory

    kan_001238.rar

    تحياتي

    • Thanks 2

    كود يحتوي على معيارين

    في قسم الأكسيس Access

    قام بنشر

    8 دقائق مضت, Eng.Qassim said:

    المفروض ان التقرير مصدر سجلاته استعلام

    لماذا المفروض ؟

    يمكن ان يكون مصدر التقرير جدول ويتم وضع المعايير المناسبة في كود

    وهذا مثال اخر لوضع كود لعمل فلتر للتقرير 

    stLinkCriteria = "("
stLinkCriteria = stLinkCriteria & "[txtMovementDateStart] between #" & Format$(Form_frmVehicleDetailes.txtFrom, "yyyy/mm/dd") & "# And # " & Format$(Form_frmVehicleDetailes.txtTo, "yyyy/mm/dd") & "#"
stLinkCriteria = stLinkCriteria & " AND "
stLinkCriteria = stLinkCriteria & "[Id]=" & [Id]
stLinkCriteria = stLinkCriteria & ")"

'Debug.Print stLinkCriteria
DoCmd.OpenReport "repVehicleMovement", acViewPreview, , stLinkCriteria

    تحياتي

    • Like 1

    مساعدة في عدم قبول تسجيل التاريخ الا وفق ضوابط خاصة

    في قسم الأكسيس Access

    قام بنشر

    9 دقائق مضت, AboBahaa said:

    والمراد لطفاً

    هو عند الغاء المستخدم رسالة التنبية يتم الحذف التلقائي للتاريخ المدخل بنهاية الترخيص

    تفضل اخي الكريم 

        If [aintiha alsijil] < [nihayat altarkhis] Then
'             DoCmd.CancelEvent
             Me.nihayat_altarkhis = Null
            MsgBox "عذرا تاريخ نهاية السجل التجاري قبل نهايةالترخيص"
     ElseIf [nihayat aldaman albankii] < [nihayat altarkhis] Then
'            DoCmd.CancelEvent
            Me.nihayat_altarkhis = Null
            MsgBox "عذرا تاريخ نهاية الضمان البنكي قبل نهاية الترخيص"
    End If

    Database72.accdb

    تحباتي

    • Thanks 1

    مساعدة في عدم قبول تسجيل التاريخ الا وفق ضوابط خاصة

    في قسم الأكسيس Access

    قام بنشر

    وعليكم السلام ورحمة الله وبركاته

    تفضل اخي الكريم 

    Private Sub nihayat_altarkhis_Exit(Cancel As Integer)

    If [aintiha alsijil] > [nihayat altarkhis] Then
             DoCmd.CancelEvent
            MsgBox "التاريخ اكبر من التاريخ المطلوب"
     ElseIf [nihayat aldaman albankii] > [nihayat altarkhis] Then
            DoCmd.CancelEvent
            MsgBox "التاريخ اكبر من التاريخ المطلوب"
    End If

End Sub

    Database72.rar

    تحياتي

    • Like 2

    مطلوب التعويض عن الحروف بقيمتها حسب الجملة كاملة

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم

    افتح موديول جديد وضع به الكود التالي ووظيفته حذف جميع المسافات بالنص 

    Function NoSpace(X3 As String) As String

Dim X5 As String
    X5 = RTrim(X3)
    Do While InStr(X5, " ") > 0
      X5 = Left(X5, InStr(X5, " ") - 1) & Mid(X5, InStr(X5, " ") + 1)
    Loop
    NoSpace = Trim(X5)
    
End Function

    وفي النموذج اضف مربع نص جديد لكتابة النص به

    وضع به الكود التالي في حدث عند الخروج 

    On Error GoTo Err:
    If IsNull(Me.Text79) Then
        DoCmd.CancelEvent
    Else
    
        X1 = NoSpace(Me.Text79)
'        Debug.Print X1
        Me.[1].Value = Mid(X1, 1, 1)
        Me.[2].Value = Mid(X1, 2, 1)
        Me.[3].Value = Mid(X1, 3, 1)
        Me.[4].Value = Mid(X1, 4, 1)
        Me.[5].Value = Mid(X1, 5, 1)
        Me.[6].Value = Mid(X1, 6, 1)
        Me.[7].Value = Mid(X1, 7, 1)
        Me.[8].Value = Mid(X1, 8, 1)
        Me.[9].Value = Mid(X1, 9, 1)
        Me.[10].Value = Mid(X1, 10, 1)
        Me.[11].Value = Mid(X1, 11, 1)
        Me.[12].Value = Mid(X1, 12, 1)
        Me.[13].Value = Mid(X1, 13, 1)
        Me.[14].Value = Mid(X1, 14, 1)
        Me.[15].Value = Mid(X1, 15, 1)
        Me.[16].Value = Mid(X1, 16, 1)
        Me.[17].Value = Mid(X1, 17, 1)
        Me.[18].Value = Mid(X1, 18, 1)
        Me.[19].Value = Mid(X1, 19, 1)
        Me.[20].Value = Mid(X1, 20, 1)
        Me.[21].Value = Mid(X1, 21, 1)
        Me.[22].Value = Mid(X1, 22, 1)
        Me.[23].Value = Mid(X1, 23, 1)
        Me.[24].Value = Mid(X1, 24, 1)
        Me.[25].Value = Mid(X1, 25, 1)
        Me.[26].Value = Mid(X1, 26, 1)
        Me.[27].Value = Mid(X1, 27, 1)
        Me.[28].Value = Mid(X1, 28, 1)
        Me.[29].Value = Mid(X1, 29, 1)
        Me.[30].Value = Mid(X1, 30, 1)


    End If

Err:

    حروف.rar

    تحياتي

    • Like 3

    تخزين قاعدة البيانات في ( جوجل درايف ) مع تاريخ ووقت الارسال

    في قسم الأكسيس Access

    قام بنشر

    في ٤‏/٨‏/٢٠٢١ at 23:32, qathi said:

    توجد مشكلة بسيطه وهي: اذا كان عدد حروف اسم القاعدة الخالفية اكبر من سته احرف فانه يقتطع مابعد 6 ويضع الفرمات التاريخ والوقت ويكمل بقية الاحرف بعد ذلك

    الحروف الستة هي امتداد الملف .accdb

    وليست لها علاقة باسم الملف نفسه

    لكنك تستخدم امتداد قاعدة البيانات .DB 

    OldFile = CurrentProject.Path & "\DataBe\Data.DB"

    لذلك تحدث المشكلة

    على كل حال ان كنت تسخدم قاعة بيانات بامتداد .accdb يكون عدد الحروف 6

    واذا كانت .mdb يكون عدد الحروف 4

    واذا كانت .DB يكون عدد الحروف 3

    تحياتي

     

    كود تصدير واستيراد البيانات من الاكسيس الى اكسيل والعكس

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم

    عند الاستيراد اضفط زر استعراض اولاً ثم خدد الملف واضغط زر استيراد

    وعند التصدير استخدم الكود التالي 

            On Error GoTo err:
        DoCmd.OutputTo acOutputTable, "tbl_Items", acFormatXLSX, , False
        MsgBox "أكسس صدر البيانات المطلوبة إلى ملف إكسل بنجاح"
err:
        MsgBox "مشكلة بتصدير الملف"

    DATA10041.mdb

    تحياتي

    • Like 3
×
×
  • اضف...

Important Information

  I accept