مشکلات فارسی و سورس های مربوطه

[ghasemshami]

ممنون از دوستان گرامی از نمونه هاتون

[amirzazadeh]

تقويم فارسي با قابليت ثبت سال به صورت چهار رقمي

دوستان نمونه ضميمه در واقع ماژول اصلاح شده آقاي آزادي ميباشد كه به صورت سئوال توسط آقاي ali190 مطرح شده بود اميدوارم به دردتون بخوره.
...........................
موفق باشيد

[7skies]

سلام .فایل زیر ماژولی داره که تاریخ شمسی رو به میلادی تبدیل می کنه. ولی فرمت نمایش سال میلادی به صورتYYYY/MM/DD هستش. هر کاری کردم نشد که بر عکس باشه یعنی DD/MM/YYYY.کسی از دوستان هست که بتونه راهنمایی کنه. هرچی property رو تغییر دادم نشد. خواستم ماژول رو دستکاری کنم.خراب شد.

[moalla]

تقويم فارسي با قابليت ثبت سال به صورت چهار رقمي

دوستان نمونه ضميمه در واقع ماژول اصلاح شده آقاي آزادي ميباشد كه به صورت سئوال توسط آقاي ali190 مطرح شده بود اميدوارم به دردتون بخوره.
...........................
موفق باشيد

خیلی خیلی ممنون
خیلی دنبال همچین چیزی میگشتم و یه مشتری گیر داده بود که باید از اینها تو قسمت انتخاب تاریخ باشه
البته یکم سنگین اجرا میشه
کسی نمونه دیگه ای مشابه این سراغ داره؟

[ARData]

خیلی خیلی ممنون
خیلی دنبال همچین چیزی میگشتم و یه مشتری گیر داده بود که باید از اینها تو قسمت انتخاب تاریخ باشه
البته یکم سنگین اجرا میشه
کسی نمونه دیگه ای مشابه این سراغ داره؟

دوست عزيز ماژول آقاي آزادي در عصر حجر مونده ... شما چرا از فايل CPSD_PDC.Dll براي اينکار استفاده نمي کنيد ؟

[morynf]

با سلام خدمت دوستان گرامي علي الخصوص آقاي امير زاده
من در برنامه از توابع آقاي ميداني (Persian Date) براي تاريخ استفاده كردم همچنين از Farsi Date picker گذاشته شده در پست هاي بالا ولي چون مبناي كار آن توابع اقاي آزادي است دچار اشكال شدم از جنابعالي و ساير دوستان درخواست دارم در صورت امكان فايل پيوست را اصلاح نمايند تا دوستاني كه از اين توابع استفاده مي كنند نيز بتوانند با Date picker كار كنند .
ممنون و سپاس گذار

[afshin3a]

سلام دوستان!
من یه دیتابیس توی اکسس دارم که اطلاعاتش با "میل مرج Mail merge" به ورود 2013 وارد میشه. مشکلم اینه که حرف "ی" فارسي رو نميشناسه و در Word 2013 اونو به صورت علامت ؟ می نویسه.
(عکس زیر را ببنید!)
.
.
.

mailemerge.jpg
.
.
می دونم که با Replace کردن حرف "ي" عربی (با زدن Shift+X) با "ی" فارسی و تغيير تمام "ي" ها در دیتابیس مشکلم به صورت موقتی حل میشه ولی می خواستم بدونم که کسی راه حل اساسی برای حل این مشکل نداره؟ مثلا خاصیت یک فرم رو جوری تغییر بدیم که هر وقت من "ی" فارسی رو تایپ کردم اون به صورت اتوماتیک تبدیلش کنه به "ي" عربی. تو هیچ انجمنی نتونستم جوابی برای این سوال پیدا کنم، امیدوارم شما بتونید منو کمک کنید!

[e20005ir]

سلام
با توجه به اينكه براي تقويم فارسي نو فيلد تاريخ روي text تعبيه ميشه اگه بخوايم يه محدوده تاريخ را مشخص كنيم چطور ميشه اينكار را كرد؟
همون حالت برابر با دستور between مدد نظرمه

[maryamrad]

