▓ Microsoft Access سوالات، مشكلات و مباحث در اینجا ▓

[hraa]

سلام، میخواستم بدونم چجوری میشه این قابلیت رو به فرمها اضافه کرد که وقتی من عدد را بصورت رقم مینویسم ، معادل حروفش را هم در فیلد بعد بنویسه(یا بالعکس) ، بیشتر برای طراحی چیزی شبیه چک بانکی میخوام...
خیلی ممنون میشم اگه راهنمایی ام کنید.

[hghb]

آيا مي شود پس زمينه يك فرم بصورت transparent باشد و فقط Objectهاي فرم مشاهده شود

[GR_mahdi]

سلام، میخواستم بدونم چجوری میشه این قابلیت رو به فرمها اضافه کرد که وقتی من عدد را بصورت رقم مینویسم ، معادل حروفش را هم در فیلد بعد بنویسه(یا بالعکس) ، بیشتر برای طراحی چیزی شبیه چک بانکی میخوام...
خیلی ممنون میشم اگه راهنمایی ام کنید.

سلام
برو تو قسمت module یکی جدید بساز و اینو توش بذار و ذخیره کن:


Function Adad(ByVal Number As Double) As String
If Number = 0 Then
Adad = "ÕÝÑ"
End If
Dim Flag As Boolean
Dim S As String
Dim i, L As Byte
Dim K(1 To 5) As Double

S = Trim(Str(Number))
L = Len(S)
If L > 15 Then
Adad = "ÈÓíÇÑ ÈÒѐ"
Exit Function
End If
For i = 1 To 15 - L
S = "0" & S
Next i
For i = 1 To Int((L / 3) + 0.99)
K(5 - i + 1) = Val(Mid(S, 3 * (5 - i) + 1, 3))
Next i
Flag = False
S = ""
For i = 1 To 5
If K(i) <> 0 Then
Select Case i
Case 1
S = S & Three(K(i)) & " ÊÑíáíæä"
Flag = True
Case 2
S = S & IIf(Flag = True, " æ ", "") & Three(K(i)) & " ãíáíÇÑÏ"
Flag = True
Case 3
S = S & IIf(Flag = True, " æ ", "") & Three(K(i)) & " ãíáíæä"
Flag = True
Case 4
S = S & IIf(Flag = True, " æ ", "") & Three(K(i)) & " åÒÇÑ"
Flag = True
Case 5
S = S & IIf(Flag = True, " æ ", "") & Three(K(i))
End Select
End If
Next i
Adad = S
End Function


Function Three(ByVal Number As Integer) As String
Dim S As String
Dim i, L As Long
Dim h(1 To 3) As Byte
Dim Flag As Boolean
L = Len(Trim(Str(Number)))
If Number = 0 Then
Three = ""
Exit Function
End If
If Number = 100 Then
Three = "íßÕÏ"
Exit Function
End If

If L = 2 Then h(1) = 0
If L = 1 Then
h(1) = 0
h(2) = 0
End If

For i = 1 To L
h(3 - i + 1) = Mid(Trim(Str(Number)), L - i + 1, 1)
Next i

Select Case h(1)
Case 1
S = "íßÕÏ"
Case 2
S = "ÏæíÓÊ"
Case 3
S = "ÓíÕÏ"
Case 4
S = "åÇÑÕÏ"
Case 5
S = "ÇäÕÏ"
Case 6
S = "ÔÔÕÏ"
Case 7
S = "åÝÊÕÏ"
Case 8
S = "åÔÊÕÏ"
Case 9
S = "äåÕÏ"
End Select

Select Case h(2)
Case 1
Select Case h(3)
Case 0
S = S & " æ " & "Ïå"
Case 1
S = S & " æ " & "íÇÒÏå"
Case 2
S = S & " æ " & "ÏæÇÒÏå"
Case 3
S = S & " æ " & "ÓíÒÏå"
Case 4
S = S & " æ " & "åÇÑÏå"
Case 5
S = S & " æ " & "ÇäÒÏå"
Case 6
S = S & " æ " & "ÔÇäÒÏå"
Case 7
S = S & " æ " & "åÝÏå"
Case 8
S = S & " æ " & "åÌÏå"
Case 9
S = S & " æ " & "äæÒÏå"
End Select

