نوشته شده توسط
narpco
سلام بر دوستان و اساتید
یک فایل داریم حاوی 3 جدول کامل شبیه به هم table3-table2-table1
میخواهیم : اطلاعات داخل جدول یک و سپس جدول دو را کامل به جدول 3 انتقال بدیم بطوری که جدول 3 حاوی تمامی اطلاعات موجود در جدول 1 و 2 باشد
این یک کار موقت است و چون نتونستم دستی کپی کنم چون حجم اطلاعات زیاد بود از شما دوستان کمک خواستم .......هدف من داشتن جدول کاملی از اطلاعات است که شماره 3 هست
****(این فایل حاوی اطلاعات مشاغل در سازمان تامین اجتماعی است و رکورد های بسیار زیادی دارد.) 130800 رکورد****
پس از کار انتقال بالا .....
در فایل یک فرمی داریم بنام frm_main ------که به جدول شماره 3 وصل هست و پس از انتقال اطلاعات قابل استفاده است-----
میخواهیم وقتی از لیست بازشو کد شغل job_id کدی انتخاب شد
اگر کد فقط عدد بود در لیبل پایین فرم نوشته باشه """ این شغل عادی است"""" مثلا کد : 000132 فقط عدد است
اگر به همراه کد حروف انگلیسی هم وجود داشت نوشته بشه """ این شغل سخت و زیان آور است """ مثلا کد GA3213 عدد با حروف است
نکته ::::حروفی که در مور آن صحبت می کنیم ممکن است ابتدا وسط یا انتهای کد عددی باشد
یعنی شرط ما میشود : اگر حروف در این کد وجود داشت حالا اول وسط اخر .......
با سپاس فرآوان از محبت و یازی شما .......
************************************************** *********
فایل مثال رو در لینک زیر قراردادم
http://s14.picofile.com/file/8408330376/two_table.rar.html
************************************************** ***********
سلام
کدهای زیر مربوط به انتقال جداول 1 و 2 به جدول 3 است آنها را در رویداد کلیک یک کمند باتن قرار بده
DoCmd.RunSQL "INSERT INTO Table3 SELECT * FROM Table1"
DoCmd.RunSQL "INSERT INTO Table3 SELECT * FROM Table2"
کدهای زیر هم مربوط به چک کردن مورد دوم در رویداد AfterUpdate.
Private Sub job_id_AfterUpdate()
lbl_show.Caption = ""
If IsNumeric(job_id.Text) = True Then
lbl_show.Caption = "Çíä ÔÛá ÚÇÏí ÇÓÊ"
Else
lbl_show.Caption = "Çíä ÔÛá ÓÎÊ æ ÒíÇä ÂæÑ ÇÓÊ"
End If
End Sub
نوشته های کپشن لیبل در اینجا ناخوانا است خودت درستش کن
در حالت اول عدد بودن کمبوباکس را چک میکند در غیر اینصورت ....