ممکن است چه مشکلی وجود داشته باشد
اگر یک کد تبدیل اعداد به حروف در یک سیستم کار کند اما همان فایل در سیستم دیگری ، مشکل داشته باشد یعنی #name? را نمایش دهد !! مشکل کجاست!!

[stabesh]

با سلام
یک راه حل برای راست چین کردن Treeview و Toolbarو Progressbar و Statusbar پیدا کردم اینجا ندیده بودمش
اول باید یک ماژول تعریف کرد

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

                                          Public Const GW_CHILD = 5

                                          Public Const WS_EX_LAYOUTRTL = &H400000

                                          Public Const GWL_EXSTYLE = (-20)

سپس باید در onload فرم کدهای زیر رو نوشت

Private Sub Form_Load() 'On Form Load you need to set the mirroring for the controls

    Dim OldLong As Long

    'For Form

        OldLong = GetWindowLong(Me.hwnd, GWL_EXSTYLE)

        SetWindowLong Me.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL

        InvalidateRect hwnd, 0, False

    'For List

        OldLong = GetWindowLong(List1.hwnd, GWL_EXSTYLE)

        SetWindowLong List1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL

        InvalidateRect hwnd, 0, False

    'For The StatusBar

        OldLong = GetWindowLong(StatusBar1.hwnd, GWL_EXSTYLE)

        SetWindowLong StatusBar1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL

        InvalidateRect hwnd, 0, False

    'For TreeView

        Dim nodX As Node

        Set nodX = TreeView1.Nodes.Add(, , "R", "Root")

        Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1")

        Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2")

        Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3")

        Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4")

        nodX.EnsureVisible

        OldLong = GetWindowLong(TreeView1.hwnd, GWL_EXSTYLE)

        SetWindowLong TreeView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL

        InvalidateRect hwnd, 0, False

    'For ListView

        OldLong = GetWindowLong(ListView1.hwnd, GWL_EXSTYLE)

        SetWindowLong ListView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL

        InvalidateRect hwnd, 0, False

    'For ProgressBar

        ProgressBar1.Value = 50

        OldLong = GetWindowLong(ProgressBar1.hwnd, GWL_EXSTYLE)

        SetWindowLong ProgressBar1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL

        InvalidateRect hwnd, 0, False

    'For ToolBar

        mhwnd = GetWindow(Toolbar1.hwnd, GW_CHILD)

        OldLong = GetWindowLong(mhwnd, GWL_EXSTYLE)

        SetWindowLong mhwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL

        InvalidateRect hwnd, 0, False

End Sub

من فقط برای treeview استفادش کردم اگر برای بقیه هم مثال درست کردم آپلود میکنم
منبع سئوال 8 : http://www.microsoft.com/middleeast/msdn/faq.aspx

[royasaz_bam]

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

[Younestalebi]

جایی که می خوای استفاده کنی نام تابع رو فراخوانی می کنی حالا داخل پرانتز اسم فیلد مورد نظر که شامل عدد هست رو داخل پرانتز بنویسید به همین سادگی

[navbas]

سلام
در اکسس 2007 سورت به صورت عربی انجام میشه. یعنی حرف "ه" در مرتب سازی قبل از "واو" قرار می‌گیره
در حالیکه در توالی زبان فارسی حروف به صورت "ن" "واو" "ه" "ی" هستن.
کسی از دوستان راه حلی برای حلی این مشکل داره؟

[sajjad_kochekian]

دوستان تا حالا کسی منوی راست به چپ فارسی داشته
من می خواهم منو ها از سمت راست شروع بشه ظاهرا مشکل داره
اگر دوستان کسی می تونه کمک کنه
https://barnamenevis.org/showthread.php?322117

[u.2u.4u]

ممنون. ولی سوال من این است که آیا از 1400 به بعد هم این تابع جواب می دهد؟

[aftab_mahtab]

با سلام خدمت همگي دوستان و اساتيد
راستش من حسابي گير كردم ، n تا فانكشن ديدم كه براي تبديل تاريخ ميلادي به شمسي هست ولي نميدونم چرا تاريخ 2012/03/16 رو اشتباه تبديل ميكنن ، خواهشن اگه كسي تابه درست حسابي براي تبديل تاريخ ميلادي به شمسي داره بهم بده .(فقط يه فانكشن براي اين كار ميخوام ) مرسي ، يه دنيا ممنون

