تعديل على الكود

[User user]

ده كود الحاق بيانات فى قاعده بيانات مرتبطة 
محتاج اعدل على حقل الID بداله DMAX بحيث لو الجدول المسمى MyTable حقل ID = 1 يكتب الID الجديد 2 وهكذا 
وكذلك كيفية الحاق بيانات من نوع TRUE , FALSE 

'strSQL1 = " INSERT INTO MyTable " _
            & "(FirstName,LastName, DateOfBirth, ID, SIR) VALUES " _
            & "('Harry', 'Washington', '12-11-2021', '1', 'TRUE');"

 

تم تعديل نوفمبر 1, 2021 بواسطه jjafferr
وضع الكود بالطريقة الصحيحة بإستخدام <> القائمة

[ابو جودي]

اتفضل 

Dim intID   As Integer
Dim strSQL As String

intID = Nz(DMax("[id]", "MyTable"), 0) + 1

strSQL = "INSERT INTO MyTable ( FirstName, LastName, DateOfBirth, ID, SIR ) " & " SELECT ""Harry"" , ""Washington"" , #11/12/2021#, " & intID & " , True ;"

DoCmd.SetWarnings False
  DoCmd.RunSQL strSQL
DoCmd.SetWarnings True

 

تم تعديل أكتوبر 27, 2021 بواسطه ابا جودى

[User user]

46 دقائق مضت, ابا جودى said:

اتفضل 

Dim intID   As Integer
Dim strSQL As String

intID = Nz(DMax("[id]", "MyTable"), 0) + 1

strSQL = "INSERT INTO MyTable ( FirstName, LastName, DateOfBirth, ID, SIR ) " & " SELECT ""Harry"" , ""Washington"" , #11/12/2021#, " & intID & " , True ;"

DoCmd.SetWarnings False
  DoCmd.RunSQL strSQL
DoCmd.SetWarnings True

 

حضرتك ده كود الحاق فى قاعدة منفصلة مش فى نفس القاعدة 

[ابو جودي]

8 دقائق مضت, User user said:

حضرتك ده كود الحاق فى قاعدة منفصلة مش فى نفس القاعدة 

مين قال كده

 

هات المرفق تبعك للتعديل سيدى

[User user]

5 دقائق مضت, ابا جودى said:

مين قال كده

 

هات المرفق تبعك للتعديل سيدى

اشكرك على الاهتمام استاذنا الفاضل 

القصد محتاج الكود ينفذ من قاعدة اللى قاعدة اخرى 

[ابو جودي]

يعنى انت تقصد ايه بقاعدة اخرى

ممكن توضح لو تكرمت وتشرح باستفاضة شديدة

حضرتك قلت قاعدة بيانات مرتبطة
يعنى الجداول بقاعدة والنماذج بقاعدة اخرى 

 

ارح بالك الله يرضى عليك وارفق القاعدتين لتتضح الرؤيا لمن يريد مساعدتك

[User user]

لاحظ حضرتك انه فى القاعدة TEST2  اللى موجود فيه الجدول كرر الID  واحد فى الاثنين 

@ابا جودى

TEST.rar

تم تعديل أكتوبر 28, 2021 بواسطه User user

[User user]

للرفع
 

[ابو جودي]

دعوة للتجربة 

 

 

test2.accdb test1.accdb

تم تعديل نوفمبر 1, 2021 بواسطه ابا جودى

[User user]

منذ ساعه, ابا جودى said:

دعوة للتجربة 

 

 

test2.accdb 456 kB · 0 downloads test1.accdb 452 kB · 0 downloads

اشكرك على وقتك وتعبك 
وصلت لحل لها 
لكن للاسف بيكرر البيانات فى الجدول 
هل يوجد حل لذلك لعدم تكرار البيانات 

[ابو جودي]

18 دقائق مضت, User user said:

اشكرك على وقتك وتعبك 
وصلت لحل لها 
لكن للاسف بيكرر البيانات فى الجدول 
هل يوجد حل لذلك لعدم تكرار البيانات 

عن اى بيانات تتحدث

كان هذا طلب حضرتك وتم تحقيقه على ما اعتقد

في ٢٧‏/١٠‏/٢٠٢١ at 22:54, User user said:

محتاج اعدل على حقل الID بداله DMAX بحيث لو الجدول المسمى MyTable حقل ID = 1 يكتب الID الجديد 2 وهكذا 

 

[User user]

16 ساعات مضت, ابا جودى said:

عن اى بيانات تتحدث

كان هذا طلب حضرتك وتم تحقيقه على ما اعتقد

 

لاحظ حضرتك انه هنا كرر بيانات العميل 
مش عايزين يكرار البيانات لو موجودة سابقا 
لاحظ الجدول 

[ابو جودي]

اتفضل سيدى 

اسال الله تعالى ان تجد ضالتكم

Remote External Db.mdb

test2.accdb

تم تعديل نوفمبر 2, 2021 بواسطه ابا جودى