ادخال نص فقط لمعاينة تقرير

[عذاب الزمان]

 

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

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

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

ولكم جزيل الشكر والاحترام

 

Private Sub ÃãÑ56_Click()

Dim a_rr As Error

Dim X As String

On Error GoTo a_rr

X = InputBox("enter text", "text ")

If Len(Trim(X)) = 0 Then

MsgBox "error "

Else

DoCmd.OpenReport "Rep_sadder", acViewPreview, , "Go_sad like '" & X & "'"

End If

Exit Sub

a_rr:

MsgBox " error "

End Sub

[jjafferr]

وعليكم السلام

 

هذه طريقتي:

Private Sub ÃãÑ56_Click()
Dim a_rr As Error
Dim X As String
On Error GoTo a_rr
X = InputBox("enter text", "text ")
If Len(Trim(X)) = 0 Then
	MsgBox "error "
	Exit sub
end if

    For i = 1 To Len(X)

        If IsNumeric(Mid(X, i, 1)) Then
            MsgBox "contains Numbers"
            Exit Sub
        End If
        
    Next i

DoCmd.OpenReport "Rep_sadder", acViewPreview, , "Go_sad like '" & X & "'"

Exit Sub
a_rr:
MsgBox " error "
End Sub

 

جعفر

تم تعديل يونيو 25, 2017 بواسطه jjafferr
تم تعديل Me.X الى X

[عذاب الزمان]

كل عام وانتم بالف خير 

جزاك الله خير اخي على مساعدتك لي 

عند التنفيذ يظهر لي تحذير  compile error 

method or data member not found 

ويقف عند جملة  me.x

انتظرك اخي مع الشكر

اخي قمت بحذف me  وابقاء  x  فنجحت التجربة 

شكرا لك اخي الغالي 

ولي طلب اخر الان اريد ان استبدل حقل النص بحقل التاريخ وبنفس الكيفية 

الله يزيدك علم وفهم وحياة سعيدة .

 

[jjafferr]

شكرا على الملاحظة ، وتم تعديل المثال في موضوعي

 

بالنسبة للتاريخ ، فالافضل ان تعمل التنسيق للحقل من اعدادات الحقل في النموذج ، هكذا مثلا:

dd/mm/yyyy

 

جعفر

[عذاب الزمان]

اخي جعفر سلام عليكم وكل عام وانت بخير 

لقد عملت التنسيق للحقل dd/mm/yyyy

المشكلة عندما ادخل اي رقم يفتح لي واجهة معاينة التقرير ... اريد ان يفتح عند ادخال التاريخ فقط .

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

 

Dim a_rr As Error

Dim X As Date

Dim i As Integer

On Error GoTo a_rr

X = InputBox("ÇÏÎá ÊÇÑíÎ ÇáßÊÇÈ ÇáÕÇÏÑ", "ÊÞÑíÑ ÊÇÑíÎ ÇáßÊÇÈ (ÇáÕÇÏÑ) ")

If X = 0 Then

    MsgBox "ÇÚÏ ÇáãÍÇæáÉ áÞÏ ÇÏÎáÊ ÇÏÎÇáÇð ÎÇØÆÇð ", vbOKOnly, "ÇÏÎÇá ÞíãÉ ÎÇØÆÉ"

Else

    DoCmd.OpenReport "Rep_sadder", acViewPreview, , "date_sad like '" & X & "'"

End If

Exit Sub

a_rr:

MsgBox "ÑÌÇÁÇÚÏ ÇáãÍÇæáÉ ãÑÉ ÇÎÑì ÝÇä ÇÏÎÇáß ÎÇØíÁ ", vbOKOnly, "ÇÏÎÇá ÞíãÉ ÎÇØÆÉ "

[jjafferr]

لما تعمل تنسيق التاريخ للحقل ، فالحقل لن يقبل اي شيء غير التاريخ ، لا ارقام ولا نص ،

الظاهر عندك خطأ ، فإعمله مرة اخرى وجرب ،

وإلا فارفق مثالك نشوف عملك علشان نعدل عليه

 

جعفر

[عذاب الزمان]

الاخ جعفر المحترم

ارفقت نسخة من البرنامج

1- في نموذج التقارير يوجد زر معاينة حسب التاريخ ( المشكلة فتح نافذة المعاينة وعند ضغط اي رقم يفتح نافذة المعاينة ... اريد ان تفتح المعاينة عندما ادخل تاريخ فقط )

