Option Compare Database
Option Explicit
Dim StrFilt As String
Const FIELDS1 As String = "codmeli,shomaredaneshamuz,name,famil,namepedar,sh oghlepedar,jensiatcod,taahhol,tarikhetavallod,tel, mobile,mobilesarparast,adres,codeposti,email"
Const FIELDS2 As String = "codmeli,coddoreh,shomareozviat,codreshteyetahsili ,codmaghtayetahsili,amoozeshgah,moaddel,savabeq,co draveshsabtnam,takmilsabtnam,codmasulsabtnam,timet akmilsabtnam,tariktakmilsabtnam,tozihat,tarikheeng heza"
Private Sub Command19_Click()
CurrentDb.Execute "INSERT INTO student_info (" + FIELDS1 + ") SELECT " + FIELDS1 + " FROM student_info_all"
CurrentDb.Execute "INSERT INTO student_info2 (" + FIELDS2 + ") SELECT " + FIELDS2 + " FROM student_info_all"
End Sub