[NasimBamdad]

سلام

من یک DataBase دارم که با Access 95 ساخته شده است . متاسفانه وقتی که با Office 2003 و یا 2007 بازش می کنم ، اطلاعاتش خرچنگ ، قورباقه شده . یعنی Encoding اش بهم خورده .

وقتی هم از منوی tools اون رو تبدیل به یک دیتابیس 2007 می کنم ، بازم فرقی نداره و خرچنگ قورباقه هست .

آیا راهی هست که DataBase رو خوند ؟ چه طوری Encoding اش رو درست کنیم ؟

[NasimBamdad]

خبری نشد دوستان ؟ کسی نظری نداره ؟

[IMANAZADI]

سلام
دوستان راهنمایی میخوام
چرا وقتی تو vba به فارسی مینویسیم وقتی کد اجرا میشه بصورت حروف ناخوانا نمایشداده میشه
مثل تابع msgbox "سلام"

[RESMAILY]

به نام خدا
باسلام قبلا در اينمورد بحث شده است. مشكل از دو نقطه است و معمولا در ويندوز سون پيش مي ايد.
1- فونت مورد استفاده سيستم . يعني اغلب وقتي فونت مورد استفاده سيستم را در Appearance تغيير دهيد مشكل حل مي شود
2 - موضوع مربوط به كاركتر هاي يونيكد. وگرنه در كنترل پنل و بخش Regional and Languege و فلان و در تب Advanced فارسي را انتخاب كنيد.
تنشاله مشكل حل مي شود.

[basirtex]

دوستان لطفا راهنمایی بفرمایید در Access 2010 برای اینکه دیتا بیس ما هنگام باز شدن در یک فرم مشخص باز شود چه کنیم ؟
مثلا با دبل کلیک کردن روی آیکن دیتا بیس، وارد فرم ثبت نام شود در حالت فول اسکرین
مانند اتوران نرم افزار های مختلف
چگونه امکان پذیر است
با تشکر

[brave_ie]

برای این کار برید توی access options
بعد توی current database
بعد توی فیلد display form فرم مورد نظرتون رو انتخاب کنید

[hamid-nice]

سلام
خوب ، ما پیام ها را فارسی کردیم و ... با پنجره open file dialog با دگمه های open و cancel و save چه کنیم ؟ آیا این ها را می شه فارسی کرد ؟ اگر می شه لطف کنید نمونه ای بذارید

اگه نمی شه شما تا حالا چه می کردید ؟ قسمتی از برنامه فارسی و قسمتی انگلیسی بود ؟ چه راهکار دیگه ای را بکار
می گیرید ؟

با تشکر

[RESMAILY]

به نام خدا
با سلام. می شود. در همین تاپیک بگردید پیدا می کنید.

[hamid-nice]

به نام خدا
با سلام. می شود. در همین تاپیک بگردید پیدا می کنید.

سلام
من هر چی تو این تاپیک گشتم که نبود
شاید شما خوب متوجه خواسته من نشدید

اگه من اشتباه میکنم لطفا بگید در کدوم پست هست ؟ اگه نیست و شما می گید می شه لطفا فایلی را که گذاشتم اصلاح فرمایید که خیلی منتظر حل این مساله هستم

با تشکر

[RESMAILY]

به نام خدا
با سلام. اين هم نمونه. مي توانيد آن را توسعه هم بدهيد. من حداقل سه چهار تاپيك در خاطر دارم كه در اين باره گفتگويي شد. در تاپيك برنامه هاب كاربردي هم يكي دو نمونه وجود دارد. چند ساعتي وقت بگذاريد چيز هاي ديگري هم بدست مي ايد.

[hamid-nice]

سلام

ببین دوست گرامی من پستی که زدم برای فارسی کردن پیام ها نبود که این در همین تاپیک و .... وجود داره

بلکه در مورد فارسی کردن دگمه های پنجره ای که برای انتخاب فایل از کامپیوتر هست که من در هیچ تاپیکی کاملش را ندیدم که ناقصش را خودم به صورت فایلی که ضمیمه کردم گذاشتم

شما لطف کن فایل را بردار یک نگاهی یکن و اگه فایلی برای این کار داری بذار که این تاپیک جای این را خالی داره و به درد خیلی ها هم خواهد خورد

با تشکر

[majid_tiger]

به نام خدا
با سلام. اين هم نمونه. مي توانيد آن را توسعه هم بدهيد. من حداقل سه چهار تاپيك در خاطر دارم كه در اين باره گفتگويي شد. در تاپيك برنامه هاب كاربردي هم يكي دو نمونه وجود دارد. چند ساعتي وقت بگذاريد چيز هاي ديگري هم بدست مي ايد.

سلام ، من ویندوزم 7 / 64 بیتیه این ماژول در قسمت AddressOf خطای Type Mismatch میده باید چه تغییری در سورس بدم ؟

[neshomalea]

سلام و ارادت
ماژول MsgBoxFa مسیج باکس فارسی که در این تاپیک بود را باتوجه به اینکه روی ویندوزهای 64 بیتی عمل نمیکرد اصلاح کردم و در ویندوز 64 و 32 بیتی عمل خواهد کرد

Option Compare Database

'----------------------- MsgBoxFa -------------------------

'https://barnamenevis.org/showthread.php?51987-%D9%85%D8%B4%DA%A9%D9%84%D8%A7%D8%AA-%D9%81%D8%A7%D8%B1%D8%B3%DB%8C-%D9%88-%D8%B3%D9%88%D8%B1%D8%B3-%D9%87%D8%A7%DB%8C-%D9%85%D8%B1%D8%A8%D9%88%D8%B7%D9%87&p=1719291&vie  wfull=1#post1719291

'------------------- مسيج باکس فارسي ----------------------

' مناسب سازي شده براي ويندوز 64 و32 بيت '

' توسط محسن آل آقا اصلاح شده '

' 1400/06/29 '

' Hematalea@gmail '

' MsgBox براي استفاده از اين ماژول کافيست بجاي نوشتن تابع '

' .استفاده کنيد MsgBoxFa از تابع '

' '

' ------------------------------------------------------- '

' Integer را به عنوان MsgBox توجه: اگر در جايي که متغير '

' را حذف کنيد Integer ،تعريف کرده ايد '

' '

' :مثال '

' Dim OutPut As Integer <------------ خطا خواهد داد '

' OutPut = MsgBoxFa(".... '

' '

' Dim OutPut <--- بدون خطا اجرا خواهد شد '

' OutPut = MsgBoxFa(".... '

' '

'------------------------- Msgbox -------------------------

Public Const WH_CBT = 5

Public Const GWL_HINSTANCE = (-6)

Public Const HCBT_ACTIVATE = 5





#If VBA7 Then

Public Type MSGBOX_HOOK_PARAMS

hWndOwner As LongPtr

hHook As LongPtr

End Type





Public Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As LongPtr

Public Declare PtrSafe Function GetDesktopWindow Lib "user32" () As LongPtr

Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As LongPtr) As LongPtr

Public Declare PtrSafe Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As LongPtr, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As LongPtr) As LongPtr

Public Declare PtrSafe Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" (ByVal hDlg As LongPtr, ByVal nIDDlgItem As LongPtr, ByVal lpString As String) As LongPtr

Public Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As LongPtr, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As LongPtr) As LongPtr

Public Declare PtrSafe Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As LongPtr, ByVal lpString As String) As LongPtr

Public Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As LongPtr) As LongPtr

#Else

Public Type MSGBOX_HOOK_PARAMS

hWndOwner As Long

hHook As Long

End Type





Public Declare Function GetCurrentThreadId Lib "kernel32" () As Long

Public Declare Function GetDesktopWindow Lib "user32" () As Long

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Public Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long

Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

#End If





'need this declared at module level as

'it is used in the call and the hook proc

Public MSGHOOK As MSGBOX_HOOK_PARAMS

#If VBA7 Then

Public Function MsgBoxFa(Prompt, Optional Buttons As VbMsgBoxStyle = vbOKOnly, _

Optional Tiltle = "", Optional HelpFile, Optional Context) As LongPtr

'Wrapper function for the MessageBox API

Dim hwndThreadOwner As LongPtr

#Else