2- ممكن كود فتح سكنر من خلال زر امر .

ملاحظة : عندما قمت الان بعمل نسخة من البرنامج فان كل الاكواد البرمجية لم تعد تعمل في هذه النسخة ، واما الذي تم عمله سابقاً بالماكرة بقي يعمل وستلاحظ ذلك في واجهة الصادر والوارد في ازرار التنقل وكذلك واجهة التقارير .

لك مني كل الشكر والتقدير

برنامج الصادر والوارد.rar

[jjafferr]

1.

حقول التاريخ الاربعة تعمل بشكل صحيح في مرفقك ، حيث لا تستطيع ادخال اي شيء سوى التاريخ ،

ولكنك لم تطلب من البرنامج ان يتأكد من وجود التواريخ قبل فتح التقرير!!

 

استعمل هذا الكود:

Private Sub أمر46_Click()

    If Len(Me.date1 & "") = 0 Or Len(Me.date2 & "") = 0 Then
        MsgBox "رجاء ادخال التواريخ"
        Exit Sub
    End If
    
    DoCmd.OpenReport "Rep_Qury_sad", acViewPreview
End Sub

 

ونصيحة:

لا تحتفظ بالصور داخل برنامجك ، لأن حجمه سيكبر كثيرا وتتعرض للكثير من المشاكل فيه لاحقا.

 

2.

ابحث في المنتدى ، فهناك الكثير من الامثلة على طلبك ، واذا احتجت مساعدة ، فرجاء فتح سؤال جديد ، حيث قوانين المنتدى لا تسمح بأكثر من سؤال واحد لكل موضوع

 

جعفر

[عذاب الزمان]

الاخ جعفر المحترم

يبدو انك لم تلاحظ طلبي جيدا في رقم 1  ... هناك زر امر كتبت فيه ( تقرير حسب التاريخ ) في نموذج ( التقارير ) ،

واشكرك على الاضافة التي كتبتها بخصوص التقرير بين تاريخين ، لكنها ليست  ما ابحث عنه .

1- في نموذج التقارير يوجد زر معاينة حسب التاريخ ( المشكلة فتح نافذة المعاينة وعند ضغط اي رقم يفتح نافذة المعاينة ... اريد ان تفتح المعاينة عندما ادخل تاريخ فقط )

لك مني كل الشكر والتقدير

[jjafferr]

وعليكم السلام

8 ساعات مضت, عذاب الزمان said:

الاخ جعفر المحترم

يبدو انك لم تلاحظ طلبي جيدا في رقم 1  ... هناك زر امر كتبت فيه ( تقرير حسب التاريخ ) في نموذج ( التقارير ) ،

 

انت اخبرتني ان اسم الزر:

10 ساعات مضت, عذاب الزمان said:

1- في نموذج التقارير يوجد زر معاينة حسب التاريخ ( المشكلة فتح نافذة المعاينة وعند ضغط اي رقم يفتح نافذة المعاينة ... اريد ان تفتح المعاينة عندما ادخل تاريخ فقط )

وانا لقيت زر معاينة التقرير تحت التواريخ مباشرة ، لهذا السبب اشتغلت عليه

 

ومرة اخرى اعطيت اسم الزر الخطأ هنا

8 ساعات مضت, عذاب الزمان said:

1- في نموذج التقارير يوجد زر معاينة حسب التاريخ ( المشكلة فتح نافذة المعاينة وعند ضغط اي رقم يفتح نافذة المعاينة ... اريد ان تفتح المعاينة عندما ادخل تاريخ فقط )

 

 

1. كما اشرت لك سابقا ، الافضل ان تعمل حقل للتاريخ في النموذج ، وتستعمل تنسيق التاريخ فيه (كما عملت انت في حقول التواريخ الاخرى) ،

2. تستعمل الكود الذي اعطيتك للتأكد من وجود تاريخ في الحقل ،

3. والافضل ان يكون مصدر بياناتك من استعلام ، بدل الجدول مباشرة ، فقد تحتاج عمل تعديل عليه لاحقا

 

جعفر

[عذاب الزمان]

الاخ جعفر 

نعم انا ابقيتها كما هي واعرف اني كتبت معاينة ولم يكن الخطأ منك بل مني ...

اخي العزيز اعرف استخدام حقل تاريخ لكن الفكرة هي من خلال ادخال التاريخ في صندوق inputbox  بضغط زر الامر يظهر صندوق الادخال وادخل فيه التاريخ فقط تظهر معاينة التقرير .

