سلام دوست عزیزنقل قول:
در موردش تحقیقی کردم ولی چیزی که واقعا راهنمایی کنه دستگیرم نشد
مثلا چطوری میتونیم آدرس برنامه شعبات یا برنامه مرکزی رو براشون تعریف کنیم؟
لطفا راهنمایی بیشتری کن:11:
Printable View
سلام دوست عزیزنقل قول:
در موردش تحقیقی کردم ولی چیزی که واقعا راهنمایی کنه دستگیرم نشد
مثلا چطوری میتونیم آدرس برنامه شعبات یا برنامه مرکزی رو براشون تعریف کنیم؟
لطفا راهنمایی بیشتری کن:11:
سلام، میخواستم بدونم چجوری میشه این قابلیت رو به فرمها اضافه کرد که وقتی من عدد را بصورت رقم مینویسم ، معادل حروفش را هم در فیلد بعد بنویسه(یا بالعکس) ، بیشتر برای طراحی چیزی شبیه چک بانکی میخوام...
خیلی ممنون میشم اگه راهنمایی ام کنید.
آيا مي شود پس زمينه يك فرم بصورت transparent باشد و فقط Objectهاي فرم مشاهده شود
سلامنقل قول:
برو تو قسمت 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) فیلدی رو بنویس که عددت توش وارد میشه
اگه مشکلی بود باز درخدمتم
موفق باشید:11:
GR_mahdi عزیز من این کار رو انجام دادم، ولی به جای حروف علامت های نامفهوم نمایش داده میشه!!! مواردی که بالا نوشتی در قسمت فارسی با فونتهای عجیبی جابجا شده،
اگر میشه یه کاری بکن که فارسی باشه و موقع کپی هم همیونطوری بمونه!!!
(مثلاً جای 125 مینویسه (??? ? ???? ? ????)
فايل زير را ببيننقل قول:
کد:https://docs.google.com/leaf?id=0B2rQ_NPhWNcoNWZmNGFjMmMtYTY4ZC00ZjRkLWIxZWItMjQ0NmFlMjAxNjE4&hl=en
hghb عزیز، این آدرسی که دادی که اصلاً نمیشه واردش شد و وجود خارجی نداره!!! error میده، میشه خودتون چکش کنید...
در ضمن از اسمت خوشم اومد، یه جورایی شبیه خودمه)
آدرس درسته ولي ----- شكن مي خواد
اگر نتونستي باز كني به من E-Mail بفرست تا فايلش را برات بفرستم.
من میل به آدرس داخل امضای شما فرستادم، ولی بنظرم اگه بشه جایی آپلود کنی که همه استفاده کنن بهتره!نقل قول:
سلام دوست عزیزنقل قول:
یک راهنمای کوچک بصورت آموزشی برای اکسس 2003 لینک شودر زیر گذاشتم می تونی دانلود کنی
لازم به توضیح است که Replication پیشرفته تر اگر خواستی می تونی از اوراکل و یا اس کیو ال سرور استفاده کنی
پسورد : aak174کد:http://aak174.persiangig.com/Access/Replication.rar
با تشکر
---------- Post added at 08:44 PM ---------- Previous post was at 08:41 PM ----------
دوست عزیز اگر لینک فایل رو بزاری شاید بشه راهنمایی بهتری کرد .نقل قول:
با تشکر aak174