Abdullah Mostafa

السلام عليكم كل عام وانتم بالف خير الامة الاسلامية بالف خير اخوتي هذا هو سؤالي: آمل أن جد طريقة لبرنامج يقوم بالرد الآلي على الهاتف ومن ثم يطلب منك رقم حسابك وكلمة السر وتقوم بادخالهما عن طريق ازرار الهاتف ثم يقوم بالتاكد منهما ويعطيك معلومات عن الرصيد واخر عم…

السلام عليكم اريد ان اعرف كيف اعمل برنامج للرد الآلي اي يقوم الزبون بالاتصال بالكمبيوتر عن طريق الهاتف ويرد الكمبيوتر ويقوم الزبون باادخال رقم حسابه وكلمة السر عن طريق ارقام الهاتف فيعطيه الكمبيوتر معلومات عن الرصيد وتاريخ اخر عملية ووو...الخ . اتمنى ان اكون ق…

هذا الملف نزلته من وصلة وجدتها في هذا المنتدي ولكني لااذكر عنوانها ارجو ان يكون هو المطلوب

نعم اخي محمد انا شخصيا افضل ويندوز 98 الاصدار الثاني لاني مركبة عندي والحمد لله ماشي تمام التمام ولايحتاج الي برامج اضافية ولا يحزنون

Dim Ssql As String Dim Ssql As String Dim Nname As String Ssql = "select * from customer " Nname = InputBox$("ادخل اسم العميل") If Nname <> "" Then Ssql = Ssql & " where name='" & Nname & "'" Adodc1.CommandType = adCmdText Adodc1.RecordSource = Ssql Adodc1.Ref…

إن شاء الله يكون هذا هو الكود المطلوب

هذا الكود db.close

شكرا لك اخي على سرعة الرد لقدر جربت هذا الحل من قبل ولكن المشكلة مازالت قائمة هل يوجد حل بواسطة الكود؟

السلام عليكم توجد عندي مشكلة عند البحث بالتاريخ يقوم البرنامج بقلب موقع اليوم بالشهر مثلا dd/mm/yyyy يقلبها الى mm/dd/yyyy ارجو منكم المساعدة

السلام عليكم ارجو منك اخي ان تقول لنا ماهو الحل لكي تعم االفائدة للجميع ولاني واقع في نفس المشكلة

اخي العزيز يتم تنفيذ هذا الكود كالتالي dim sq as string sql=select job,name from general where job='" & text1.text & '" data1.recordsource=sql data1.refresh dbgird1.refresh

يمكنك ذلك اخي نزل اداة dataواداة dbgrid واكتب الكود التالي في الحدث clik في الكومبو بوكس Data1.RecordSource = "SELECT * FROM MASTER WHERE MASTER.CLASS=" & Combo1.Text Data1.Refresh DBGrid1.Refresh

يمكن ذلك باستخدام امر ضغط قاعدة البيانات وبذلك تكون قد عملت ضغط ونسخ في وقت واحد DBEngine.CompactDatabase "oldfile", "newfile", "", dbEncrypt حيث oldfile هو الملف المراد نسخه مع مساره كاملا newfile الملف الجديد مع مساره كاملا

السلام عليكم اتمنى لو يتم توضيح الطلب لم افهم القصد

هذا مثال ارجو ان يفيدك Private Sub Command1_Click() Dim A As Long, B As Long Randomize Timer A = CLng(Val(Text1.Text) * Rnd) Print A End Sub ضع COMMAND و TEXT على الفورم ارجو ان يفيدك لقد جربت ارفاق ملف ولكني للاسف لم اعرف كيف

يمكن ذلك باستخدام RND وذلك بضرب الRND في عدد السجلات + 1 Randomize Timer A = Int(Data1.Recordset.RecordCount+1) * Rnd ويكون القيمة في المتغير A هي رقم السجل المراد الذهاب اليه

ارجو تخبرنا مانوع المساعدة التي تريدها وإن شاء الله نساعدك باللي يقدرنا الله عليه

يمكنك استخدام sql بدلا من فلتر

يمكنك مراجعة هذا الرابط

راجع هذا الرابط اضغط هنا