iransim
شنبه 31 خرداد 1399, 20:47 عصر
سلام و عرض ادب خدمت دوستان
من مورد اشکالم رو قبلا جستجو کردم ولی موضوع درخواستی رو پیدا نکردم ، ممنون میشم دوستان راهنمائی کنن
من برای گرفتن خروجی بانک اکسس با فرمت اکسل از دستورهای زیر استفاده میکنم
If IsNull(Me.txtTblName.Value) Or Me.txtTblName.Value = "" Then
MsgBox "لطفا جدولي براي خروجي اکسل انتخاب نماييد", vbExclamation + vbMsgBoxRight, "پيام"
'رفتن به تکسب اکس تيبل
Me.txtTblName.SetFocus
'تغيير رنگ تکس باکس انتخاب جدول به رنگ سبز
Me.txtTblName.BackColor = 13170651
Exit Sub
Else
'خروجي اکسل از تيبل
DoCmd.OpenTable Me.txtTblName, acViewPreview, acReadOnly
DoCmd.RunCommand acCmdExportExcel
DoCmd.Close acTable, Me.txtTblName, acSaveNo
'برگشت رنگ تکسباکس نيبل
Me.txtTblName.BackColor = 16777215
End If
وقتی فایل اکسل مربوطه را باز میکنم عناوین ستونهای جدول همان عناوین لاتین فیلدهای جدول است
چطور میتونم خروجی فایل اکسل من عناوین ستونها همان Caption های انتخابی در جدول باشد و نه عناوین فیلد ( در واقع سر ستونها Caption های فارسی در جدول باشد )
سپاس از همه دوستان
من مورد اشکالم رو قبلا جستجو کردم ولی موضوع درخواستی رو پیدا نکردم ، ممنون میشم دوستان راهنمائی کنن
من برای گرفتن خروجی بانک اکسس با فرمت اکسل از دستورهای زیر استفاده میکنم
If IsNull(Me.txtTblName.Value) Or Me.txtTblName.Value = "" Then
MsgBox "لطفا جدولي براي خروجي اکسل انتخاب نماييد", vbExclamation + vbMsgBoxRight, "پيام"
'رفتن به تکسب اکس تيبل
Me.txtTblName.SetFocus
'تغيير رنگ تکس باکس انتخاب جدول به رنگ سبز
Me.txtTblName.BackColor = 13170651
Exit Sub
Else
'خروجي اکسل از تيبل
DoCmd.OpenTable Me.txtTblName, acViewPreview, acReadOnly
DoCmd.RunCommand acCmdExportExcel
DoCmd.Close acTable, Me.txtTblName, acSaveNo
'برگشت رنگ تکسباکس نيبل
Me.txtTblName.BackColor = 16777215
End If
وقتی فایل اکسل مربوطه را باز میکنم عناوین ستونهای جدول همان عناوین لاتین فیلدهای جدول است
چطور میتونم خروجی فایل اکسل من عناوین ستونها همان Caption های انتخابی در جدول باشد و نه عناوین فیلد ( در واقع سر ستونها Caption های فارسی در جدول باشد )
سپاس از همه دوستان