ناقل

الان مجرب الكود ويعمل .... انظر الجداول الثلاث تم انشاؤها .... Dim strSQL3, strSQL1, strSQL2 As String Dim B As New Access.Application Set B = CreateObject("Access.Application") B.OpenCurrentDatabase "D:\Database.accdb" strSQL1 = "CREATE TABLE asrt_tbl " _ & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _ & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _ & "CONSTRAINT asrt_tblConstraint UNIQUE " _ & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));" strSQL2 = "CREATE TABLE asrt_tbl1 " _ & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _ & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _ & "CONSTRAINT asrt_tblConstraint UNIQUE " _ & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));" strSQL3 = "CREATE TABLE asrt_tbl2 " _ & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _ & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _ & "CONSTRAINT asrt_tblConstraint UNIQUE " _ & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));" B.DoCmd.RunSQL strSQL1 B.DoCmd.RunSQL strSQL2 B.DoCmd.RunSQL strSQL3 B.CloseCurrentDatabase Set B = Nothing B.Quit

تفضل مع ملاحظة التكرار في استعلام الانشاء ..... Dim strSQL3, strSQL1, strSQL2 As String Dim B As New Access.Application Set B = CreateObject("Access.Application") B.OpenCurrentDatabase "D:\New folder (2)\Database.accdb" strSQL1 = "CREATE TABLE asrt_tbl " _ & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _ & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _ & "CONSTRAINT asrt_tblConstraint UNIQUE " _ & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));" strSQL2 = "CREATE TABLE asrt_tbl1 " _ & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _ & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _ & "CONSTRAINT asrt_tblConstraint UNIQUE " _ & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));" strSQL3 = "CREATE TABLE asrt_tbl2 " _ & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _ & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _ & "CONSTRAINT asrt_tblConstraint UNIQUE " _ & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));" B.DoCmd.RunSQL strSQL1 B.DoCmd.RunSQL strSQL2 B.DoCmd.RunSQL strSQL3

اخي حاولت ان ادمج لك الكودين ولم استطع .... اعذرني ... ولا زالت المحاولات مستمرة ...

استخدم هذا الكود .... DoCmd.TransferDatabase acLink, "Microsoft Access", Me.txtPath, acTable, "MSysObjects", "oo", False If DCount("[Name]", "oo", "[Name] = '" & Me.ObjName & "'") = 1 Then MsgBox "الجدول موجود مسبقا" Else MsgBox "الجدول غير موجود" End If

الف لا باس عليك ... اجر وعافية

طيب ممكن مرفق ...

ممكن تتبع اسلوب تقسيم البرنامج ونضع لقاهدة الجداول رقم سري ...

يبدو لي ان الافس فيه مشكلة ..... هل تم تحديثها باخر تحديث ..... لان 10 فيها مشاكل ....

ما شاء الله تبارك الله .... استاذ خبير ..... واستفدت كثير من الكود .... اشكرك بارك الله فيك ...

ملف الاكسل فيه خلايا مدمجة !!!!!!!

عمل الزران الويندوز 10 - 64 bit الاوفيس 19 - 32 bit مشكور اخي @jjafferr

كلام معلم .... صحي اخي الكريم .... منكم نتعلم

جرب المرفق لعلها بداية حل لك للعنوان ...... Public Sub CenterC(frm As Form) Dim SpcF As Integer Dim clen As Integer Dim oldc As String Dim i As Integer oldc = frm.Caption Do While Left(oldc, 1) = Space(1) DoEvents oldc = Right(oldc, Len(oldc) - 1) Loop Do While Right(oldc, 1) = Space(1) DoEvents oldc = Left(oldc, Len(oldc) - 1) Loop clen = Len(oldc) If InStr(oldc, "!") <> 0 Then If InStr(oldc, " ") <> 0 Then clen = clen * 1.5 Else clen = clen * 1.4 End If Else If InStr(oldc, " ") <> 0 Then clen = clen * 1.4 Else clen = clen * 1.3 End If End If SpcF = frm.Width / 61.2244 SpcF = SpcF - clen If SpcF > 1 Then DoEvents frm.Caption = Space(Int(SpcF / 2)) + oldc Else frm.Caption = oldc End If End Sub ex_01 (1).accdb

ممن جدول به هذه البيانات للتجربة

جرب هذا لعله يفيد DoCmd.Echo False me.Refresh DoCmd.Echo True

وعليكم السلام ورحمة الله وبركاته نعم ممكن ... بس اعطينا مثال عشان نطبق

نعم ممكن .... اعطينا مرفق كمثال للتطبيق عليه

تقصد اكثر من حقل وليس سجل .... صحيح ؟؟؟

معنى ذلك اخي الكريم احتاج تعديل الكود حسب الويندوز 32 او 64 هل نستطيع ان نجعل الاكسس يتعرف على نوع الويندوز ثم تلقائيا يقوم هو بنسخ الملف للسيستم حسب الويندوز ؟؟؟؟ بارك الله فيك ...

اعمل نسخة احتياطية كل فترة للبيانات ....

ملاحظة : لويتم فتح الاوت لوك تلقائي لكان اكمل من حيث الاستخدام العادي ......

ما شاء الله تبارك الله ...... عمل تشكرون جميعا عليه .... بارك الله فيكم ...

بارك الله فيك اخي الكريم انا عارف طرق ارسال الرسائل سواءا بالجي ميل او الاوت لوك لكن لما قرأت الموضوع وانه يمكن ارسال التقرير على هيئة ملف pdf مباشرة بدون تحويل قلت امكن في طريقة لم اعرفها ... شكرا لك لخي الكريم على التوضيح

ممكن نسخ للتجربتين بعد التطبيق .........

حسب علمي القاصر ... ليس لدي علم بذلك .. والسبب لا القيم مدمجة في قيمة واحدة ويجب تفكيكها بالطريقة التي رأيت ... والله اعلم لكن ننتظر رأي الاخوة الكرام في ذلك