-
Posts
6,521 -
تاريخ الانضمام
-
Days Won
169
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو ابو جودي
-
هذا فى الاساس استعلام وهذا الكود هو بناء الاستعلام SQL
-
اولا انا فعلا عدلت بس مش بعد مشاركة حضرتك ممكن حضرتك لما قلت ولما عدلت كان التعديل على السطر اللى تحت يا افندم مش ع السطر ده من الكود وفى الاخر الموضوع ولا مقصود منه توحيه الاتهام اليك بالعبث ولا مقصود منه احراج سيادتك حضرتك وضعت الكود وقلت يمكن تطويرها فى الاخر الهدف واحد تقديم المساعدة وان اتعلم من اساتذتى واكن للجميع كل الاحترام والتقدير
-
استاذى الجليل اليكم التطبيق Ceiling function (2).mdb
-
ههههههههه طب ع الاقل جرب قبل لا تضع الرد
-
فقط لاضافاء المرونة ممكن استخدام الروتين بهذا الشكل ليسهل التقريب الى الرقم المطلوب فى حالة غيير الرقم Function myRound(ByVal Num As Double, Optional ByVal Factor As Double = 1) As Double Dim Frac As Double Num = Num / Factor Frac = Num - Int(Num) Frac = IIf(Frac = 0, 0, IIf(Frac > 0.5, Factor, Factor)) myRound = Int(Num) * Factor + Frac End Function على ان يتم استدعاء الوتين من خلال myRound([SourceNumber],variableOfFixedNumber)
-
اتفضل يا سيدى اولا قم بعمل وحدة نمطية وضع بها الاكواد الاتية Public Function Ceiling(ByVal X As Double, Optional ByVal Factor As Double = 1) As Double ' X is the value you want to round ' is the multiple to which you want to round Ceiling = (Int(X / Factor) - (X / Factor - Int(X / Factor) > 0)) * Factor End Function Public Function Floor(ByVal X As Double, Optional ByVal Factor As Double = 1) As Double ' X is the value you want to round ' is the multiple to which you want to round Floor = Int(X / Factor) * Factor End Function استدعاء الدالة كالاتى Ceiling([SourceNumber],variableOfFixedNumber) التقريب الى الرقم الصحيح 5 يمكنك تغسييره الى ما تريد وليكن 10 او 20 او اى عدد تريده -------- الطريقة الثانية ولكن لن تستطيع تغيير الرقم الذى تريد التقريب اليه استخدم الكود الاتى مباشرة Int(-0.2*[SourceNumber])/-0.2
-
ممكن اعرف تحديدا مقصدك هل تقصد المرفق الذى اضفته ام المرفق يعمل بنجاح ولكن عند محاكاته على تطبيق لم تعمل الاكواد بنجاح ؟!
-
السلام عليكم ورحمة الله تعالى وبركاته اعتذر عن التأخير انشاء الله اليكم المرفق المبدئى يعمل بنجاح ولى عودة قريبا QRByColor.zip
-
ابشر ان شاء الله جارى العمل على اعداد قاعدة البيانات كما تريد
-
التوفيق بين البرامج المعمولة بالعربية ولغة اجنبية
ابو جودي replied to XVMOHAMED's topic in قسم الأكسيس Access
الموضوع بسبب اللغة المستخدمة فى محرر الاكواد اكتب اللغة فى محرر الاكواد باللغة الانجليزية فقط ولا تستخدم اى لغة اخرى حتى لو عملت تلميح لابد ان يكون بالانجليزية وعند كتابة الرسائل استخدم Unicode -
السلام عليكم هل هذا ما تريده عمودي.accdb
-
انا مش فاهم المطلوب تحديدا بس شوف كده checkbox.rar
-
طيب ضع فى النموذج فى وضع التصميم مربع نص باسم txtTimer وضع زر امر فى حدث الوقت للنموذج ضع الكود الاتى txtTimer = txtTimer - 1 If txtTimer = 0 Then 'do your event. MsgBox "end of time" TimerInterval = 0 ' Stop the timer End If وفى حدث زر الامر ضع الكود الاتى If IsNull(Me.txtTimer) Or Me.txtTimer = Empty Or txtTimer = 0 Or Len(Me.txtTimer) = 0 Then Exit Sub TimerInterval = 1000 ' 1 second
-
ضغط واصلاح قاعدة بيانات الجداول البعيدة بعد عمل نسخة احتياطية لها
ابو جودي replied to ابوخليل's topic in قسم الأكسيس Access
وقد تفيدكم الافكار فى هذا المثال من حيث - اخراج المستخدمين - منع دخول المستخدمين لحين انتهاء الادمن من عمل الاصلاح -
السلام عليكم ورحمة الله تعالى وبركاته باقي سويعات قليلة ويعم الفرح وتشتعل الأنوار وتربط الشياطين ويبدأ مشوار الاطمئنان ويبدأ إعداد الفطار والسحور وتعلوا المساجد بأصوات التراويح اللهم بلغنا وإياكم وكل المسلمين رمضان وأنت راضي عنا اللهم أمين. من القلب أرسل إليكم تهنئة ملؤها الحب والدعاء لكم بقبول الطاعات والأجر الكبير رمضان كريم لاساتذتى الكرام وللأصدقاء الغالين وأطيب القلوب بمناسبة حلول شهر رمضان المبارك يسعدني أن أبعث إليكم أطيب التهاني والأماني سائلا الله أن يجعله شهر خير وبركة وأن يكتب لنا ولكم صيامه وقيامه وأن يجعلنا وإياكم من عتقائه من النار وأن يعيد علينا وعليكم هذه المناسبة أعوام عديدة وأزمنة مديدة أنه سميع مجيب. اللهم كما رزقتنا الإسلام بغير حول منا ولا قوة، نسألك أن ترزقنا رحمتك ومغفرتك في شهر رمضان، وأن لا تخرجنا منه إلا وقد رضيت عنا، وغفرت لنا ما تقدم من ذنوبنا وما تأخر. اسأل الله أن يبارك لكم في شهر الطاعات والرحمات وأن يرزقكم فيه الدرجات وأن يختم لكم فيه بالصالحات.
-
القاعدة الخلفية فى كل الاحوال accdb ولا يوجد بها اى اكواد لذلك لا علاقة لها بالموضوع تلك الجزئية فقط تخص القاعدة الامامية عندما ترسلها الى العميل بالامتداد Accde فقط المطلوب منك كمبرمج عمل الاتى 1- مراعاة كتابة دوال الـ API بما يناسب العمل على النوتان 32 , 64 وطبعا تتأكد من عمل الدوال بالشكل الصحيح بتجربتها على النواتان 2- تحويل القاعدة الى Accde من خلال الأوفيس ذو النواة 32 3-تحويل القاعدة الى Accde من خلال الأوفيس ذو النواة 64 وتعطى للعميل القاعدة الخلفية مع قاعدتان اماميتان احداهما Db64.Accde والاخرى Db32.Accde
-
المساعدة في نقل التركيز الي الفورم عند الاستدعاء
ابو جودي replied to Elsayed A Eldiasty's topic in قسم الأكسيس Access
هذا بسبب استخدام FindRecord ولا احبذ استخدامه لكن لو جدلا اردنا استخدامها يكون بالشكل الاتى Private Sub كود_شحنة_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "إضافة شحنة" stLinkCriteria = "[كود_الشحنة]=" & Me![كود_الشحنة] DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog 'Call [Form_إضافة شحنة].SetFocus ' 'DoEvents End Sub -
المساعدة في نقل التركيز الي الفورم عند الاستدعاء
ابو جودي replied to Elsayed A Eldiasty's topic in قسم الأكسيس Access
لم انتبه الى ذلك بارك الله فيك يا باش مهندس -
المساعدة في نقل التركيز الي الفورم عند الاستدعاء
ابو جودي replied to Elsayed A Eldiasty's topic in قسم الأكسيس Access
يا باش مهندس اهلا بيك انت تتفضل على طول بلا اى اذن انا طويلب علم اتعلم منكم ومن كل اساتذتى أما بخصوص تلك الخاصية التى اشرتم اليها تقريبا فكرت فيها مسبقا بزضع الكود الاتى لانها تقوم بنفس عملها DoCmd.OpenForm "إضافة شحنة", , , , , acDialog ولكن اتى الرد الاتى على الفور -
المساعدة في نقل التركيز الي الفورم عند الاستدعاء
ابو جودي replied to Elsayed A Eldiasty's topic in قسم الأكسيس Access
اذن اسمح لى بالتدخل فى وضع طريقة أخرى Private Sub كود_شحنة_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "إضافة شحنة" stLinkCriteria = "[كود_الشحنة]=" & Me![كود_الشحنة] DoCmd.OpenForm stDocName, , , stLinkCriteria Call [Form_إضافة شحنة].SetFocus DoEvents End Sub وللعلم ان اردت استخدام الكود تبعك كما هو استخدم الكود كالاتى Private Sub كود_شحنة_Click() On Error Resume Next Dim S S = كود_شحنة DoCmd.OpenForm "إضافة شحنة" DoCmd.FindRecord S Call [Form_إضافة شحنة].SetFocus DoEvents End Sub -
استفسار : قاعدة بيانات اوفيس 32 هل تعمل على اوفيس 64 ؟
ابو جودي replied to ابوخليل's topic in قسم الأكسيس Access
الشكر لله سبحانه وتعالى ثم لكم ابى الحبيب ومعلمى القدير و استاذى الجليل ولجميع اساتذتى الذين تعلمت منهم ومازلت اتعلم اسأل الله العظيم رب العرش العظيم أن يبارك لكم في عمركم وعلمكم وان يتقبل عملكم وان يبارك لكم فى أهلكم و أحبابكم و ولدك و مالكم وأن يكتب لك الخير حيثما كنتم وأن يوسع عليكم في الرزق وأن يبارك لك في رزقكم واسأل الله أن تكون أعمالكم في ميزان حسناتكم يوم القيامة يوم لا ينفع مال ولا بنون إلا من أتى الله بقلب سليم أدامكم الله تعالى على رؤسنا و البسكم ثوب الصحة والعافية أدامكم الله تاجا فوق رؤوسنا و نورا في قلوبنا و ضياء في دروب حياتنا و بسمة على شفاهنا و حكمة تهدي طريقنا اللهم آمين ،اللهم آمين،اللهم آمين 🤲 لا ادري ماذا اقول لك سوى احبكم وكل اساتذتى الكرام واخوانى فى الله ولوجه الله -
المساعدة في نقل التركيز الي الفورم عند الاستدعاء
ابو جودي replied to Elsayed A Eldiasty's topic in قسم الأكسيس Access
فقط غير السطر الاتى DoCmd.OpenForm "إضافة شحنة" بالسطر الاتى DoCmd.OpenForm "إضافة شحنة", , , , , acDialog