لك كل الشكر والتقدير فقد اتعبتك معي كثيرا

[jjafferr]

الموضوع مو سهل ، لهذا السبب اردت ان اسهل عليك وعلى نفسي

جرب هذا الكود:

Private Sub أمر55_Click()
Dim a_rr As Error

    Dim X As String
    Dim myDate() As String
    Dim Separator As String
    Dim dd As Integer
    Dim mm As Integer
    Dim yyyy As Integer
    
On Error GoTo a_rr
X = InputBox("ادخل تاريخ الكتاب الصادر", "تقرير تاريخ الكتاب (الصادر) ")


'check if whats entered is a Date
    'what did we use as a Separator between the dd-/mm-/yyyy
'1st location
    If Len(Trim(X) & "") = 0 Then
        MsgBox "اعد المحاولة لقد ادخلت ادخالاً خاطئاً ", vbOKOnly, "ادخال قيمة خاطئة"
        Exit Sub
        
    ElseIf InStr(X, "-") > 0 Then
        '-
        Separator = "-"
        
    ElseIf InStr(X, "/") > 0 Then
        '/
        Separator = "/"
        
    Else
        'Separator Not known
        MsgBox "اعد المحاولة لقد ادخلت ادخالاً خاطئاً ", vbOKOnly, "ادخال قيمة خاطئة"
        Exit Sub
        
    End If
    
    
'2nd location
    If InStr(InStr(X, Separator) + 1, X, Separator) = 0 Then
    '2nd Separator Not found
        MsgBox "اعد المحاولة لقد ادخلت ادخالاً خاطئاً ", vbOKOnly, "ادخال قيمة خاطئة"
        Exit Sub
    End If
    
    
'Convert X string to dd, mm, yyyy
    myDate = Split(X, Separator)
    dd = myDate(0)
    mm = myDate(1)
    yyyy = myDate(2)

    
'is it a Date
    'check for X as as a Date in the Format yyyy/-mm/-dd
    Debug.Print CDate(CStr(yyyy) & Separator & CStr(mm) & Separator & CStr(dd))
    If IsDate(CStr(yyyy) & Separator & CStr(mm) & Separator & CStr(dd)) = False Then
    'Not a valid date
        MsgBox "اعد المحاولة لقد ادخلت ادخالاً خاطئاً ", vbOKOnly, "ادخال قيمة خاطئة"
        Exit Sub
    End If
    


    DoCmd.OpenReport "Rep_sadder", acViewPreview, , "date_sad like '" & X & "'"

Exit Sub
a_rr:
MsgBox "رجاءاعد المحاولة مرة اخرى فان ادخالك خاطيء ", vbOKOnly, "ادخال قيمة خاطئة "

End Sub

 

جعفر

[عذاب الزمان]

الاخ المحترم جعفر

زادك الله من علمه 

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

نعم جربته وفعلا لم يعد يسمح لاي من الارقام باستعراض صفحة تقرير ويظهر مسج خطأ والى هنا شيء ممتاز ... لكن عندما ادخل التاريخ يظهر لي التقرير بدون بيانات اي يفتحه لي فارغ 

وبكل حال من الاحوال انا شاكر لك مجهودك عسى الله ان يعطيك قوة وعلم في خدمة الناس وممن هم بحاجه لك .

شكرا جزيلا اخي .

[jjafferr]

عُذرا ،

انا لم اهتم ببقية الكود ، وانما تركيزي كان على كود التأكد من تاريخ الادخال

 

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

DoCmd.OpenReport "Rep_sadder", acViewPreview, , "[date_sad]=#" & X & "#"

بدلا عن
DoCmd.OpenReport "Rep_sadder", acViewPreview, , "date_sad like '" & X & "'"

 

جعفر

[عذاب الزمان]

الاخ والاستاذ جعفر المحترم

كل كلمات الشكر لاتوفيك حرصك في مساعدة من يحتاجك

الله يحفظك من كل سوء وزادك الله من فضله علماً وفهماً وعافية

نجحت التجربة والكود رااااااااائع

وبالتاكيد لن تخلص مني لاني ساطرح سؤالاً في موضوع جديد بالتاكيد باذن الله

مع الشكر والتقدير لكم وللمنتدى الرائع

[jjafferr]

هلا ومرحبا