Case 2
S = S & " æ " & "ÈíÓÊ"
Case 3
S = S & " æ " & "Óí"
Case 4
S = S & " æ " & "åá"
Case 5
S = S & " æ " & "äÌÇå"
Case 6
S = S & " æ " & "ÔÕÊ"
Case 7
S = S & " æ " & "åÝÊÇÏ"
Case 8
S = S & " æ " & "åÔÊÇÏ"
Case 9
S = S & " æ " & "äæÏ"
End Select

If h(2) <> 1 Then
Select Case h(3)
Case 1
S = S & " æ " & "íß"
Case 2
S = S & " æ " & "Ïæ"
Case 3
S = S & " æ " & "Óå"
Case 4
S = S & " æ " & "åÇÑ"
Case 5
S = S & " æ " & "äÌ"
Case 6
S = S & " æ " & "ÔÔ"
Case 7
S = S & " æ " & "åÝÊ"
Case 8
S = S & " æ " & "åÔÊ"
Case 9
S = S & " æ " & "äå"
End Select
End If
S = IIf(L < 3, Right(S, Len(S) - 3), S)
Three = S
End Function


بعد بر تو فرمی که میخوای این کار رو انجام بدی(یا گزارش)
یه فیلد جدید بساز روش کلیک راست کن و تو properties اون تو قسمت control sorce اون بنویس:

[ Adad([fieldadad =
و به جای fieldadad اسم (name) فیلدی رو بنویس که عددت توش وارد میشه
اگه مشکلی بود باز درخدمتم
موفق باشید

[hraa]

GR_mahdi عزیز من این کار رو انجام دادم، ولی به جای حروف علامت های نامفهوم نمایش داده میشه!!! مواردی که بالا نوشتی در قسمت فارسی با فونتهای عجیبی جابجا شده،
اگر میشه یه کاری بکن که فارسی باشه و موقع کپی هم همیونطوری بمونه!!!
(مثلاً جای 125 مینویسه (??? ? ???? ? ????)

[hghb]

سلام، میخواستم بدونم چجوری میشه این قابلیت رو به فرمها اضافه کرد که وقتی من عدد را بصورت رقم مینویسم ، معادل حروفش را هم در فیلد بعد بنویسه(یا بالعکس) ، بیشتر برای طراحی چیزی شبیه چک بانکی میخوام...
خیلی ممنون میشم اگه راهنمایی ام کنید.

فايل زير را ببين

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[hraa]

hghb عزیز، این آدرسی که دادی که اصلاً نمیشه واردش شد و وجود خارجی نداره!!! error میده، میشه خودتون چکش کنید...
در ضمن از اسمت خوشم اومد، یه جورایی شبیه خودمه)

[hghb]

آدرس درسته ولي ----- شكن مي خواد
اگر نتونستي باز كني به من E-Mail بفرست تا فايلش را برات بفرستم.

[hraa]

آدرس درسته ولي ----- شكن مي خواد
اگر نتونستي باز كني به من E-Mail بفرست تا فايلش را برات بفرستم.

من میل به آدرس داخل امضای شما فرستادم، ولی بنظرم اگه بشه جایی آپلود کنی که همه استفاده کنن بهتره!

[aak174]

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

سلام دوست عزیز
یک راهنمای کوچک بصورت آموزشی برای اکسس 2003 لینک شودر زیر گذاشتم می تونی دانلود کنی
لازم به توضیح است که Replication پیشرفته تر اگر خواستی می تونی از اوراکل و یا اس کیو ال سرور استفاده کنی

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

پسورد : aak174

با تشکر

---------- Post added at 08:44 PM ---------- Previous post was at 08:41 PM ----------

خوب اين كارهايي كه گفتيد رو چطور ميتونم انجام بدم؟
فايلي كه دانلود كردم اين هست lending library.accdb

دوست عزیز اگر لینک فایل رو بزاری شاید بشه راهنمایی بهتری کرد .
با تشکر aak174

[GR_mahdi]

GR_mahdi عزیز من این کار رو انجام دادم، ولی به جای حروف علامت های نامفهوم نمایش داده میشه!!! مواردی که بالا نوشتی در قسمت فارسی با فونتهای عجیبی جابجا شده،
اگر میشه یه کاری بکن که فارسی باشه و موقع کپی هم همیونطوری بمونه!!!
(مثلاً جای 125 مینویسه (??? ? ???? ? ????)

آقا شرمنده حواسم نبود
اینم لینک فایلش

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید