عرض للطباعة
السلام عليكم
تحية طيبة لمشرفي وأعضاء وزوار المنتدى ، عندي استفساران وأرجوا أن أجد الحل عنكم:
الأولأستخدم الكود:كود:
Data1.DatabaseName = App.Path & "\db1.mdb”
Data1.RecordSource = "Table1”
لكن عينت كلمة سر لقاعدة البيانات ، ما هو التغيير اللازم على الكود ؟
والثاني:
أقوم بعملية حسابية وأخزن الناتج في متغير لم أحدد نوعه.
Dim Result1
كيف أتحكم في عدد الأرقام التي تظهر بعد الفاصلة.
بالنسبة للسؤال الثاني كل ما عليك عملو هو انك تحدد تنسيق الرقم
مثلا
حيث انت اشارة السلم الي على اليمين ال ## تحدد عدد الخانات الي بعد الفاصلةكود:Text1.Text = Format(Result1, "#.##")
يعني لو كان Result1 = 12345.12345
و حطيتهيصير 12345.12كود:Text1.Text = Format(Result1, "#.##")
اما بالنسبة للسؤال الاول بدك تستنى رد احد الاخوى المختصين في قواعد البيانات..
اي اسئلة عامة احنا جهزين!
السلام عليكم
شكراً على الرد:)
ولكني أتساءل ألا توجد طريقة تمكنني من ذلك من خلال تعريف المتغير ، لأني لا أقوم بطباعته في تكست بوكس إنما في ملف أكسل
أخي بالنسبة للسؤال الأول
حيث your password هي كلمة السركود:Data1.DatabaseName = App.Path & "\db1.mdb"
Data1.Connect = ";PWD=Your password"
Data1.Source = "table"
و Table هو اسم الجدول