shadi_i
- طرق التحكم في التيكس بوكس
IF IsDate(ME.TEXT1) THEN ME.TEXT1=CDATE(ME.TEXT1) END IF
- كيف بناء أستعلام بشرط التاريخ
strselect="select * from orders where order date between '" & me.text1 & "' and '" & me.txext2 & "'"" set record=db.execute(strselect)
- كيف اقرب الارقام في فيجوال بيسك؟
عن طريق الامر format و هذا مثال على ذلك: ("Me.Text2 = Format(Me.Text1, "###############.00 فإذا كان text1=321321.7987 فإن text2=321321.80
- سؤال مهم عن كريستال 9
قم بإختيار record sort expert من قائمة report ثم إختار الحقل الذي تريد عمل sort عليه
- الخط العربي و كريستال ريبورت 8.5
عندما أقوم بعمل تقرير بإستخدام كريستال ريبورت 8.5 في وندوز 98 تظهر الكلنات غير مفهومه الرجاء المساعده
- الرجاء المساعدة العاجلة
:confused:السلام عليكم و رحمة الله وبركاته: عندي جهاز إنذار وله برنامج خاص به ولكني اريد عمل برنامج يقوم بقراءة الرسائل المرسلة من الجهاز عن طريق ال COMM. PORTS الرجاء لمن لديه الخبرة المساعدة في هذا الموضوع بأسرع وقت وشكراً
- مساعدة في قواعد البيانات (مستعجل)
Dim db As Database Dim rs As Recordset Dim str As String Private Sub Command1_Click() "'"& str = "select id from tablename where name='" & Me.Text1 (Set rs = db.OpenRecordset(str If rs.RecordCount = 0 Then MsgBox ("Please check your name"), vbCritical Else ("M…