HnHn

ايو اخ المهنا تستطيع فعل ذلك .. بعد عملية التوليد للرقم قم بتخزينه في القاعدة

تفضل اخ عبدو أرجو أن يفيدك المثال تقبل تحياتي HnHn.rar

شاكرلكم هذا التواصل تقبلوا تحياتي

صحيح كلامك في عملية تحديد الجدول يقلل البط ولا يكون له اساس .. أما بالنسبة لتحويل القاعدة .. سأحاول أيضاح الفكرة قدر المستطاع وسأضع مثال لذلك تحياتي

ليه ... ما يشتغل .. جربته مع جمل Select case

العملية أخ klkl2003 سهلة أن شالله كل ما عليك هو حصر قاعدة البيانات كما تفضلت وعندها قم بوضع جملة تكرار تقوم بعملية الجمع لسجلات المفروزة لشهر ينـــــاير مثلا ويتم ذلك كالآتي أول جملة الاستعلام المطلوبه لحصر البيانات بواسطة التاريخ : If Rs.State = adStateOpen T…

توجد مواضيع تفيدك اخي في الروابط الموجوده في اسفل التوقيع كتجميل البرنامج وكيف تجعل برنمجك يعمل على كل جهاز تحياتي

ابدء وستجدنا أن شالله عون لك ومعك

اخ مفــ 2005ــادي أضغط على رابط تجميل برنامجك في التوقيع الخاص بي .. وستجد موضوع مشابه مكمل لهذا الموضوع وستجد ملف مرفق يوضح كيف تضع المسار

اشكر المبرمج أحمد على هذا التوضيح تقبلوا تحياتي

اخ المهنا ... .. لم أفهم ما تريد بالضبط ولكن على حسب ما فهمت بإختصار أنك تريد الآتي وهذا هو كود العملية : Dim n As Long n = Val(Text1) * 10000 n = n+ 1 Text2 = Format(n, "#-####") حيث قمنا بتعريف متغير من نوع رقم طويل وسميناه n وقمنا بتخزين قيمة التيكس أو الكم…

شاكرلك أخ omani على هذه المعلومات وفعلا أنا استخدم طريقة ترحيل البيانات بواسطة السنة :blink: لكن مهما كثرة الجداول سيصبح هناك بطىء في العملية .. انصحك أختي POWER _GIRL أن كنتي تستخدمين البرنامج لتحميل بيانات كبيرة أن تستخدمي برنامج SQl Server فهو جدا جيد لتعام…

الخطوات كالأتي في التحكم في احداث صدور الصوت ضع هذا الكود في مديول 'تعريف الصوت Private Declare Function sndPlaySound Lib _ "winmm.dll" Alias "sndPlaySoundA" (ByVal _ lpszSoundName As String, ByVal uFlags As Long) As Long ثم نقوم بعمل أجراء في الموديول ولنسميه…

اخ MesoOo توجد أخطأ كثيرة في برنامجك .. اتمنى ان تعيد صياغته ومن هذه المشاكل أنك قمت بتعامل مع db1 على أنها ترمز لقاعدة البيانات و rs على أنها ترمز لسجلات وانت في الاصل لم تقم بتعريفها كما يلي Dim db1 As Database Dim rs As Recordset ولم تقم بعملية الاتصال بقاع…

رائع أخ A7med_prof

السؤال غير واضح أرجو تحديد نوع المصفوفة والطريقة التي تريد بناءها لتمريرها للمستخدم

تفضل البرنامج الشـــــــــامل يحوي عملية الحفظ والتعديل الحذف البحث الفرز التنقل اتمنى ان يكون هذا كافيا :rolleyes: ___________.rar

تفضلي كود التكملة التلقائية في الكمبو في حدث KeyPress With Combo1 If KeyAscii = 8 Then If .SelStart = 0 Then Exit Sub .SelStart = .SelStart - 1 .SelLength = 32000 .SelText = "" Else .SelText = Chr(KeyAscii) End If KeyAscii = 0 lngFind = SendMessage(.hwnd, CB_F…

هذا الكود لوضع كل صف في تيكس ' Open Open "C:\HnHn.txt" For Input As #1 Dim A As String Input #1, A, B Text1.Text = A Text2.Text = B Close اما هذا الكود لملأ الكمبو بمحتويات التيكس Dim sline As String nfile = FreeFile Combo1.Clear Open "C:\HnHn.txt" For Input A…

جملة الضغط هي CompactDatabase وهذا هو المثال BukUpDb.rar