Public Function MsgBoxFa(Prompt, Optional Buttons As VbMsgBoxStyle = vbOKOnly, _

Optional Tiltle = "", Optional HelpFile, Optional Context) As Long

Dim hwndThreadOwner As Long

#End If



Dim frmCurrentForm As Form

'On Error Resume Next

Set frmCurrentForm = Screen.ActiveForm

hwndThreadOwner = frmCurrentForm.hwnd





#If VBA7 Then

Dim hInstance As LongPtr

Dim hThreadId As LongPtr

Dim hWndOwner As LongPtr

#Else

Dim hInstance As Long

Dim hThreadId As Long

Dim hWndOwner As Long

#End If

hWndOwner = GetDesktopWindow()

hInstance = GetWindowLong(hwndThreadOwner, GWL_HINSTANCE)

hThreadId = GetCurrentThreadId()





With MSGHOOK

.hWndOwner = hWndOwner

.hHook = SetWindowsHookEx(WH_CBT, _

AddressOf MsgBoxHookProc, _

hInstance, hThreadId)

End With



MsgBoxFa = MessageBox(hwndThreadOwner, Prompt, Tiltle, Buttons)





End Function

#If VBA7 Then

Public Function MsgBoxHookProc(ByVal uMsg As LongPtr, _

ByVal wParam As LongPtr, _

ByVal LParam As LongPtr) As LongPtr

#Else

Public Function MsgBoxHookProc(ByVal uMsg As Long, _

ByVal wParam As Long, _

ByVal LParam As Long) As Long

#End If

If uMsg = HCBT_ACTIVATE Then



SetDlgItemText wParam, vbYes, ChrW(1576) & ChrW(1604) & ChrW(1607) '"بله"

SetDlgItemText wParam, vbNo, ChrW(1582) & ChrW(1740) & ChrW(1585) ' "خير"

SetDlgItemText wParam, vbIgnore, ChrW(1604) & ChrW(1594) & ChrW(1608) ' "لغو"

SetDlgItemText wParam, vbOK, ChrW(1578) & ChrW(1571) & ChrW(1740) & ChrW(1740) & ChrW(1583) ' "تاييد"

SetDlgItemText wParam, vbCancel, ChrW(1575) & ChrW(1606) & ChrW(1589) & ChrW(1585) & ChrW(1575) & ChrW(1601) ' "انصراف"

SetDlgItemText wParam, vbAbort, ChrW(1606) & ChrW(1575) & ChrW(1578) & ChrW(1605) & ChrW(1575) & ChrW(1605) & _

" " & ChrW(1605) & ChrW(1575) & ChrW(1606) & ChrW(1583) & ChrW(1606) ' "ناتمام ماندن"

SetDlgItemText wParam, vbRetry, ChrW(1578) & ChrW(1604) & ChrW(1575) & ChrW(1588) & _

" " & ChrW(1583) & ChrW(1608) & ChrW(1576) & ChrW(1575) & ChrW(1585) & ChrW(1607) ' "تلاش دوباره"



UnhookWindowsHookEx MSGHOOK.hHook



End If



MsgBoxHookProc = False





End Function

[neshomalea]

..........

[RESMAILY]

به نام خدا
با سلام. البته می بخشید که درست دقت نکرده بودم. در مورد دیالوگ باکس و غیره هم گمان کنم که باید خودمان دست به کارشویم و فرم مورد نظررا درست کنیم.(سعی می کنم شما هم سعی بفرمایید) ولی نشدنی نیست. الآن درخاطر ندارم یک از دوستان (شاید اقای دستگردی بود) که روی ویندوز تسلط بیشتری داشت نمونه هایی ر ا در این موارد حل کرده بود. لذا مجددا ا ز شما و خوانندگان تاپیک پوزش و غیره.

[RESMAILY]

به نام خدا
با سلام. برای آن چیزی که شما می خواهید ابزاری در vb وجود دارد که ظاهرا در vba وجود ندارد. اما یکی از راههایی که می شود به هدف مورد نظرتان برسید استفاده از treeview است. (راههای دیگری هم به احتمال زیاد هست) نمونه پیوست را نگاهی بکنید. می توانید آن را بصورتی دلخواه توسعه بدهید و تکمه و برچسب و غیره را اضافه بفرمایید. موفق باشید

