User user قام بنشر نوفمبر 22, 2021 قام بنشر نوفمبر 22, 2021 (معدل) لدى 10 جداول محتاج انشائهم بالكود فى قاعدة بيانات خارجيه وكل جداول له بيانات مختلفة Dim strSQL3 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 ));" B.DoCmd.RunSQL strSQL3 هذا الكود لانشاء جدول واحد تم تعديل نوفمبر 22, 2021 بواسطه User user
ناقل قام بنشر نوفمبر 22, 2021 قام بنشر نوفمبر 22, 2021 تفضل مع ملاحظة التكرار في استعلام الانشاء ..... 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
User user قام بنشر نوفمبر 22, 2021 الكاتب قام بنشر نوفمبر 22, 2021 (معدل) 37 دقائق مضت, ناقل said: تفضل مع ملاحظة التكرار في استعلام الانشاء ..... 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 بينفذ اول امر فقط تم تعديل نوفمبر 22, 2021 بواسطه User user
ناقل قام بنشر نوفمبر 22, 2021 قام بنشر نوفمبر 22, 2021 40 دقائق مضت, User user said: بينفذ اول امر فقط الان مجرب الكود ويعمل .... انظر الجداول الثلاث تم انشاؤها .... 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
User user قام بنشر نوفمبر 22, 2021 الكاتب قام بنشر نوفمبر 22, 2021 (معدل) من فضلك ممكن المثال 7 دقائق مضت, ناقل said: الان مجرب الكود ويعمل .... انظر الجداول الثلاث تم انشاؤها .... 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 تم تعديل نوفمبر 22, 2021 بواسطه User user
ناقل قام بنشر نوفمبر 22, 2021 قام بنشر نوفمبر 22, 2021 20 دقائق مضت, User user said: من فضلك ممكن المثال تفضل ..... moh.rar وهذا الفلدر به القاعدة المنشأ فيها الجداول .... ضع الفولدر في الدرايف D New folder (2).rar 2
User user قام بنشر نوفمبر 25, 2021 الكاتب قام بنشر نوفمبر 25, 2021 في ٢٢/١١/٢٠٢١ at 15:03, ناقل said: تفضل ..... moh.rar 663.46 kB · 27 downloads وهذا الفلدر به القاعدة المنشأ فيها الجداول .... ضع الفولدر في الدرايف D New folder (2).rar 657.44 kB · 26 downloads لو جدول من الجداول المكتوبه فى الكود موجودة فى قاعدة البيانات بتظهر الخطا ده ازاى نخليه يتجاهل الموجود بنفس الاسم ويضيف الباقى
ناقل قام بنشر نوفمبر 25, 2021 قام بنشر نوفمبر 25, 2021 هل تريدة يحذف ام ماذا ؟؟؟ ما هو الاجراء المطلوب ??
User user قام بنشر نوفمبر 25, 2021 الكاتب قام بنشر نوفمبر 25, 2021 2 ساعات مضت, ناقل said: هل تريدة يحذف ام ماذا ؟؟؟ ما هو الاجراء المطلوب ?? يكمل عادى من غير مايحذف مثلا لو جدول asrt_tbl موجود يتجاهله ويكمل الباقى عادى
ناقل قام بنشر نوفمبر 25, 2021 قام بنشر نوفمبر 25, 2021 13 دقائق مضت, User user said: يكمل عادى من غير مايحذف مثلا لو جدول asrt_tbl موجود يتجاهله ويكمل الباقى عادى جرب الشيفرة هذه ..... On Error Resume Next 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 B.CloseCurrentDatabase Set B = Nothing B.Quit MsgBox Space(20) & "تمت العملية بنجاح.." & Space(20), msgstyle, "للمعلومية"
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.