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

السلام عليكم

في نموذج Frm_acc لا يوجد عنصر تحكم FatherOfAcc

كذلك لا توجد فانكشن / وظيفة  باسم aadd لذلك قم بالغاء السطر التالي

Call aadd

في نموذج Frm_h لا يوجد عنصر تحكم Text45

في نموذج Fb_center قم بالغاء السطر التالي

Private Sub Cosave_Click()

تجربه.rar

تحياتي

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

تحويل بمعني تحويل لا يمكن

لكن يمكن انشاء مشروع اكسيس ومن المؤكد ان يمكن استبدال الدوال الموجودة بالاكسيل بدوال موجود في الاكسيس او انشاء دالة تفي بالغرض

تحياتي

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

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

Function fnAutoField() As String
 Dim strRndNo As String
10:
 strRndNo = Format((999999999 * Rnd) + 1, "100000000")
 If DCount("*", "tblItems", "BarcodeItem='" & strRndNo & "'") > 0 Then GoTo 10
 fnAutoField = strRndNo
End Function

طريقة الاستخدام

       If IsNull([BarcodeItem]) Then
          Me!BarcodeItem = fnAutoField()
    End If

تحياتي

استبدل الكود بالكود التالي

Dim strDirectoryPath As String
strDirectoryPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "Excel"
If Dir(strDirectoryPath, vbDirectory) = "" Then MkDir strDirectoryPath

Output_Path = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "Excel" & "\" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & ".xlsx"
DoCmd.OutputTo acOutputQuery, "q1", "ExcelWorkbook(*.xlsx)", Output_Path, False, "", , acExportQualityPrint
MsgBox "تم عملية انشاء المجلد باسم(Excel) مع تصدير الملف", vbInformation, " OK "

تحياتي

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

 الماكرو عبارة vba او بديل له حيث لا تحتاج الى كتابة كود وظيفته تنفيذ امر او اوامر

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

تحياتي

اكيد يمكن استخدام اي برانامج متحصص لتصميم اللوجهات والواجهات والازرار

والافضل بالتأكيد الفوتوشوب

تحياتي

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

هل المشكلة هي نفس المشكلة السابقة

برجاء التوضيح

تحياتي

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

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

forms!Login!Text1

sample1.rar

تحياتي

اتفقنا قبل ذلك على وضع السطر التالي

Me.Text20 = Null

في الكود الخاص Text22_Click

تحياتي

الان, abouelhassan said:

تم حل المشكلة استاذى بفضل الله وفضلك اشكرك من قلبى

بالتوفيق اخي الكريم

دمت بكل خير

تحياتي

مرحبا اخي الكريم

عند البحث برقم 100 يعطي نتيجة صحيحة = 15200

وعند البحث برقم 120 يعطي نتيجة صحيحة = 2700

بمقارنة هذه النتائج مع بيانات جدول tbl_Items كانت النتائج مضبوطة

تأكد جيدا من وجود السطر التالي بالكود

myWhere = ""

الكود كامل

    Dim myWhere As String
    myWhere = ""
    myWhere = myWhere & "iPage>3"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    
    Me.Text20 = DSum("iAmount", "tbl_Items", myWhere)

تحياتي

في ٢٠‏/٩‏/٢٠٢١ at 09:21, صلاح جبر said:

نسخة الجداول بيكون اسم القاعدة مع _be نهاية الاسم اسحبها لقرص الشبكة الداخلية اما قاعدة النماذج فاعمل منها نسخة بجهاز رئيسي والاجهزة الفرعيه واعمل اعادة ربط لقاعدة البيانات من قائمة البيانات الخارجية  للمسار المحدد داخل الشبكة الداخلية 

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

UI اختصار User Interface = واجهة المستخدم ( النماذج والتقارير )

UX هي User Experience = طريقة تشغيل البرنامج بواسطة المستخدم وتحديد الوظائف التي يقوم بها ( اضافة - حذف _ تعديل - عرض )

باختصار ui/ux هما عمليتان تقوم بهما لمساعدة العميل لتشغيل البرنامج بشكل ومظهر جيد وسهولة العمل داخل البرنامج

مثال :

نموذج frm1 به ثلاث ازرار ( اضافة - حذف - تعديل )

من الجيد ان تضع العناصر بنفس الطريقة في نموذج frm2 بدلاً من ( حذف - اضافة - تعديل )

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

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

ارجو ان اكون قد افدتك

تحياتي

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

ضع الكود التالي لعرض التقرير

    DoCmd.OpenReport "STABLE2-2", acViewPreview, , "[سنة التأهيل] ='" & Me.سنة_التأهيل & "'"

data1.rar

تحياتي

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

اعتقد ان هذه المشكلة ستنتهي اذا قمت باعادة تشفيل اكسيس او اعادة تشغيل الجهاز

