مهند عبادي

هو المفروض أن الاستعلام يكون على تاريخ بدء الدفعات أو على تاريخ الشهر التالي لأخذ القرض .. وبما أن هذه المعلومة غير موجودة في جداولك فاعتمدت عوضاً عنه على تاريخ التسجيل .. على اي حال سأعدل الاستعلامات وسأوافيك بشرح عن أسلوب عمل هذه الحالات

الدرس الثاني : الألوان 1- لون خلفية الاداة : MsFlexGrid.BackColorBkg = Color 2- لون خلفية الخلايا الثابتة : MsFlexGrid.BackColorFixed = Color 3- لون خلفية الخلايا العادية : MsFlexGrid.BackColor = Color 4- لون خلفية خلايا التحديد : أي عند التحديد MsFlexGrid.Bac…

هل برنامجك معمول بالفيجوال بيسك ؟؟ وما نوع الشبكة

أختي Diana الأسلوب الاسهل استخدام حدث الخطأ ON Error ومن ثم تفحصي رقم الخطأ وتعرضي رسالة إذا كان رقم الخطأ هو الذي تريدين

الأستاذ مصلح الحريصي يسعدني مرورك على موضوعي هذا وإن شاء الله الدروس قريباً سأبدأ بها

السؤال غير واضح !

الدرس الأول : أولاً = نظرة عامة أداة MsFlexGrid لمن لا يعرفها : هي أداة تتألف من مجوعة أسطر Rows وأعمدة Columns بحيث يشكل تقاطع كل سطر وعمود خلية Cell بشكل يشابه لما هو موجود فيExcel وتنقسم الأعمدة والأسطر إلى قسمين : ثابت Fixed كما هو الحال العمود المحتوي على…

بسم الله الرحمن الرحيم لاحظت في الفترة الأخيرة كثرة الأسئلة عن أداة FlexGrid .. ولذلك سأبدأ مجموعة دروس بهدف شرح هذه الأداة ولكن لا تستعجلوني في الدروس بسبب انشغالي في الفترة الحالية

هل هذا ما تريده ؟؟ اقساط.rar

في هذا الرابط : http://www.planetsourcecode.com/vb/scripts...Id=634&lngWId=1

أخي الكريم هذه الدالة لا يوجد بها شيء جديد سوى أنها دمجت أمر الطباعة والمعاينة والإرسال إلى ملف RTF في تعليمة واحدة وهذا شرح لها PrintOrPreview(ReportName As String, Optional strFilter As String, Optional strFile As String, Optional AlternateReportName As Stri…

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 40 Then SendKeys "{tab}" SendKeys "{home}+{end}" End If End Sub

برأيي الخاص أن وضع حقل Now في الجدول خاطئ لأنه قيمة ثابتة بالنسبة لكل الحقول !! ومن الأفضل وضعه في جدول مستقل أو في الريجستري وكذلك الحال بالنسبة لحقل Minus فهو حقل حسابي على ما أعتقد لا فائدة منه سوى في العملية الحسابية الثانية ويمكن الاستغناء عنه نهائياً

Dim sqlUPdate as String DoCmd.SetWarnings False sqlUPdate =" UpDate dees SET now ="'&Me.now &"'" DoCmd.RunSQL sqlUPdate sqlUPdate = "UPDATE dees SET dees.minus = [Now]-[getten]" DoCmd.RunSQL sqlUPdate sqlUPdate = "UPDATE dees SET dees.[get] = Abs(Int(-[minus]/…

أخي biskra هي مشروحة في هذه الأسطر : returns 1 when completed ReportName is name of report to print, strFilter is filter to use to print report ' give user option of canceling [2], printing immediately [7] or previewing on screen first [1] ' if the value DoNot…

ضع في حدث Form_Timer أول سطر هذا الكود : Me.TimerInterval = 0

Private Declare Function SHFormatDrive Lib "shell32" _ (ByVal hwnd As Long, ByVal Drive As Long, ByVal fmtID As Long, _ ByVal options As Long) As Long Private Declare Function GetDriveType Lib "kernel32" Alias _ "GetDriveTypeA" (ByVal nDrive As String) As Long…

ألف شكر لك أخي النشيط أبو راكان أثابك الله الجنة

وفقك الله أخي Maverick وبالتأكيد فإن مستقبلك هو أهم شيء دعواتنا لك بالتفوق الدائم

تم تعديل الـ Sub لكي يتعامل مع النماذج الفرعية وهذا هو بعد التعديل : Public Sub FormResize(ByRef F As Form, N As Single, Optional RForm As Boolean = True) On Error Resume Next Dim C As Control, S1 As String, S2 As String, k As String Dim R As Integer, I1 As In…