بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
slamco2000
-
Posts
24 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه slamco2000
-
-
السلام عليكم ورحمة الله وبركاته
أخواني لدي نموذج مرفق أريد ترقيم الموظفين بناءً على إسم الشركة (Company_Name) والحقل المطلوب ظهور الرقم فيه هو (Staff_No)
أي يكون هناك ترقيم متسلسل للموظفين بناءً على إسم الشركة
حاولت أكثر من محاولة لكن دون جدوى .. فأرجو مساعدتي في ذلك
المحاولات:
Me.Staff_No = Nz(DMax("[Staff_No]", "Staffs_Table", "[Company_Name] = '" & Me.Company_Name & "'"), 0) + 1
Me.Staff_No.Value = DCount("Company_Name", "Staffs_Table", "Company_Name= ' " & Me.Company_Name.Value & " ' ") + 1
http://www.mediafire.com/file/2i79npmb2pn9td5/site.rar/file
توجد أخطاء بالبرنامج بسبب حذف بعض الجداول لتصغير حجم الملف -
مشكور الغالي ما قصرت
تصبحون على خير
-
لا أعرف كيف أشكركم أخي جعر وأخي أبو ياسين
فلكم الشكر الجزيل ورحم الله والديكم
أكواد الأزرار من الأخ جعفر إستعملتهم وطبعاً راحت كل المشاكل ولله الحمد
كود الصور ممتاز .. طبعاً أزال المشكلة التي لدي .. أصبحت هناك مشكلة صغيرة فقط .. وأستطيع أستمر بهذه المشكلة أيضاً .. إلا إذا كان لها حل فهذا شيء ممتاز
مربع النص الذي يظهر ... يظهر مرتين ومكتوب به ..
13 Type mismatch
تضغط أوكي مرتين ويذهب
هذه هي المشكلة فقط
ولكم تحياتي وأنا أعجز عن شكركم
-
السلام عليكم ورحمة الله وبركاته
في النموذج وضعت أزرار للجدول الفرعي للنموذج الرئيسي
لكن مشكلتي هو عند الوصول لآخر سجل والضغط على الزر للمتابعة يظهر خطأ للكود ... وهو من المفروض ان يعطي تنبيه لعدم وجود سجلات .. أو التوقف
فما هو الحل لتعديل هذا الأمر
كود السهم للخلف
Private Sub Command42_Click()
Forms!Violations_Form_Share!Violations_Table_subform.SetFocus
DoCmd.GoToRecord , , acPrevious
End Sub
كود السهم للأمام
Private Sub Command41_Click()
Forms!Violations_Form_Share!Violations_Table_subform.SetFocus
DoCmd.GoToRecord , , acNext
End Sub
وتقريباً نفس المشكلة في التقرير حيث يحتوي على صور ... في حال وجود سجلات يعمل بشكل ممتاز .. ولكن في حال عدم وجود سجلات وعمل بحث أو معاينة يكون الخطأ في الكود ... فإذا كان بالإمكان وجود حل لذلك
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Me![ImageFrame1].Picture = Me![Picture1]
Me![ImageFrame2].Picture = Me![Picture2]
Me![ImageFrame3].Picture = Me![Picture3]
Me![ImageFrame4].Picture = Me![Picture4]
End Sub
ولكم مني خالص الشكر والإحترام
-
16 hours ago, عبد اللطيف سلوم said:
أخي ينفعني أنا هذا العمل بعملية حساب المسافة المقطوعة في استلام تسليم السيارات بين النوبات
وإليك الحل
ربما هناك من يستفيد منه
ولكن ليس بدالة DSUM
الحل عن طريق ماكرو
والله ولي التوفيق
- 1
- 1
-
أعزائي الملف المرفق للتعديل
https://up.top4top.net/downloadf-12835f2id1-7z.html
ولكم كل الشكر والإمتنان
- 1
-
- 1
-
السلام عليكم ورحمة الله وبركاته
هل ممكن مساعدتي في عملية الجمع المدرجة في الصورة المرفقة كالتالي
الجمع الموجود :
50
130
250
المطلوب هو
50
50-80=30
80-120=40
50
30
40
فهل ممكن المساعدة في ذلك
اسم الجدول: Vehicle Recipient
اسم الحقل: KM_No
الدالة المستخدمة حالياً:
DSum: DSum(" [KM_No] ","Vehicle Recipient","[ID2]<=" & [ID2] & " ")
أرجو الإفادة والمساعدة في ذلك مع الشكر الجزيل- 1
-
ألف شكر لك أخي ... رحم الله والديك .... هذا هو المطلوب
-
هل من الممكن أن يكون الترقيم التلقائي بناءً على إسم الشركة
في المرفق من نموذج : New_Invoice
أريد الترقيم يكون بناءً على الحقل : owner company name
ويواصل تسلسل الترقيم بناءً على ذلك
هل من حل لهذه المسألة
مع الشكر الجزيل
-
لا أعلم ما المشكلة لكن الملف يظر لي damage ولا يفتح من الملف المضغوط
-
أمورك شوي متلخبطة ... إطرح موضوع موضوع علشان يكتمل تصميمك صح ...
- 1
-
الملف لا يفتح ... به مشكلة
-
تفضل أخي عسى أن تكون هذه غايتك
غير فقط
DMax("[rs]";"[R1]")
وإعملها
DLast("[rs]";"[R1]")
- 1
-
منذ ساعه, طاهر الوليدي said:
اقوى تفقيط محترف من ابو هادي ويعتبر من اعلى مستويات برامج التفقيط عربي وانجليزي فقط ترجم نوع العملة من الجدول فقط
مشكلته ايضا قراءة الأرقام بعد الفاصلة العشرية
لقراءة العدد : 1.235
إنظر لقراءته : one and 0.235000
أرفق لك تفقيط ممتاز ,,,,, فيه نفس المشكلة لكن أفضل ,,, يمكنكم المعاينة ,,, باللغة الإنجليزية
للأسف لم أستطع إرفاق الملف بسبب الحجم ونسختها بالأسفل
هذه قراءته : One Dinar And 235/Fils Only
للفائدة لعل أحد يستفيد منها
وألف شكر لك أخي
Function English(ByVal N As Currency) As String
Const Thousand = 1000@
Const Million = Thousand * Thousand
Const Billion = Thousand * Million
Const Trillion = Thousand * BillionIf (N = 0@) Then English = "Zero": Exit Function
Dim Buf As String: If (N < 0@) Then Buf = "negative " Else Buf = ""
Dim Frac As Currency: Frac = Abs(N - Fix(N))
If (N < 0@ Or Frac <> 0@) Then N = Abs(Fix(N))
Dim AtLeastOne As Integer: AtLeastOne = N >= 1If (N >= Trillion) Then
Debug.Print N
Buf = Buf & EnglishDigitGroup(Int(N / Trillion)) & " Trillion"
N = N - Int(N / Trillion) * Trillion ' Mod overflows
If (N >= 1@) Then Buf = Buf & " "
End If
If (N >= Billion) Then
Debug.Print N
Buf = Buf & EnglishDigitGroup(Int(N / Billion)) & " Billion"
N = N - Int(N / Billion) * Billion ' Mod still overflows
If (N >= 1@) Then Buf = Buf & " "
End IfIf (N >= Million) Then
Debug.Print N
Buf = Buf & EnglishDigitGroup(N \ Million) & " Million"
N = N Mod Million
If (N >= 1@) Then Buf = Buf & " "
End IfIf (N >= Thousand) Then
Debug.Print N
Buf = Buf & EnglishDigitGroup(N \ Thousand) & " Thousand"
N = N Mod Thousand
If (N >= 1@) Then Buf = Buf & " "
End IfIf (N >= 1@) Then
Debug.Print N
Buf = Buf & EnglishDigitGroup(N)
End IfIf (Frac = 0@) Then
Buf = Buf & " Dinar Only"
ElseIf (Int(Frac * 100@) = Frac * 100@) Then
If AtLeastOne Then Buf = Buf & " And "
Buf = Buf & Format$(Frac * 100@, "00") & "/100"
Else
If AtLeastOne Then Buf = Buf & " Dinar And "
Buf = Buf & Format$(Frac * 1000@, "000") & "/Fils Only"
End IfEnglish = Buf
End Function' Support function to be used only by English()
Private Function EnglishDigitGroup(ByVal N As Integer) As String
Const Hundred = " Hundred"
Const One = "One"
Const Two = "Two"
Const Three = "Three"
Const Four = "Four"
Const Five = "Five"
Const Six = "Six"
Const Seven = "Seven"
Const Eight = "Eight"
Const Nine = "Nine"
Dim Buf As String: Buf = ""
Dim Flag As Integer: Flag = False'Do hundreds
Select Case (N \ 100)
Case 0: Buf = "": Flag = False
Case 1: Buf = One & Hundred: Flag = True
Case 2: Buf = Two & Hundred: Flag = True
Case 3: Buf = Three & Hundred: Flag = True
Case 4: Buf = Four & Hundred: Flag = True
Case 5: Buf = Five & Hundred: Flag = True
Case 6: Buf = Six & Hundred: Flag = True
Case 7: Buf = Seven & Hundred: Flag = True
Case 8: Buf = Eight & Hundred: Flag = True
Case 9: Buf = Nine & Hundred: Flag = True
End Select
If (Flag <> False) Then N = N Mod 100
If (N > 0) Then
If (Flag <> False) Then Buf = Buf & " "
Else
EnglishDigitGroup = Buf
Exit Function
End If
'Do tens (except teens)
Select Case (N \ 10)
Case 0, 1: Flag = False
Case 2: Buf = Buf & "Twenty": Flag = True
Case 3: Buf = Buf & "Thirty": Flag = True
Case 4: Buf = Buf & "Forty": Flag = True
Case 5: Buf = Buf & "Fifty": Flag = True
Case 6: Buf = Buf & "Sixty": Flag = True
Case 7: Buf = Buf & "Seventy": Flag = True
Case 8: Buf = Buf & "Eighty": Flag = True
Case 9: Buf = Buf & "Ninety": Flag = True
End Select
If (Flag <> False) Then N = N Mod 10
If (N > 0) Then
If (Flag <> False) Then Buf = Buf & "-"
Else
EnglishDigitGroup = Buf
Exit Function
End If
'Do ones and teens
Select Case (N)
Case 0: ' do nothing
Case 1: Buf = Buf & One
Case 2: Buf = Buf & Two
Case 3: Buf = Buf & Three
Case 4: Buf = Buf & Four
Case 5: Buf = Buf & Five
Case 6: Buf = Buf & Six
Case 7: Buf = Buf & Seven
Case 8: Buf = Buf & Eight
Case 9: Buf = Buf & Nine
Case 10: Buf = Buf & "Ten"
Case 11: Buf = Buf & "Eleven"
Case 12: Buf = Buf & "Twelve"
Case 13: Buf = Buf & "Thirteen"
Case 14: Buf = Buf & "Fourteen"
Case 15: Buf = Buf & "Fifteen"
Case 16: Buf = Buf & "Sixteen"
Case 17: Buf = Buf & "Seventeen"
Case 18: Buf = Buf & "Eighteen"
Case 19: Buf = Buf & "Nineteen"
End SelectEnglishDigitGroup = Buf
End Function -
شكراً أخي طاهر الوليدي
على المجهود المبذول , وفقك الله لكل خير
هذا الكود شغال بشكل ممتاز لعملات الريال والجنيه , لأن يقرا رقمين بعد الفاصلة العشرية
لو مر عليكم كود يقرا ثلاثة أرقام بعد الفاصلة العشرية باللغة الإنجليزية ... لا تنسونا رحم الله والديكم
ألف شكر لكم جميعاً
-
-
في 1/19/2018 at 14:55, طاهر الوليدي said:
هذا مثال طبقه حول كلمة
أخي الكريم
هذا التفقيط باللغة العربية
هل ممكن الحصول على تفقيط باللغة الإنجليزية بالدينار والفلس ويقرأ 3 أرقام بعد الفاصلة العشرية
ولكم مني كل الشكر والإمتنان
-
3 ساعات مضت, محمد التميمي said:
تفضل اخي مثال جاهز بالدينار اكتب الرقم واضغط انتر
اخي يوجد بها خلل زز لا تقرأ الأرقام والناتج دائماً صفر
هل لديك ملف آخر باللغة الإنجليزية
ولك الشكر أخي
4 ساعات مضت, طاهر الوليدي said:هذا مثال طبقه حول كلمة
اخي يوجد بها خلل لا تقرأ الأرقام والناتج دائماً صفر
هل لديك ملف آخر باللغة الإنجليزية
ولك الشكر أخي
-
السلام عليكم ورحمة الله وبركاته
هل من الممكن مساعدتي في تعديل تفقيط الأرقام بالدينار
حيث إني أفتقد القراءة في الفاصلة العشرية الثالثة
وإذا ممكن وجود كلمة And من بعد الدينار.أو أي تفقيط جديد يتعامل بالدينار والفلس باللغة الإنجليزية
ولكم مني الشكر والتقديرOption Compare Database
Option Explicit
Function ConvertCurrencyToEnglish(ByVal MyNumber)
Dim Temp
Dim Dinars, Fils
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ".")
If DecimalPlace > 0 Then
Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
Fils = ConvertTens(Temp)
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = ConvertHundreds(Right(MyNumber, 3))
If Temp <> "" Then Dinars = Temp & Place(Count) & Dinars
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Dinars
Case ""
Dinars = "Zero Dinar"
Case "One"
Dinars = "One Dinar"
Case Else
Dinars = Dinars & " Dinars"
End Select
Select Case Fils
Case ""
Fils = " Zero Fils Only"
Case "One"
Fils = " And One Fils Only"
Case Else
Fils = " And " & Fils & " Fils Only"
End Select
ConvertCurrencyToEnglish = Dinars & Fils
End Function
Private Function ConvertDigit(ByVal MyDigit)
Select Case Val(MyDigit)
Case 1: ConvertDigit = "One"
Case 2: ConvertDigit = "Two"
Case 3: ConvertDigit = "Three"
Case 4: ConvertDigit = "Four"
Case 5: ConvertDigit = "Five"
Case 6: ConvertDigit = "Six"
Case 7: ConvertDigit = "Seven"
Case 8: ConvertDigit = "Eight"
Case 9: ConvertDigit = "Nine"
Case Else: ConvertDigit = ""
End Select
End Function
Private Function ConvertHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
If Left(MyNumber, 1) <> "0" Then
Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred "
End If
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & ConvertTens(Mid(MyNumber, 2))
Else
Result = Result & ConvertDigit(Mid(MyNumber, 3))
End If
ConvertHundreds = Trim(Result)
End Function
Private Function ConvertTens(ByVal MyTens)
Dim Result As String
If Val(Left(MyTens, 1)) = 1 Then
Select Case Val(MyTens)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else
Select Case Val(Left(MyTens, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & ConvertDigit(Right(MyTens, 1))
End If
ConvertTens = Result
End Function
-
ألف شكر أستاذ جعفر
ضبط معاي هذا الكود
IIf(IsNull([Payment_Date]),(Date()-[Account_Receiving_Date]),([Payment_Date]-[Account_Receiving_Date]))
-
ألف شكر أستاذ جعفر ورحم الله والديك
نعم إستخدام
()date هو الصح وكان خطا من عندي
لكن هذا الكود لا يقبله الإستعلام
ترى ما هو الخطأ لدي
-
السلام عليكم ورحة الله وبركاته
أخواني هل من الممكن عمل كود بالإستعلام على النحو التالي
لدي ثلاثة حقول وهي :
Account_Receiving_Date
Payment_Date
الهدف هو في :
Account_Pending_Days
المطلوب : هو في حال كان حقل Payment_Date فارغة تكون المعادلة كالتالي :Time() – [Account_Receiving_Date]
وفي حال تم كتابة التاريخ في حقل Payment_Date
تكون المعادلة كالتالي :[Account_Receiving_Date] - [Payment_Date]
وتكون هذه المعادلة في حقل Account_Pending_Days
هل من الممكن عمل هذا الشرط بالإستعلام
أو هناك فكرة أخرى
وكيف يتم صياغة هذا الشرط إذا ممكن
مع الشكر الجزيل
الترقيم بناءً على إسم الشركة
في قسم الأكسيس Access
قام بنشر
شكراً جزيلاً أخي
وفقك الله لكل خير
هو ما أريده بالضبط
مع إني لم أستطيع عمل العلاقة بين الجدولين كما عملت
فإذا كان عدك وقت لشرحها أكون ممنون لك
ألف شكر