البحث في المنتدى

دوال استخرج رقم اليوم والشهر من التاريخ واستخدام دالة IIF شرح سهل جدا لدوال  Day() Month() IIF() لاستخراج رقم الشهر من التاريخ و استخراج رقم اليوم من التاريخ و ادخال الدالة الشرطية لعمل معيار معين لها  https://youtu.be/gIY6Y71i3d8 شاهد الشرح بفديو على اليوتيوب من هنا https://youtu.be/gIY6Y71i3d8 https://youtu.be/gIY6Y71i3d8 https://youtu.be/gIY6Y71i3d8 <iframe width="560" height="315" src="https://youtu.be/gIY6Y71i3d8" frameborder="0" allowfullscreen></iframe>

السلام عليكم اخواني وخواتي الاعزاء في هذا المنتدى الرائع الذي لطالما استفدنا منه كثير ارجو التفضل بالاجابة حول سؤالي وهو اريد عمل دالة تاريخ في استعلام في اكسيس 2003 وهي تعطيني تواريخ متسلسلة بين تاريخين انا احددها مثلا اريد من الدالة تعطيني تواريخ متسلسلة من تاريخ 1/1/2017 لغاية 13/11/2017 مع الشكر

كتابة داله IF فى جدول باكثر من شرط واكثر من دالة فى حقل واحد شرح طريقة كتابة الدالة فى جدول  شرح كيفية كتابة اكثر من شرط فى الدالة شرح كيفية كتابة اكثر من دالة فى حقل واحد اخراج قيمة فى جدول بناء على اكثر من معيار اخراج قيمة باكثر من شرط فى جدول https://www.youtube.com/watch?v=obUs7GbAZec https://www.youtube.com/watch?v=obUs7GbAZec https://www.youtube.com/watch?v=obUs7GbAZec

السلام عليكم ورحمة الله وبركاته اخواني الأعزاء ارجو ان تفيدوني بطريقة استخدام sum داخل استعلام اكسيس بحيث انني استطيع جمع قيمة عمود ( مع العلم أن هذا العمود هو ناتج حاصل ضرب عمود في عمود اخر ) برجاء مساعدتي لاني محتاج هذه المعادلة في شغلي ضروري جدا وجزاكم الله خير  

السلام عليكم ورحمة الله وبركاته اخواني الكرام اعضاء المنتدى أريد جمع عمود به دالة IIf  في نموذج فرعي  بمعنى انني لدي حقل (الكمية) وحقل (السعر) وحقل (اجمالي السعر) مع العلم انه هناك حقل اختيار (check boox) وفي حالة اختيار مربع الاختيار يتم ضرب الكمية في 1.25 اي تصبح المعادلة بدلا من ( الكمية ) × ( السعر ) تصبح .... (الكمية) × ( السعر) × 1.25 وفي حالة عدم اختيار مربع الاختيار( check boox) تكون المعادلة كما يلي (الكمية)× ( السعر) السؤال هو : كيف اقوم بعمل معادلة جمع لهذا الحقل ( إجمالي السعر) ؟ مرفق الملف للتعديل عليه. مع الشكر والتقدير لكم جميعا الملف.mdb

السلام عليكم ورحمة الله وبركاته _ وكل عام وانتم بخير برجاء مساعدتي في ايجاد اجمالي عمود في (نموذج فرعي) مع العلم أن هناك حقول بها معادلة IIf لذلك لم استطيع اتمام عملية الجمع لهذا العمود حاولت كتير لكني ما قدرت بصراحه اعتذر لإذعاجكم لكن انا محتاجله جدا في العمل  مرفق ملف للتعديل عليه مع الشكر والتقدير نسخة الملف.mdb