تحياتي

الخطأ انك وضعت myWhere نفسها فاما ان نحتار اسم جديد

    Dim myWhere As String
    myWhere = myWhere & "iPage=1"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    Me.Text20 = DSum("iAmount", "tbl_Items", myWhere)
    myWhere = myWhere & "iPage>3"
	
	Dim myWhere1 As String
    myWhere1 = myWhere1 & " and YEAR = " & Me.Combo97
    myWhere 1= myWhere1 & "and iBill_Number = '" & Me.txtsearch & "'"
    Me.Text21 = DSum("iAmount", "tbl_Items", myWhere1)

او تقم بوضع السطر التالي

    Dim myWhere As String
    myWhere = myWhere & "iPage=1"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    Me.Text20 = DSum("iAmount", "tbl_Items", myWhere)
    
	myWhere = ""
	myWhere = myWhere & "iPage>3"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    Me.Text21 = DSum("iAmount", "tbl_Items", myWhere)

تحياتي

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

يمكن ولكن ضع كل اصدار في مجلد

2010

C:\Program Files\Microsoft Office2010\

2003

C:\Program Files\Microsoft Office2003\

تحياتي

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

    Dim i As Integer
    
    With Application.Forms
     For i = .Count - 1 To 0 Step -1
        With .Item(i)
            If .Name <> "FXY" Then
                DoCmd.Close acForm, .Name
            End If
        End With
        Next i
     End With
     DoCmd.OpenForm "FXY"
     
    With Application.Reports
     For i = .Count - 1 To 0 Step -1
        With .Item(i)
            DoCmd.Close acReport, .Name
        End With
     Next i
     End With

تحياتي

11 ساعات مضت, abouelhassan said:

لو عايز اجمالى بدون حساب 1و2و3 اضيف المعيار ازى

يكفي التعديل التالي

    Dim myWhere As String

    myWhere = myWhere & "iPage>3"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    
    Me.Text20 = DSum("iAmount", "tbl_Items", myWhere)

اما اذا اردت 3 فقط

    Dim myWhere As String

    myWhere = myWhere & "iPage=3"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    
    Me.Text20 = DSum("iAmount", "tbl_Items", myWhere)

تحياتي

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

نحياتي

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

يعمل بشكل ممتاز ولا توجد مشكلة في تشفيل الملف

ربما تكون المشكلة في نسخة الاوفيس

تحياتي

يمكن باذن الله

حسنأ اخي الكريم

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

    Dim myWhere As String
    
    myWhere = myWhere & "iPage>1"
    myWhere = myWhere & " and YEAR = " & Me.Combo97
    myWhere = myWhere & "and iBill_Number = '" & Me.txtsearch & "'"
    
    Me.Text20 = DSum("iAmount", "tbl_Items", myWhere)

DATA1041-5.rar

تحياتي

16 ساعات مضت, 01012998222 said:

هندسة انا محتاج كمان رصيد المخزن dsum انا عامل الكود بتاع الرصيد بس على تحديث الكود انا محتاج الرصيد يظهر كمان باقي البيانات

هو الآن يتم استدعاه في نفس الكود السابق

Call كود_صنف_AfterUpdate

ويظهر الرصيد بدون مشاكل

برجاء التوضيح اكثر

تحياتي

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

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

مثال ما وجه العلاقة او المعيار بين الارقام التالية

41/25
41/22/252
44/25/25/1

بمعني كيف تبدأ الارقام لديك ؟ وكيف تنتهي وبتدأ / جديد

هل بالشكل التالي

41/1 >>> 41/99
42/1 >>> 42/99


41/22/1 >>> 41/22/99
42/22/1 >>> 42/22/99

44/25/25/1 >>> 44/25/25/99
45/25/25/1 >>> 44/25/25/99

ام انك تريد زيادة على اخر رقم فقط

44/25/25/3 >>> 44/25/25/99

اشرح اكثر بارك الله فيك عن كيفية كتابة الرقم وطريقة الزيادة

تحياتي

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

جرب التعديل التالي

        On Error Resume Next
        Dim xLast, xNext As Integer
        Dim prtyr, prtTxt As Integer
        
        prtyr = DatePart("yyyy", Date)
        prtTxt = CLng(Left(DMax("S", "Cridi"), 4))
        xLast = CLng(Right(DMax("S", "Cridi", prtTxt = prtyr), 3))
        
            If IsNull(xLast) Then
                xNext = 1
            Else
                xNext = xLast + 1
            End If
            
        Me!Loan_ID = DFirst("c1", "[Cridi]", "Right(XDate, 4) =" & Right(Date, 4)) & Format(xNext, "0") & "/" & prtyr
        Me![Année] = YEAR(Date)

مع مراعاة حقل التاريخ XDate

تحياتي