jjafferr

. وأخي العزيز ، نموذجك ليس بالكامل unbound ، فعندك مربح التحرير ComboBox متصل بالجدول مباشرة الطريقة اللي انا عملتها في احد برامجي السابقة كانت كالتالي: 1. عملت وحدة نمطية كالتالي: Option Compare Database Option Explicit Dim cnn As New ADODB.Connection Dim srstADO As ADODB.Recordset Public Function ComboRecordset(strCombo As Control, strSQL As String) 'do the Recordset for the Form's ComboBoxes 'open a connection if the connection is not open ' If cnn.State <> adStateOpen Then Call ConnectSQL(cnn) ' End If Set srstADO = New ADODB.Recordset With srstADO .Source = strSQL .ActiveConnection = cnn .CursorType = adOpenKeyset .LockType = adLockOptimistic .CursorLocation = adUseClient .Open End With Set strCombo.Recordset = srstADO 'close the ADO object, once the data are set in the controls If srstADO.State = adStateOpen Then srstADO.Close Set srstADO = Nothing End If End Function Public Function ConnectSQL(cnn) 'Set a global SQL Server connection object 'Stop On Error GoTo error_handler 'open a connection if the connection is not open 'If cnn.State <> adStateOpen Then ' Call ConnectSQL(cnn) 'End If If cnn.State = adStateOpen Then Exit Function End If Dim sConnect As String Dim BE, BE_File BE = "Access" If BE = "Access" Then BE_File = "C:\temp\ABC_BE\ABC_BE2.mdb;" sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & BE_File End If 'BE If Not cnn Is Nothing Then Set cnn = CreateObject("ADODB.Connection") cnn.ConnectionString = sConnect cnn.Open End If If cnn.Errors.Count > 0 Then 'hide the error message, as the system still runs ok MsgBox "An error occured while attempting to connect to SQL Server BOND: " & vbCrLf & cnn.Errors(0).Number & vbCrLf & cnn.Errors(0).Description, vbOKOnly, "" End If exit_function: 'Nothing to do here Exit Function error_handler: ' Stop MsgBox Err.Number & vbCrLf & Err & ", " & Error$ 'MsgBox Err & ", " & Error$ Resume exit_function End Function . 2. وفي حدث On_Load النموذج ، كان هذا الكود ينادي الوحدة النمطية ، ويملئ ComboBox: 'set the ComboBoxes Recordsets 's__Folder_Number strSQL = "SELECT DISTINCT Folder_Number FROM tbl_Folders WHERE Folder_Number Is Not Null;" Call ComboRecordset(s__Folder_Number, strSQL) 'i__Folder_Year strSQL = "SELECT DISTINCT Folder_Year FROM tbl_Folders WHERE Folder_Year Is Not Null;" Call ComboRecordset(i__Folder_Year, strSQL) للعلم جعفر

وعليكم السلام الرابط التالي لأحد زملائي القدامى Leigh Purvis ، وفيه العديد من الامثلة: http://www.databasedevelopment.co.uk/examples.htm انزل المثال: unBound.zip في البرنامج ، اختر اسم اي شخص في القائمة ، ثم انقر على الزر Orders Recordset ، النموذج الجديد هو هدفك ، هو والنموذج الفرعي ، وانت خبير في كيف النظر في كود Recordset جعفر . برمجة Recordset عبارة عن استعلام ، واذا اردت ربط اكثر من جدول ، فاعمل استعلام واربط الجداول مثلما شئت ، ولما تحصل على النتائج الصحيحة ، انسخ SQL الاستعلام وضعه في Recordset (انا كسلان ، فما ادوخ راسي في بناء SQL مباشرة ). . أخوي رمهان ، انا بفتح موضوع جديد بس للعزيزين ، حول كيف تسحر الناس بالاكسس ، وان شاء الله ارسل لك الدعوة جعفر

وعليكم السلام أخي الفاضل اشاركك الرأي في اننا اذا اردنا لبرنامجنا النجاح 100% يجب ان نعمل برنامج يشتغل على 32 بت و 64 بت انا سبق وان شاركت في الرابط التالي ، وفيه كذلك رابط لشركة مايكروسوفت يشرح كيفية حل المشكلة: http://www.officena.net/ib/topic/59661-الأكسس-32-بت،-64-بت/?do=findComment&comment=398477 ولكن الحل خاص لكل دالة API على حدة ، فالمبرمج يمكن ان يضبط برنامجه جعفر

وعليكم السلام أخي الكريم ممكن تعطينا معلومات أكثر عن سبب طلبك لوسمحت جعفر

أخي طارق وبعد جهد ، استطعت الدخول في البرنامج غدا ان شاء الله اشوف طلبك جعفر

السلام عليكم اعتقد بأني اكملت اولا ، وملاحظة التفريغ ، رجاء التأكد في كود النموذج الرئيسي ، هناك مكانين كتبت لك: '5 'هنا مكان الكود الجديد ' فتستطيع ان تضع كودك هناك (انا لم اضعه لأن هناك حقول في الكود ليست موجودة في النموذجين ، فلم ارد ان يعطي البرنامج اخطاء). جعفر 226.1.Edf.mdb.zip