الرجاء المساعدة في كتابة الكود . في تكرار السنوات بعدد معين لسنوات معينة . حيث أني أرغب في تصميم برنامج لحساب خدمة الموظف في الشركة أو الإدارة ومنها هذه العلاوات السنوية للراتب الموظف  وهذا يتطلب حساب السنوات التي قضاها من بداية خدمة حتى تاريخ نهاية خدمة في الشركة . ومنها حساب العلاوات السنوية من بداية عملة في الشركة حتى تاريخ اليوم الحالي فكتبت الدوك التالي : Private Sub تدقيق21_Click() Dim m m = 0 Do While m < DateDiff("yyyy", DMin("[المباشرة]", "البيانات الوظيفية"), Date) DoCmd.GoToRecord , , acNewRec [السبب].SetFocus [السبب] = "علاوة سنوية دورية" [المباشرة] = DateSerial(DatePart("yyyy", DMin("[المباشرة]", "البيانات الوظيفية")) + 1, 1, 1) m = m + 1 Loop End Sub تاريخ المباشرة وهو بداية الخدمة . ولكن العلاوات السنوية يقوم بزيادة سنة ويقوم بتكرار هذه السنة دون الزيادة للسنة الثالثة والربابعة وهكذا الشكل التالي الأستعلام   لاحظ العلاوات السنوية مكررة وهذه هي المشكلة المطلوب السنوات المتسلسلة المتتالية 1434 و من ثم 1435 و 1436 و 1437 وهكذا أرجوا المساعدة ولكم جزيل الشكر والتقدير    

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

السلام عليكم ورحمة الله وبركاتة   في البداية انا جديد على لغة الـ C++ ..   عمل برنامج وضيفته انه إذا أتى الماوس(مؤشر الفأرة) على زر يقوم هذا الزر بالإنتقال(pos) إلى الأعلى قليلاً وإذا ابتعد الماوس عن الزر يرجع الزر إلى مكانه السابق وقمت بإنشاء الكود من خلال QT Creator .. قمت بالإستعانه بـ Thread ..   هذه ملفات المشروع :   هذه الأكود لكل ملف عدا ملف الـui :   widget.h #ifndef WIDGET_H#define WIDGET_H#include <QWidget>#include <mythread.h>namespace Ui {class Widget;}class Widget : public QWidget{ Q_OBJECTpublic: explicit Widget(QWidget *parent = 0); ~Widget(); bool buttonsUnderMuse(); void movebuttonToUp(); void movebuttonToDown();private: Ui::Widget *ui;};#endif // WIDGET_Hwidget.cpp #include "widget.h"#include "ui_widget.h"#include <QPropertyAnimation>Widget::Widget(QWidget *parent) : QWidget(parent), ui(new Ui::Widget){ ui->setupUi(this);}Widget::~Widget(){ delete ui;}bool Widget::buttonsUnderMuse(){ return ui->pushButton->underMouse();}void Widget::movebuttonToUp(){ QPropertyAnimation *B_one = new QPropertyAnimation(ui->pushButton, "pos"); B_one->setDuration(1200); B_one->setEasingCurve(QEasingCurve::InBack); B_one->setStartValue(QPoint(0,260)); B_one->setEndValue(QPoint(0,200)); B_one->start();}void Widget::movebuttonToDown(){ QPropertyAnimation *B_one = new QPropertyAnimation(ui->pushButton, "pos"); B_one->setDuration(1200); B_one->setEasingCurve(QEasingCurve::InBack); B_one->setStartValue(QPoint(0,200)); B_one->setEndValue(QPoint(0,260)); B_one->start();}وهذا الملفات الخاصة بالـ Thread : mythread.h #ifndef MYTHREAD_H#define MYTHREAD_H#include <QThread>#include <widget.h>class myThread : public QThread{ Q_OBJECTpublic: explicit myThread(QObject *parent = 0); void run(); bool getBottnUnderMuse();signals:public slots:};#endif // MYTHREAD_Hmythread.cpp #include "mythread.h"#include "widget.h"myThread::myThread(QObject *parent) : QThread(parent){}void myThread::run(){ while(true) { if(getBottnUnderMuse() == true) { MovebuttonToUp; // I get error here ... error: 'MovebuttonToUp' was not declared in this scope } else { movebuttonToDow;  // I get error here ... error: 'movebuttonToDow' was not declared in this scope  } msleep(200); }}bool myThread::getBottnUnderMuse(){ return buttonsUnderMuse; // I get error here ... error: 'buttonsUnderMuse' was not declared in this scope} -------------------------------   المشكلة التي واجهتني هي اني لا استطيع الوصول من خلال "mythread.cpp" إلى الدوال الموجودة في ملف الهيدرا "widget.h" رغم اني وضعت ملف الهيدرا "widget.h" ضمن الـ include .. اعتقد ان المشكلة واضحه   وكذلك نقطة آخرى .. ربما اكون قد عملت هذا البرنامج بطريقة معقدة او ما شابه مثلاً .. البرنامج لا يحتاج إلى Thread بينما قمت بإستعمال ثريد لعمل مثل هذه الوظيفة .. لذلك لا مانع من طريق اخرى   وشكراً لحسن القراءة

