mbn

كلمة مأثورة خذوها مني

"لقد تعلمت وتعلمت فخولت لنفسي أني قد دخلت إلى خليج ، فزددت علماً فعلمت أني على باب البحر ، فزددت علماً فضربت رأسي ؛ لإني مازلت على شاطئ المحيط"

الف شكر لك مجدداً

وإن شاء الله يكون مفيد

الف شكر لكم إخواني على مجهودكم

بس مافهمتوا عليي بالضبط


أنا أقولكم

انا عرفت المكان إلي أحط فيه التعليمات عشان أحط الأمر
من خلال نموذج الأخ كمال النحال

بس ممكن تشرحلي زياده عن الـفيجوال بسيك المدخل

Private Sub DER_Click()
On Error GoTo bbc
If IsNull(S1) Then
Beep
S1.SetFocus
Exit Sub
End If
Q.AddNew
Q!CustNo = S1
Q!CustNm = S2
Q!Site = S3
Q!Datee = S4
Q!NZONE = COM1
Q!SortNo = COM2
Q!Ret = S5
Q!Reste = S6
Q!Clean = S7
Q!Pris = S8
Q!Ser = S9
Q!SWG = S10
Q!DR1 = S11
Q!R1 = S12
Q!Chassi = S14
Q!CustNmm = S13
Q!Rooms = S15
Q!Str = S16
Q.Update
S1 = Null
S2 = Null
S3 = Null
S4 = Null
COM1 = Null
COM2 = Null
S5 = 99999
S6 = 0
S7 = False
S8 = False
S9 = False
S10 = False
S11 = Null
S12 = 0
S14 = Null
S13 = Null
S15 = 0
S16 = False
S1.SetFocus
bbc:
S1.SetFocus
Exit Sub
End Sub

Private Sub S1_AfterUpdate()
Dim ss As String
Dim QRY As String
QRY = "SELECT Custs.* FROM Custs;"
Set Q = CurrentDb.OpenRecordset(QRY)
ss = "custno=" & S1
Q.FindFirst ss
If Not Q.NoMatch = True Then
Beep
MsgBox "åÐÇÇáÓÌá ãæÌæÏ Ýí ãáÝ ÇáãÔÊÑßíä ", , "ÇáãÈÑãÌ"
S2.SetFocus
S1.SetFocus
S1 = ""
End If

End Sub

Private Sub S10_AfterUpdate()
If IsNull(S10) Then
S10.SetFocus
S10 = 0
Exit Sub
End If
End Sub

Private Sub S12_AfterUpdate()
If IsNull(S12) Then
S12.SetFocus
S12 = 0
Exit Sub
End If
End Sub

Private Sub S15_AfterUpdate()
If IsNull(S15) Then
S15.SetFocus
S15 = 0
Exit Sub
End If
End Sub

Private Sub S2_AfterUpdate()
S13 = S2
End Sub

Private Sub S5_AfterUpdate()
If IsNull(S5) Then
S5.SetFocus
S5 = 99999
Exit Sub
End If
End Sub

Private Sub S6_AfterUpdate()
If IsNull(S6) Then
S6.SetFocus
S6 = 0
Exit Sub
End If
End Sub

Private Sub S7_AfterUpdate()
If IsNull(S7) Then
S7.SetFocus
S7 = 0
Exit Sub
End If
End Sub

Private Sub S8_AfterUpdate()
If IsNull(S8) Then
S8.SetFocus
S8 = 0
Exit Sub
End If
End Sub

Private Sub S9_AfterUpdate()
If IsNull(S9) Then
S9.SetFocus
S9 = 0
Exit Sub
End If
End Sub

Private Sub ZXCV_Click()
DoCmd.Close
End Sub

كل سطر وفائدته إذا مافي كلافه

إخواني

أنا ماطلبت نموذج

انا طلبت الطريقة

اكتبوها كتابة

السلام عليكم ورحمة الله وبركاته ،،،،

الإخوان الأفاضل

عندي سؤال صغير

وما أضنه عليكم بعسير

تعرفوا أنه أو ماتسوي نموذج بواسطة المعالج

إذا فتحت النموذج تقدر على طول تعدل على المعلومات

طيب

سؤالي هو

كيف أجعل النموذج لايستطيع إدخال أو تعديل البيانات إلا بعد الضغط على الزر الخاص ؟؟؟

إخواني الأعزاء

Plees Help MY

مافي رد؟؟

يا اخي العزيز

انا اعرف انه نسوي علاقة

عشان كذا كتبت سؤال في العلاقات

المشكلة كيف

----؟؟؟

وينكم يا أخوان

طيب

هذا هو الملف

db1.rar

أخي أنا لم أضع ملفي

لأني أريد أن أتعلم الطريقة

ولم أطلب منكم المساعدة في عملي

بل في تعليمي

لك جزيل الشكر

بسم الله الرحمن الرحيم

والصلاة والسلام على أشرف الخلق والمرسلين نبينا وسيدنا وحبيبنا محمد وعلى آل بيته الطيبين الطاهرين

السلام عليكم ورحمة الله وبركاته

أخواني الخبراء

أنا عندي نموذج كشف بالعمال والموضفين

عندي في الإقامات

سويت نموذج حق تجديد الإقامات

أبي إذا حطيت نموذج التجديد وأضفت سجل يغير على معلومات العامل تلقائياً

بالصور

الصورة الاولى هي لنموذج العمال

الصورة الثاني هي لنموذج التجديد

أبي إذا أضفت سجل وحطيت رقم 1 يعدل على رقم 1 في معلومات العمال

وكذالك بالنسبة للرقم 2

لو سمحتوى

وإذا تكرمتو

أبيه شرح

ولو كتابي

ما ابي نموذج جاهز

قال رسول الله صلى اللّه عليه وسلم : ": من نفس عن مسلم كربة من كرب الدنيا نفس الله عنه كربة من كرب يوم القيامة ومن ستر مسلما ستره الله في الدنيا والآخرة ومن يسر على معسر يسر الله عليه في الدنيا والآخرة والله في عون العبد ما كان العبد في عون أخيه ومن سلك طريقا يلتمس فيه علما سهل الله له به طريقا إلى الجنة وما اجتمع قوم في بيت من بيوت الله يتلون كتاب الله ويتدارسونه بينهم إلا حفتهم الملائكة ونزلت عليهم السكينة وغشيتهم الرحمة وذكرهم الله فيمن عنده ومن أبطأ به عمله لم يسرع به نسبه .

أيضاً الدال على الخير كفاعله

أرجو المساعدة

وفقكم الله لمرضاته

السلام عليكم اخواني الاعزاء

طلبي واضح بس مشترط ((طرار ومتشرط))

طبعاً راح يكون التصميم في نموذج

1-الجدول المبيعات - المعلومات

هو راح يكون رأس النموذج وابي إذا حطت رقم العميل يطلعلي اسم العميل ، وتاريخ الفاتورة يكون مبرمج على انه يستخدم التاريخ من الجهاز

2-الجدول المبيعات - الاصناف

هذا راح يكون في منتصف النموذج وابي عندما احط رقم الصنف يطلعلي الصنف وسعره ويكون في قاعده السعر × الكمية = المجموع

3-الجدول المبيعات - النهائي

هنا ابي يجمع في الاجمالي جميع المحموع وينقص من الخصم ويطلع الناتج في الصافي وكتب الناتج تلقائياً في الصافي كتابة ، بعدين عندي الخلية دفع ابي فيها ان يجي فيها الناتج على طول وإذا لم يغير فيها شيء تكون الخلية نوع الفاتورة نقداً وإذا غيرت اي كان الرقم إلي فيها 0 يكون آجل إذا كان في مبلغ وتكون الخلية الباقي فيها ماتبقى من المبلغ اما إذا دفع جزء من المبلغ تطلع في الخلية نوع الفاتورة مبيعات نقداً/آجل

هذا ولكم مني جزيل الشكر وإن شاء الله ما ثقلت عليكم بطلباتي النموذج موجود في المرفقات

وستنوا الباقي

اتمنى ان النموذج مايقفل عشان باقي تعديلات بضيفها ورجعه لكم عشان باقي طلباتي

يالله شباب استناكم

db2.zip

يعني مافي حل أيأس شوفولي حل تراي فخت

المهم هي افكرة زي الفواتير فممكن تصلحها لي

لأن لكل عميل صفحة خاصة وليس محدد معنا كم صفحة لأن العملاء كثيرون يوجد حاليا حوالي10 كتب لكل كتاب مايوازي 50عميل ولازال في زدياد المصنع يعمل من25 سنة ولانزال نحفظ العملاء السابقون لأنه أكبر مصنع وأول مصنع في المنطقة أي أن العميل من الممكن أن يتردد للمصنع مرة أخرى

رقم واحد الأسم حسين وفي الصورة رقم 2 الأسم علي والبيانات حق حسين

لدي نموذج وضعت به جدول أريد في هذه الحالة لكل عميل جدول مالحل؟؟؟؟؟؟وهذا الملف المرفق أوضح :

لدي نموذج في هذا المرفقفيه نموذج فرعي أنا أبي إذا أغير الأسم في النموذج الغير فرعي يتغير النموذج الفرعي من العميل الذي كنت أكتب في نموذجه ألى العميل الجديد وإذا بغيتوا رسمات تفهيم أجيب وياليت فهمتوني وبسرررررررررررررررررررررعة

ولي ماشاف التحميل من هنا

ياجماعة نزلت الموضوع مرة ثانية لأنه تجاوز الصفحتين خلصوني عاد

أبي مساعدة في تصميم صفحة نموذج على حسب الشكل التالي والمعلومات كلها موجودة بس بسرعة

الجزء الأول:

http://www.officena.net/ib/index.php?act=A...pe=post&id=2701

الجزء الثاني:

http://www.officena.net/ib/index.php?act=A...pe=post&id=2702

ألحين خلونا نشوف طيف و zahof و التقني بس في مشكلة للتقني وهي أني أبي أعدل فيه ماهو يسكره

ومن هنا التحميل الباقي مالت المؤسسات إلي في الصورة الثانية مع تحويل الأرقام إلى عدد داخل إجمالي الفواتير

هذا رد الأخ التقني

بالنسبة لتحويل المبلغ الرقمي الى نصي فهذا يسمى التفقيط ويمكنك عمل ذلك من خلال هذا الكود :

CODEهذا الكود يقوم بتحويل الأرقام إلى نصوص ويفيد خاصة من يعملون في مجال

المحاسبة التي تتطلب منهم كتابة المبالغ الماليه رقماً وكتابة فمع هذا الكود

ما عليه سوى كتابة الرقم فقط 0وأحببت أن أضعه هنا للفائدة

Public Function Horof(X)

Ma = " ريال"

Mi = " هللة"

N = Int(X)

B = Val(Right(Format(X, "000000000000.00"), 2))

R = SHorof(N)

If R <> "" And B > 0 Then Result = R & Ma & " و " & B & Mi

If R <> "" And B = 0 Then Result = R & Ma

If R = "" And B <> 0 Then Result = B & Mi

Horof = Result

End Function

Private Function SHorof(X)

N = Int(X)

C = Format(N, "000000000000")

C1 = Val(Mid(C, 12, 1))

Select Case C1

Case Is = 1: Letter1 = "واحد"

Case Is = 2: Letter1 = "اثنان"

Case Is = 3: Letter1 = "ثلاثة"

Case Is = 4: Letter1 = "اربعة"

Case Is = 5: Letter1 = "خمسة"

Case Is = 6: Letter1 = "ستة"

Case Is = 7: Letter1 = "سبعة"

Case Is = 8: Letter1 = "ثمانية"

Case Is = 9: Letter1 = "تسعة"

End Select

C2 = Val(Mid(C, 11, 1))

Select Case C2

Case Is = 1: Letter2 = "عشر"

Case Is = 2: Letter2 = "عشرون"

Case Is = 3: Letter2 = "ثلاثون"

Case Is = 4: Letter2 = "اربعون"

Case Is = 5: Letter2 = "خمسون"

Case Is = 6: Letter2 = "ستون"

Case Is = 7: Letter2 = "سبعون"

Case Is = 8: Letter2 = "ثمانون"

Case Is = 9: Letter2 = "تسعون"

End Select

If Letter1 <> "" And C2 > 1 Then Letter2 = Letter1 + " و" + Letter2

If Letter2 = "" Then Letter2 = Letter1

If C1 = 0 And C2 = 1 Then Letter2 = Letter2 + "ة"

If C1 = 1 And C2 = 1 Then Letter2 = "احدى عشر"

If C1 = 2 And C2 = 1 Then Letter2 = "اثنى عشر"

If C1 > 2 And C2 = 1 Then Letter2 = Letter1 + " " + Letter2

C3 = Val(Mid(C, 10, 1))

Select Case C3

Case Is = 1: Letter3 = "مائة"

Case Is = 2: Letter3 = "مئتان"

Case Is > 2: Letter3 = Left(SHorof(C3), Len(SHorof(C3)) - 1) + "مائة"

End Select

If Letter3 <> "" And Letter2 <> "" Then Letter3 = Letter3 + " و" + Letter2

If Letter3 = "" Then Letter3 = Letter2

C4 = Val(Mid(C, 7, 3))

Select Case C4

Case Is = 1: Letter4 = "الف"

Case Is = 2: Letter4 = "الفان"

Case 3 To 10: Letter4 = SHorof(C4) + " آلاف"

Case Is > 10: Letter4 = SHorof(C4) + " الف"

End Select

If Letter4 <> "" And Letter3 <> "" Then Letter4 = Letter4 + " و" + Letter3

If Letter4 = "" Then Letter4 = Letter3

C5 = Val(Mid(C, 4, 3))

Select Case C5

Case Is = 1: Letter5 = "مليون"

Case Is = 2: Letter5 = "مليونان"

Case 3 To 10: Letter5 = SHorof(C5) + " ملايين"

Case Is > 10: Letter5 = SHorof(C5) + " مليون"

End Select

If Letter5 <> "" And Letter4 <> "" Then Letter5 = Letter5 + " و" + Letter4

If Letter5 = "" Then Letter5 = Letter4

C6 = Val(Mid(C, 1, 3))

Select Case C6

Case Is = 1: Letter6 = "مليار"

Case Is = 2: Letter6 = "ملياران"

Case Is > 2: Letter6 = SHorof(C6) + " مليار"

End Select

If Letter6 <> "" And Letter5 <> "" Then Letter6 = Letter6 + " و" + Letter5

If Letter6 = "" Then Letter6 = Letter5

SHorof = Letter6

End Function

ضع هذا الكود في وحدة نمطيه عامة ثم على نموذج ضع مربع نصين الأول سمه

مقدار_الراتب_رقماً والثاني مقدار_الراتب_نصاً0

وفي حدث بعد التحديث لمربع النص المسمى مقدار_الراتب_رقماً أكتب الكود

التالي:

strN = Horof(مقدار_الراتب_رقماً)

مقدار_الراتب_نصاً = strN

فعندما تكتب الرقم 4552 في الحقل المسمى مقدار_الراتب_رقماً يكون حقل مقدار

الراتب نصاً كالتالي اربعة الآف وخمسمائة وإثنان وخمسون ريال

نفذها لي على المجلد إلي يتحمل من هنا وفي رابط ثاني فوق

أنا أرسلك البرنامج كامل عشان تشوفه

بس مو ألحين

مافهمت شي أنا مبتدأ أتعلم من نيوهورايوزن وفاتني نص الدروس لأني سافرت أنا ماعرف وش أسوي عندي مشاكل واجد أكتب أسئلتها هنا ويالله بعد كم أسبوع يجي الجواب أتمنى منك المساعدة وتدخيل البيانات جزاك الله خير أبوي واعدني بشي إذا أتمم البرنامج وترى هذي أجزاء من أجزاء بعدين إذا أروح المصنع أسوي إستيراد

طيب أنا بجهز إلي أقدر عليه والباقي ساعدوني

أنا أستطيع تصميم هذا هذا الأمر لكن المشكلة في تحويل المبلغ إلى نص وفي الصفحة الثانية هذه بعض المؤسسات فقط هنالك هوالي 50مؤسسة نتعامل معها لذا أنا أريده جدول داخلي يزاد حين أصل للأخير

أنا أكتب الأرقام كي يبقى الموضوع في الشريط ولا يزال

بحاول في وقت الفرغ