التسجيل الجديد ومربع التحرير والسرد

[evramman]

في نموذج تسجيل العملاء

يوجد:

- مربع نص (اسم العميل) وبعض سجلات اخري لبيانات العميل 

- مربع تحرير وسرد للبحث عن عميل 

.....

- في حاله البحث عن اسم العميل في مربع تحرير وسرد وعند عدم وجود اسم العميل المراد البحث عنه في مربع التحرير والسرد 

المطلوب :

ظهور رساله تخبر بعدم وجود اسم العميل في القائمة وتطالب التالي :

- هل تريد تسجيل اسم العميل (فلان) في سجل جديد

أ - في حاله نعم :

    التحديد الي مربع اسم العميل في النموذج ويكتب اسم العميل لاستكمال بيانات العميل 

ب- في حاله لا :

   البحث مع اظهار الاسماء المشابهه لاسم هذا العميل 

[evramman]

الإخوة الأعزاء اعضاء المنتدي الكرام رجاء المساعدة في السؤال السابق.

وشكرااااا.

[evramman]

الساده المشرفين والإداريين بالموقع رجاء المساعدة

[Shivan Rekany]

في ٢٠‏/٦‏/٢٠١٧ at 17:54, evramman said:

في نموذج تسجيل العملاء

يوجد:

- مربع نص (اسم العميل) وبعض سجلات اخري لبيانات العميل 

- مربع تحرير وسرد للبحث عن عميل 

.....

- في حاله البحث عن اسم العميل في مربع تحرير وسرد وعند عدم وجود اسم العميل المراد البحث عنه في مربع التحرير والسرد 

المطلوب :

ظهور رساله تخبر بعدم وجود اسم العميل في القائمة وتطالب التالي :

- هل تريد تسجيل اسم العميل (فلان) في سجل جديد

أ - في حاله نعم :

    التحديد الي مربع اسم العميل في النموذج ويكتب اسم العميل لاستكمال بيانات العميل 

ب- في حاله لا :

   البحث مع اظهار الاسماء المشابهه لاسم هذا العميل 

لانك لم رفقت قاعدة بيانات لذا انا عملت العملية على قاعدة استاذنا @محمد احمد لطفى لذا اعتذر منه

اتفضل هذا هو كود البحث

Private Sub مربع_تحرير_وسرد96_AfterUpdate()
    ' ابحث عن السجل الذي يطابق عنصر التحكم.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
On Error GoTo nnn
    rs.FindFirst "[رقم الملف] = " & Me![مربع_تحرير_وسرد96].Column(1)
    If Not rs.EOF Then
    Me.Bookmark = rs.Bookmark
    Else
nnn:   If MsgBox("هذا الاسم ليس موجودة في القائمة هل تريد اضافة هذا الاسم ؟ ", vbYesNo, "تنبيه") = vbYes Then
            DoCmd.GoToRecord , , acNewRec
            Me.name_b = Me.مربع_تحرير_وسرد96
            Me.مربع_تحرير_وسرد96 = Null
            Else
            Exit Sub
        End If
        End If
End Sub

واليك المرفق

 

test5.rar

[evramman]

شكرا جزيلا علي الاهتمام والرد اخي الكريم 

ساقوم بالتجربة واوافيك بما وصلت إليه 

[evramman]

الاخ العزيز اشكرك جدا علي التعاون والاهتمام لقد اضفت الى كثيرا 

تمت التجربه ونجحت 

اكرر شكري وامتناني 

وفيق الله

 

[محمد احمد لطفى]

On 6/23/2017 at 2:46 AM, Shivan Rekany said:

لانك لم رفقت قاعدة بيانات لذا انا عملت العملية على قاعدة استاذنا @محمد احمد لطفى لذا اعتذر منه

اتفضل هذا هو كود البحث

Private Sub مربع_تحرير_وسرد96_AfterUpdate()
    ' ابحث عن السجل الذي يطابق عنصر التحكم.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
On Error GoTo nnn
    rs.FindFirst "[رقم الملف] = " & Me![مربع_تحرير_وسرد96].Column(1)
    If Not rs.EOF Then
    Me.Bookmark = rs.Bookmark
    Else
nnn:   If MsgBox("هذا الاسم ليس موجودة في القائمة هل تريد اضافة هذا الاسم ؟ ", vbYesNo, "تنبيه") = vbYes Then
            DoCmd.GoToRecord , , acNewRec
            Me.name_b = Me.مربع_تحرير_وسرد96
            Me.مربع_تحرير_وسرد96 = Null
            Else
            Exit Sub
        End If
        End If
End Sub

واليك المرفق

 

test5.rar

تفضل يا أستاذى أنا تلميذك