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

السلام عليكم في نموذج 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 تحياتي بالتوفيق اخي الكريم دمت بكل خير تحياتي

مرحبا اخي الكريم عند البحث برقم 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) تحياتي

وعليكم السلام ورحمة الله وبركاته 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 تحياتي

يكفي التعديل التالي 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 تحياتي

هو الآن يتم استدعاه في نفس الكود السابق 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 تحياتي