أكواد صحيحة لكن من أين تأتي الأخطاء؟؟

مغلق

بدأه التكنلوجي في 15 أبريل 2005 · 8 رد · 614 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#115 أبريل 2005 في 12:28 صاحب الموضوع

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

إخواني

لدي عدة أكود هي في نظري صحيحة لكن... في نظر الحاسب خا طئة فهل من مساعد يقول لي أين الخطأ؟؟ ويصححه لي :D

الكود الأول

هو كود يقوم بنسخ الملف الذي يتم تعيينه بأداة CommonDialog

إلى ملف موجود في مسار البرنامج App.Path & "\Egaz"

:D إلى الآن جميل

الكود هو

CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub

  Dim a As String
  a = CommonDialog1.FileName
        
  Dim b As String
  b = App.Path & "\Egaz"
  
  CopyFile a, b, False

File1.FileName = App.Path & "\Egaz"
End Sub

ولكن البرنامج يعطيني خطأ في CopyFile a, b, False؟؟؟؟

الكود الثاني

يقوم هذا الكود بالبحث في أي جزء من الحقل ( في وسطه)

sq = InputBox("بحث عن كلمة", , "أدخل الكلمة هنا")
Data1.RecordSource = "Select * From hesn Where rtrt 'LIKE '%" & sq & "%';"
Data1.Refresh
If Data1.Recordset.EOF And Data1.Recordset.BOF Then
  MsgBox "عفوا الكلمة غير موجودة", , "خطأ بالبحث"
End If

فماهو الحل

كما أن هنالك مشكلة محيرتني كثيرا كثيرا

وهي :

أنني أستخدم أداة DTPicker1 لعرض التاريخ

فهي تعرض لي التاريخ بالهجري لكن عندما يتم حفظ التاريخ يحفظ بالميلادي !!!!

مع العلم أنني أستخدم الكود التالي

Text17.Text = DTPicker1.Value
DTPicker1.Visible = False

:( :wacko: أرجوا أن تساعدوني بأسرع وقت ممكن

____________________________________________

راسلني على

mamb121@hotmail.com

أو تفضل وتكرم بزيارة موقعي

www.tecnyt.com

#215 أبريل 2005 في 16:48

أرجوا الرد بأسرع وقت ممكن

راسلني على

mamb121@hotmail.com

أو تفضل وتكرم بزيارة موقعي

www.tecnyt.com

#315 أبريل 2005 في 17:12

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

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

الخطأ يا أخي أنه لا توجد دالة بالاسم CopyFile ، أما الكود الصحيح بعد التعديل فهو :

 Dim Path As String
 Path = App.Path & "\Egaz"

CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub

 FileCopy CommonDialog1.FileName, Path

File1.FileName = App.Path & "\Egaz"

أما بالنسبة للسؤال الأخير فما عليك سوى إضافة سطر واحد فيكون الكود كالتالي :

Calendar = vbCalHijri 
Text17.Text = DTPicker1.Value
DTPicker1.Visible = False

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

سبحان الله وبحمده ... سبحان الله العظيم

#415 أبريل 2005 في 17:26

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

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

أما بالنسبة للسؤال الثاني فقد قمت بالتعديل على الكود الذي وضعته حتى أصبح كالتالي :

sq = InputBox("بحث عن كلمة", , "أدخل الكلمة هنا")
Data1.RecordSource = "Select * From [hesn] Where rtrt Like '*' & '" & sq & "' & '*';"

Data1.Refresh
If Data1.Recordset.RecordCount = 0 Then
MsgBox "عفوا الكلمة غير موجودة", , "خطأ بالبحث"
End If

أتمنى أن أكون قد وفقت في الرد على أسئلتك

ولا تنسانا من دعوة صالحة في ظهر الغيب

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

سبحان الله وبحمده ... سبحان الله العظيم