ahmad kalil

السلام عليكــم ورحمـة الله وبركاتــه ،، هذه الدالة للتاكد من felxgrid فيها بيانات قبل عملية الخزن وهي ايضا من احد الاخوة المشاركين في المنتدى Public Function chkfg() As Boolean On Error Resume Next Dim i As Integer, j As Integer For i = 1 To fg1.Cols - 1 fg1.C…

السلام عليكــم ورحمـة الله وبركاتــه ،، حياك الله اخي انس لقد اتني الان فكرة جديدة لانشاء felx وهي من خلال الفورم اي اثناء التشغيل ولكن لانشغالي لم اكمل الفكرة حيث نقوم بوضع تكست على الفورم وكذلك felxgrid وعند وضع رقم داخل التكست تتكون اعمدة بعدد الرقم المدخل …

السلام عليكــم ورحمـة الله وبركاتــه ،، وهذا كود تحويل من felxgrid الى ملف اكسل وبصراحة هذا حصلت عليه من احد الاعضاء Dim i As Long Dim n As Long On Error Resume Next Set anas = GetObject(, "Excel.Application") If Err.Number Then Err.Clear Set anas = CreateObje…

السلام عليكــم ورحمـة الله وبركاتــه ،، لارسال بيانات من جدول الى felxgrid وهي عكس عملية الحفظ من felxgrid الى جدول Dim n As Integer sqls2 = "select * from fines " If rs3.State = adStateOpen Then rs3.Close rs3.Open sqls2, db, adOpenKeyset, adLockPessimistic n …

السلام عليكــم ورحمـة الله وبركاتــه ،، sqlss = "select * from tmfines " If rs2.State = adStateOpen Then rs2.Close rs2.Open sqlss, db, adOpenKeyset, adLockPessimistic For i = 1 To fg1.Rows - 1 rs2.AddNew fg1.Col = 0 fg1.Row = i rs2![sn] = fg1.Text fg1.Col = 1 …

السلام عليكــم ورحمـة الله وبركاتــه ،، اخي العزيز انا استخدم الطريقة التالية وارجو ان تنفعك اولا وضع مربع نص في felxgrid وتجعل خاصية visible تساوي false ثم تضيف كود Public Sub MoveText() txt.Move fg1.Left + fg1.CellLeft, fg1.Top + fg1.CellTop, fg1.ColWidth(fg…

السلام عليكــم ورحمـة الله وبركاتــه ،، اخي مفتاح فتح الله عليك كل ابواب العلم ليس لدي برنامج به هذه الفكرة بالاضافة هذه الطريقة لاتعلم توكل على الله وابدا اولا بانشاء الفورم في برنامج ثم الجداول في قاعدة البيانات واي نقطة تقف عندها ساكون انا واعضاء المنتدى في…

السلام عليكــم ورحمـة الله وبركاتــه ،، اخي العزيز لبناء برنامج كامل لاي موضوع يجب الانتباة لبعض الامور بداية انت تقول ( وزن الحموله رقم الطرد يعني عدد الضرود ولاوزان عدد غير ثابت وباقي البيانات ثابته ) انتم شركة نقل بضائع اذا هناك ثابت للادخال ومن ضمنها الوزن…

السلام عليكــم ورحمـة الله وبركاتــه ،، لتغير اعدادات الطابعة من خلال Properties---- printing prefernce تغير حجم الورقة من A4 الى A3 مثلا

السلام عليكــم ورحمـة الله وبركاتــه ،، الدالة Function وهو اجراء يوضع في وحدة نمطية modules يجري عملية حسابية او غيرها تتكرر في اكثر من موقع في البرنامج وباستدعاء الدالة ترجع لنا القيمة الناتجة من العملية الحسابية داخل الدالة مثلا نكتب دالة لضرب مبلغ في اثنان…

السلام عليكــم ورحمـة الله وبركاتــه ،، طبعا من المستحيل ان تنشأ لكل زبون جدول هذا اولا هناك نقاط مشتركة في كل فاتورة تبدا بها مثل الاسم او اسم الشركة تاريخ الفاتورة المستلم الخ تنشا جدول في قاعدة البيانات يخص الفاتورة وتضيف الحقول المشتركة لكل فاتورة وكذلك ال…

السلام عليكــم ورحمـة الله وبركاتــه ،، قاعدة البيانات تكون مرفقة مع البرنامج في اغلب الاحيان

السلام عليكــم ورحمـة الله وبركاتــه ،، الدالة Integer تاخذ الجزء الصحيح فقط فمثلا لدينا الرقم 46.76 فستاخذ فقط 46 من غير تقريب وتهمل الارقام العشرية الدالة Round وهي دالة التقريب فاذا كان الرقم بعد الفاصلة العشرية اكبر من النصف تقرب الرقم الصحيح واحد مثلا 46.…

السلام عليكــم ورحمـة الله وبركاتــه ،، هذه طريقة من غير كود C:\Documents and Settings\All Users\Start Menu\Programs\Startup تضع ملف التشغيل داخل startup

السلام عليكــم ورحمـة الله وبركاتــه ،، Dim tem1, newqty, sub1 sqlss = "select * from balance where code = '" & Me.Text1 & "'" If rs.State = adStateOpen Then rs.Close rs.Open sqlss, db, adOpenKeyset, adLockPessimistic rs.MoveFirst tem1 = rs.Fields("qty") newqt…

اخي الكريم غير نوع الؤشر adOpenDynamic الى adOpenKeyset

السلام عليكــم ورحمـة الله وبركاتــه ،، ماذا تقصد بتكرار ارقام السجلات

السلام عليكــم ورحمـة الله وبركاتــه ،، If db.State = adStateOpen Then db.Close db.Provider = "microsoft.jet.oledb.4.0" db.Open App.Path & "\vehicalprog.mdb" ضع هذا الكود في موديل ومن ثم ضع الموديل في كل فورم وان شاء الله تنحل المشكلة

السلام عليكــم ورحمـة الله وبركاتــه ،، بما انك مبتدأ فساقول كما قالوا من قبلي اتجهة نحو vb.net وهو الاصدار الاخير للفجوال بيسك والقراة والبحث والتجربة هي طريق التعلم فعليك بالبحث عن اساسيات اللغة البرمجية وتكوين فكرة عن الموضوع بدا من معرفة بيئة العمل داخل فج…

السلام عليكــم ورحمـة الله وبركاتــه ،، بارك الله فيك ولك الاجر ان شاء الله ولكن لو عملت البرنامج بطريقة setupfocutry بالتوفيق