تشخیص رکوردهای مشابه در اکسس و ادغام کردن آنها

[forozan90]

با سلام و خسته نباشید
ممنون میشم اگرمنو در مورد موضوع زیر راهنمایی کنید؟
من میخوام دراکسس مقداری کالابر اساس کد در زمانهای متفاوت بصورت امانی به طرف حسابهابدم که اکسس بتونه خودش رکوزد های مشابه و تکراری شناسایی بکنه و ادغام کنه سپس هنگام برگشت تعدادی از کالا ها مجددا در ستون مجزا برگشتی کالا را ثبت بشه که باز بتونه هر کد برگشتی را جلوی کد صادره ثبت کنه ودر نهایت مانده فروش رو بهم بده

[kitcat_m18]

سلام،
الان بايد پروژه آماده كنيم بديم خدمتتون؟؟؟ :لبخند:
دوست من اينا همش بر مي گرده به مهارت شما در كد زني ويژوال بيسيك و اينكه چقدر با بانك كار كرده باشي.
موفق باشي :لبخندساده:

[forozan90]

اگه بدونید چه لطف بزرگی می کنید:لبخند::چشمک:

[naeim_1369]

با سلام؛
بنده هم مشکلی شبیه مشکل forozan90 عزیز، دارم،
توی جدول1 ، فیلد "نام" ، اسامی دارم که ممکنه بین اونا تکراری هم باشن، من اطلاعات "نام" جدول1 به فیلد "نام" در جدول2 کپی بشه، با این تفاوت که در جدول 2 مقادیر تکراری نباشه، من از این کد استفاده میکنم ولی میخوام بدونم خلاصه تر و بهتر از این هم هست؟!


Dim A, B As String
Adodc1.Recordset.Sort = "FirstName"
Adodc1.Recordset.movefirst
A = Adodc1.Recordset.Fields!FirstName
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields!FirstName = Adodc1.Recordset.Fields!FirstName
Adodc2.Recordset.Update
Adodc2.Refresh
Adodc1.Recordset.MoveNext
'---------------------------------------
For i = 1 To Adodc1.Recordset.RecordCount - 1
B = Adodc1.Recordset.Fields!FirstName
If A <> B Then
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields!FirstName = B
Adodc2.Recordset.Update
Adodc2.Refresh
End If
A = B
Adodc1.Recordset.MoveNext
B = Adodc1.Recordset.Fields!FirstName
Next