hamohd70

تفضل downlaod ولم اعاني ابدا منه!!!

اخي العزيز عند فتح نافذه خصائص الكوماند اختر SQL Builder ثم قم بفتح الجدولين و اختيار حقولهم لاضافتهم الى الريبورت.

تفضلي اختي الفاضلة

if NOT data1.recordset.EOF then 'change 'fields(0)' to the number of the field you want to 'show if field number is 1 then write 'fields(1)' and so on text1.text=data1.recordset.fields(0).value 'if we reached the end then move to the first record if data1.reco…

'in the general section Dim updateFlag As Boolean 'في بطن الرساله في BeforeUpdate ضع updateFlag = True مثال: if tdbgrid1.text="" then msgbox "..." updateFlag = True end if 'في Error Event ضع: If updateFlag Then ' Error triggered in BeforeUpdate Response = 0 ' …

مع اخذ المسار في الاعتبار: Name app.path+"data.mdb" As app.path+"account.mdb"

جربي: SizeMode=AutoSize ثم ضعي هذا الكود: Private Sub Form_Resize() OLE1.Width = ScaleWidth OLE1.Height = ScaleHeight End Sub

Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long Dim kbd As Long On Error Resume Next 'get keyboard language.Arabic or English kbd = GetKeyboardLayout(0) kbd = Hex(kbd) If Right(kbd, 1) = 1 Then 'keyboard is arabic msgbo…

اذا كانت الجداول الثلاثة مربوطه ببعض اعمل Query ثم اربطه بData Control ثم بالTrue DB Grid

اخي الكريم افحص قيمة EOF و BOF ففي حاله عدم وجود سجلات فان قيمتهما معا تساوي TRUE

طبعا ممكن : Option Explicit Private Declare Function GetDeviceCaps Lib "gdi32.dll" (ByVal hDC As Long, ByVal nIndex As Long) As Long Private Const HORZRES = 8 ' Horizontal size in pixels Private Const VERTRES = 10 ' Vertical size in pixels Private Const BITSPI…

استخدم DataFormat من نافذه الخصائص وهي الحل الاسهل. اخترNumber او Currency ثم ضع 2 امام خانه decimal places

بالنسبه للاخ مشرف القسم : لقد قمت بما تنصح به . كل حاجه تمام. ولكن ما ان اضيف الاكتف اكس لمشروع منفصل حتى ينشأ الخطأ! و لتحديد المشكله للجميع: الخطأ ينشأ عند ضغط المفتاح TAB من داخل الاكتف اكس للانتقال الى اي كنترول آخر ! وللعلم ايضا ان الاكتف اكس عباره عن كوم…

اعمل حاليا علي تصميم اكتف اكس ولكني اواجه مشكله وهي انه عند تجربته من خلال مشروع مضاف الى مشروع الاكتف اكس فانه يعمل كما يرام ولكنه يتسبب في خطأ يغلق الفيجول بيسك عند اضافته الى اى مشروع اخر منفصل. رساله الخطأ كالتالي: vb has caused an error in