أخي الكريم كما توقعت ، فالاكسس 2007 الذي كنت تستعمله كان 32 بت ، وعليه لم يصادف مشكلة في تشغيل دوال API ، بينما الان ، فانت قمت بتنصيب اكسس 2013 64 بت ، وهذا لا يتوافق مع دوال API . رجاء مراجعة الرابط التالي: http://www.officena.net/ib/topic/64036-هل-استخدم-اوفيس-32-بت-او-64-بت/ جعفر نعم هناك طريقة لجعل الكود يعمل على برنامجك ، ولكن ماذا ستفعل في بقية البرامج؟

حياك الله عمل الكود في النموذج والاستعلام فقط اما التقرير ففي المجاميع والفرز وتركت لك اصل الاستعلام والتقرير جعفر

وعليكم السلام أخي أبوعبدالله بالبحث السريع في المنتدى ، وجدت الرابط التالي: http://www.officena.net/ib/topic/13380-ارتباط-أكسس-بالأوفيس-وغيره-من-البرامج/#comment-57644 والذي يحتوي على 3 روابط تخص Registry جعفر

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

حد جاب اسمي تفضل سيدي الكريم بس للعلم ، المنتدى فيه الكثير من الشباب اللي فيهم الخير والبركة غيري جعفر 235.الورشة.accdb.zip

السلام عليكم أستاذ علي بعد ما اخذت غفوة ، لاحظت ان الكود اللي اعطيتك مشابه للكود اللي انت وضعته وبعد البحث ، اتضح اني في التقرير rpt_Absent_Late ، عملت كود علشان اتصيد هذا الخطأ ، ولكني لم افعّله في نهاية التقرير ، بدلا عن: If Err.Number = 1 Then 'Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If اكتب If Err.Number = 13 Then Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If جعفر

ما شاء الله ، 6 مشاركات وانتوا تتكلموا عني ، وانا مافي الدنيا خلوني اجيب بخور اتبخر فيه وشاكر جميل كلماتك أخي ابوعارف جعفر

وعليكم السلام هل نسخة 2013 هي 64 بت ، بينما نسخة 2007 كانت 32 بت؟ وماهي رسالة الخطأ ، انت لم تعرضها لنا؟ جعفر

وسبقني أخي رمهان للخير . التنسيق عندي هو: "MR"000000 والنتيجة: جعفر 234.قاعدة البيانات1.accdb.zip

وعليكم السلام تفضل: SELECT Format(['Date],"mmm-yyyy") AS Month_Year, Format(['Date],"yy") AS Expr1, Format(['Date],"mm") AS Expr2 FROM MainTble GROUP BY Format(['Date],"mmm-yyyy"), Format(['Date],"yy"), Format(['Date],"mm") ORDER BY Format(['Date],"yy"), Format(['Date],"mm"); جعفر

. انا كنت بكتب تعليق على ان هذه الخطوة لم يتم تطبيقها ، ولكن ابوعارف عارف بالتفصيل جعفر

أخوي عبدالله إحساسي يحسسني بأن فيه شئ آخر تريد تعمله بعدما تحل موضوع نقل البيانات للاكسل شو الخطوة التالية اللي تريد تعملها؟ هل تريد حفظ ملف الاكسل باسم معين؟ هل تريد ان تطبع البيانات او ايش الخطوة اللي تريد تعملها بعد حفظ البيانات في الاكسل؟ لو تعطينا تفصيل اكثر ، ممكن نعطيك جواب متكامل اكثر جعفر

وعليكم السلام اولا والملاحظة سهلين بس كود ثانيا ، شو عمله بالضبط ، حتى اعرف شو يسوي ، وعلى اساسه اعرف مكانه من الاعراب جعفر

وعليكم السلام . نعم ممكن رحم الله والديك ، سهلت علي المشوار ، فبدل ان اشتغل واضبط نموذجك ، انت ريحتني وستقوم بالعمل بدلي المنتدى مليان بمواضيع مماثلة ، وانا راح ارفق لك رابطين: http://www.officena.net/ib/topic/41365-اضافة-صورة-طالب-في-نموذج-في-برنامج-اكسس/#comment-233973 http://www.officena.net/ib/topic/32307-تحميل-صورة-الشخص-لكل-سجل/#comment-165675 جعفر

تفضل جعفر 231.الرصيد.accdb.zip

انزل البرنامج المجاني من هذا الرابط http://www.7-zip.org/ ثم اضغط البرنامج بصيغة 7z ، وعندما يكون الحجم مناسب ، تستطيع ان: إما ان ترفعه في رابط خارجي ، ثم ترفق الرابط هنا ، او ان تغير اسم الملف وتغير صيغته الى zip بدلا عن 7z ، ثم تستطيع ان ترفقه في مشاركتك في هذا المنتدى وتخبرنا بصيغة المرفق جعفر

هذا معناة انت تريد الاختيار رقم 2 ان شاء الله ، عطني الى الليلة وان شاء الله ارد عليك جعفر