عبدالقدوس48

Round([استعمل الرقم مراد تقريبه]++0,0000002;2)

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

Sub ConnectToSQL() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset ' تكوين اتصال ODBC Set conn = New ADODB.Connection conn.Open "DSN=MySQLServer;UID=myusername;PWD=mypassword" ' تنفيذ استعلام SQL Set rs = New ADODB.Recordset rs.Open "SELECT * FROM Customers", conn ' عرض النتائج في نموذج (على سبيل المثال) Do While Not rs.EOF Me.txtCustomerID.Value = rs!CustomerID Me.txtCustomerName.Value = rs!CustomerName rs.MoveNext Loop ' إغلاق الاتصال والسجل rs.Close Set rs = Nothing conn.Close Set conn = Nothing End Sub

وعليكم السلام تفضل يأخي ADD.rar

جزاك الله خيرا أخي هذا هو المطلوب

السلام عليكم مساعدة عند بحث بالسنة ورقم العقد والوضعية في tabl1 يفتح لي على سجل في نموذج tabl وشكرا مثال.accdb

جزاك الله خيرا أخي

السلام عليكم اريد مساعدة في حفظ من جدول الى جدول بعد الترجمة الجدول الاول tblnames الى الجدول الثاني 1tblnames names.mdb

جزاك الله خيرا أخي ابو بسمله هذا هو مطلوب

السلام عليكم مساعدة في دالة تحديد إذ كان جنس ذكر يكتب لي ould وإذا كان أنثى يكتب لي binte وهذا في التقرير وإليكم مثال وشكرا مثال.accdb اليكم الصورة

ابو خليل هذا هو المطلوب وجزاكم الله خيرا

اريد التعديل على هذا المثال مثال.accdb

السلام عليكم أخي اريد ان أعرف تكرار اذا كان الاسم واللقب ورقم التعريف يوجد في الجدولين يجمع العدد مابينهما يوجد في الجدول الاول تكرار والثاني لايوجد الجدول الاول 2 وفي الثاني 1 يجمع مابينهما 3 وشكرا

ممكن تعديل على مثال

صباح الخير هل من جواب