[hamid-nice]

سلام

چطور می شه آدرس فایلی را که در این پنجره انتخاب می کنیم در یک text box قرار داد یا به نوعی برگردوند چرا که ما از این مساله در کدها استفاده های زیادی
می کنیم
ضمنا چطور می شه یک دگمه در فرم در زیر پنجره قرار داد که نمایان بشه

اگه شما می تونی یک نمونه لطف کنید بذارید در غیر اینصورت فکر کنم بهتره روی نمونه ای که گذاشتم کار کنید یا راه حل دیگری ارایه دهید

با تشکر منتظر پاسختون هستم

[RESMAILY]

به نام خدا
با سلام. به نظرم کار ساده ای باشد. شما در رویداد "دبل کلیک" treeview الآن یک Msgbox را به عنوان پاسخ دریافت می کنید. آیا نمی شود یک تکست باک اضافه کرد و پاسخ "دبل کلیک" را انتقال اطلاعات "گره"(=Node) یا "زیر گره" مربوطه به داخل تکست باکس درنظر گرفت؟ سپس تکمه و غیره هم به هر شکل اضافه نمود؟
به هرحال در اولین فرصت من هم سعی می کنم این موارد را اضافه نمایم. شماهم کمک کنید.

[hamid-nice]

با سلام و تشکر

منتظر یک نمونه حرفه ای از شما هستم

اما در مورد فارسی سازی دو مورد مهم دیگر هست
1- وقتی از فیلد های Attachment در فرم استفاده می کنیم و روی آن دبل کلیک میکنیم تا فایل ها را اضافه یا کم کنیم یک پنجره باز می شود که تماما انگلیسی است

2- همچنین وقتی از فیلد های textbox که رویداد Allow value List edit آن را yes می کنیم در هنگام وارد کردن متنی یک امکان ویرایش متن های لیست آن را می دهد که این پنجره هم کاملا انگلیسی است

آیا راهی برای فارسی کردن اینها سراغ دارید؟

با تشکر فراوان

[hamid-nice]

سلام
سوال در مورد استفاده از تابع تبدیل تاریخ میلادی به شمسی که در پست 1# ارایه شده است
( البته من از ماژول اصلاح شده جناب آزادي توسط احمد ميرزازاده به تاريخ 1388/7/22 استفاده کردم که سال را 4 رقمی می اندازه )

1- می خوام در فرمی که یک فیلد تاریخ دارم کاربر وقتی می خواد تاریخ را وارد کنه input mask به صورت 01/01/1392 باشه ولی وقتی وارد کرد اتوماتیک به صورت
1392/01/01 نمایش بده کجا ها و چه تنظیماتی باید انجام بدم ؟

در صورتی که ما طبق گفته کاربرد این تابع فیلدهای تاریخ را number تعریف کرده ا یم

من هر کار کردم نتونستم راهی پیدا کنم و در هر دو حالت ورود و نمایش به 1392/01/01 میشه

2- وقتی خاصیت validation rule را برای textbox تعریف می کنم و مقداری را در textbox آن وارد می کنم دیگه اجازه پاک کردن و خالی کردن اون را نمیده و پیغام error میده اشکال کارم کجاست یا اینکه این ماژول این مشکل را داره ؟ و استفاده از اون کلا مشکلی نداره ؟

خیلی ممنون میشم کسی راهکار یا نمونه ای ارایه کنه

با تشکر

[hamid-nice]

سلام به همه دوستان

کسی نیست که به این سوال هام پاسخ بده ؟

[mhkavian]

با سلام
کامل ترین نمونه تابع تبدیل عدد به حروف که امکان تبدیل اعداد در نمای علمی رو هم به حروف داره .
می تونید از آدرس زیر دریافت کنید .
http://mantis.ir/access-knowledge/ac...-articles.html

[Rasool-GH]

سلام
از این تاپیک هم کمک بگیرید . ماژول جناب ازادی با کمی تغییرات در مورد تاریخ 2012 هم مشکل نداره

https://barnamenevis.org/showthread.p...8%A8%D8%A7-VBA

[dashali2]

جواب شما توی پست 49 همین تاپیکه