prof_1982

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

السلام عليكم وما البريد الذي تتوقع وصوله لك لا اعتقد انها مشكلة

السلام عليكم اسف لقد كان فاير وول علي جهازي فهذا الرابط يعمل 100% http://www.jahjouh.com/CRYSREPT.zip تحياتي لك

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

السلام عليكم حماية مبدئية ضع علي قاعدة البيانات كلمة مرور وذلك عن طريق فتح قاعدة البيانات في الوضع الخاص ثم تعيين كلمة مرور لها ويقوم برنامجك بفتحها اثناء التنفيبذ الطريقة : 1 - قائمة ملف / فتح قاعدة بيانات ثم من صندوق حوار فتح اختر خاص 2- اختر قاعدة البيانات …

السلام عليكم If Combo1.Text = "نوع الجهاز" Then '1200 On Error GoTo errr Dim s1 As String s1 = "select * from Table1 where typ =" & Trim(txtSearch) Set rs = db.OpenRecordset(s1, 2) with rs if .eof then '500 MsgBox Chr(10) + Str(err.Number) + Chr(13) + err.Desc…

سؤالك مكرر في اكثر من مشاركة

دعواتك لي

السلام عليكم نعم انه موجود علي الاسطوانه الثانية او الثالثة اما ذا اردت تنزيلة عن جهازي فلك هذا الرابط حجمه 3 ميغابايت http://217.21.9.90/CRYSREPT.zip شكرا

السلام عليكم يرجى عدم تكرار الاسئلة في اكثر من مشاركة ،، لقد اجيب علي هذا السؤال من قبل في الرابط التالي /index.php?showtopic=42628

شكرا لكم جميعا تحياتي لكم

السلام عليكم الي شباب المنتدي اريد طريقة للحصول علي تدرج لوني من لون اقوم انا بتحديده وشكرا مقدما تحياتي لكم prof_1982@hotmail.com

السلام عليكم طؤقة اخري بنفس نتيجة الكود المرفق من الاخ راكان Dim SQL As String Dim DB as Database Dim Rec as Recordset Private sub Form_Load() set db = dbengine.opendatabse ("c:\mydb.mdb") End Sub Private sub Command1_Click() SQL = "SELECT * FROM users WHERE u…

السلام عليكم هذا ما تريدة بالضبط فقط دعوة لايي رحمه الله تحياتي لك Keylang.zip

السلام عليكم اخي الكريم سهلة فقط ماعليك الا اضافة الجزء التالي في نهاية كود الطباعة وهي توجيه طباعة التقرير مباشرة الي الطابعة دون اظهار نافذة العرض CrystalReport1.Destination = crptToPrinter CrystalReport1.PrintReport تحياتي Prof_1982@hotmail.com

السلام عليكم هذه دوال APi لتغيير دقة الشاشة فقط قم بنسخ الكود بالكامل ولصقه في الفورم Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean Pri…

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

السلام عليكم لقد قمت بعمل بعض التعديلات ولكن قاعدة البيانت لم تفتح عندي لسبب وجود اكسس 97 ولكن قم بالتعديل في الكود الماف لما يتناسب نع اسماء الحقول في والجداول في قاعدة البيانات لديك تحياتي لك Prof_1982@hotmail.com MSFlexGrid.zip

السلام عليكم لقد قمت بعمل بعض التعديلات ولكن قاعدة البيانت لم تفتح عندي لسبب وجود اكسس 97 ولكن قم بالتعديل في الكود الماف لما يتناسب نع اسماء الحقول في والجداول في قاعدة البيانات لديك تحياتي لك Prof_1982@hotmail.com

السلام عليكم هذا الكود كتبته وانا موجود علي النت . يرجى تجريبه والرد Dim swLoop as long Private sub Form_Load() MMControl1.FileName = "c:\mytone.mdi" MMControl1.Command = "Open" MMControl1.command = "Play" End Sub Private Sub MMControl1_Done(NotifyCode As Inte…