السلام عليكم ..   بدأ في استخدام برنامج الكريستال ريبورت و استعملت دالة الجمع لكنها لم تعمل بشكل صحيح ..   المجموع الكلي يجب أن يكون 10923.773 و لكن عندما أقوم بعملية الجمع يظهر 10923.772   علما بان القيم داخل قاعدة البيانات تم تخزينها بشكل صحيح و الدليل هو المخرجات كما في الصورة   من المفترض يجمع بدون تقريب كما في الإكسل   و الموضوع ارهاقني بكل صراحة .. فارجوا المساعدة ..   لكم وافر التحيات   رامي الوفي

هذا المثال أخي ..   لا أعرف لماذا تعمل الدالة بطريقة التقريب في الجمع ..         test.zip

السلام عليكم.... لقد قمت باستخدام الدالة Environ("Username") في احد استعلامات برنامج اكسس 2003 وعندما قمت بتحويل البرنامج الى اكسس 2007 لم يعمل الاستعلام ويخبرني ان الدالة غير معرفة فما هو الحل وشكرا...

السادة و السيدات الكرام   سلام الله عليكم ورحمة منه وبركات   اعلم ان هذا الموضوع قد تم تداوله و البحث فيه اكثر من مرة   وقد قمت بتجربة اكثر من مثال وهي تعمل لكن ينقصها انه عند تطبيق الكود يصبح النموذج بما حوى شفاف اي ان الخلفية والازرار والنصوص تصبح كذلك شفافة   وهذا ليس ما اريده اريد ان تكون الخلفية فقط شفافة بينما الازرار والنصوص واضحة دون ان تتأثر بالكود او الشفافية   في طور بحثي لهذا الموضوع وجدت هذه الدالة وحسب ما فهمت انها تعمل اي انها تجعل خلفية النموذج شفافة دون ان تأثر على غيرها   اخوكم الفقير الى ربه يفتقر لبعض الخبرات في تطبيق الاكواد واستدعائها فلجئنا الى الله ثم اليكم طلبا للعون و المساعدة ... لا اطيل اليكم الدالة والمثال في المرفقات Private Const GWL_EXSTYLE = (-20)Private Const LWA_COLORKEY = 1Private Const LWA_ALPHA = 2Private Const WS_EX_LAYERED = &H80000Private Declare Function apiGetWindowLong Lib "user32" Alias "GetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long) As LongPrivate Declare Function apiSetLayeredWindowAttributes Lib "user32" Alias "SetLayeredWindowAttributes" ( _ ByVal hwnd As Long, _ ByVal Color As Long, _ ByVal AlphaPercent As Byte, _ ByVal Alpha As Long) As BooleanPrivate Declare Function apiSetWindowLong Lib "user32" Alias "SetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long ' Setting OpacityPercent to zero makes the form fully transparent.' Setting OpacityPercent to 100 makes the form fully opaque.' This only has an affect on forms whose PopUp property is True. Public Sub SetOpacity(frm As Access.Form, OpacityPercent As Byte) ' Ensure frm is a PopUp form. Raise an error if it is not. If Not frm.Popup Then err.Raise 5, , "Invalid argument." & vbCrLf & Namespace$ & " cannot SetOpacity on form " & frm.Name & ". PopUp form required." Else ' Force OpacityPercent between 0 and 100. If OpacityPercent > 100 Then OpacityPercent = 100 If OpacityPercent < 0 Then OpacityPercent = 0 ' Convert supplied percentage value to one ranging between 0 and 255 for apiSetLayeredWindowAttributes Dim iAlpha As Integer iAlpha = (OpacityPercent / 100) * 255 ' Get forms current extended attributes Dim attrib As Long attrib = apiGetWindowLong(frm.hwnd, GWL_EXSTYLE) ' Set form to have extended layered attribute apiSetWindowLong frm.hwnd, GWL_EXSTYLE, attrib Or WS_EX_LAYERED ' Set opacity apiSetLayeredWindowAttributes frm.hwnd, RGB(0, 0, 0), iAlpha, LWA_ALPHA End IfEnd Subبارك الله فيكم  :blush:  

السلام عليكم أرجو شرح استخدام دالة iif في نموذج أكسس 2010 32 بت لثلاث اختبارات على الآقل ويتم تحديث جميع الحقول عند فتح النموذج مع جزيل الشكر ملف مرفق مع شرح المطلوب في المثال ضمن النموذج مثال.rar

السلام عليكم ممكن مساعده طااارئه :( كيف اعمل مربع نص يستقبل اي داله من الدرجه الاولى ويحلها مثل زر ال fx في الاكسل بالضبط يستقبل داله ويطلع ناتجها مشكوووووووووووورين مقدما

ممكن برنامج لرسمه متحركة مثل (سيارة) و شرح دالة الحركة في البرنامج

السلام عليكم انا عملت فورم Html ودة الكود بتاعة   <!DOCTYPE html><html dir="ltr"><body><form method="post" action="mail.php">Your Email<br><input name="you" type="text"><p> <p>Receiver Email<input name="to" type="text"><p> <p>Subject<input name="sub" type="text"><p> <p>Massage<br><textarea name="msg" rows="10" cols="30"></textarea><p> <p><input type="submit" value="send"></form></body>ودة ملف ال php<?phpmail ("$to", "$sub", "$msg", "From : you");echo "Your mail had been sent" ;?> ورفعتهم على هوست - بس لما ببعت ايميل بيجبلي Your mail had been sent لكن مفيش حاجة بتوصل

هذة الدلة تستخرج الكلام من ملف (.doc) ولكن المشكله انها تحول الحروف العربية الى حروف انجليزيه ..   و بعد  محاولات وجدت ان الحروف العربية تحول الى حروف ( ASCII ) .. اى لما يفابلها من الحروف الانجليزيه بهذا التكويد مثال  : لو هذا السطر موجود في ملف الوورد  عند الاستخراج عن طريق البي اتش بي .. يكون كالتالي : Age: 23 year 9DJأي أجد أنن كلمة علي  تحولت إلى : 9DJ .. وهكذا  لكل الحروف العربية     ومرفق ملف فية الكود وملف اخر للتجربة علية   word.php filename.doc function word($filename){if(($fh = fopen($filename, 'r')) !== false ) {$headers = fread($fh, 0xA00);$n1 = ( ord($headers[0x21C]) - 1 );$n2 = ( ( ord($headers[0x21D]) - 8 ) * 256 );$n3 = ( ( ord($headers[0x21E]) * 256 ) * 256 );$n4 = ( ( ( ord($headers[0x21F]) * 256 ) * 256 ) * 256 );$textLength = ($n1 + $n2 + $n3 + $n4);$extracted_plaintext = @fread($fh, $textLength);$text=str_replace(  chr(13) , "\n", $extracted_plaintext);echo $text;}}word('filename.doc');