[وادي العوضي]

السلام عليكم اساتذتي الافاضل ورحمة والله وبركاته
جمعة مباركة طيبة عليكم جميعا في المرفقات برنامج معمول بالفيجوال بيسك6 وقاعدة بيانات اكسيس 2003 مقفولة برقم سري
( 13130022 ) اذا المساعدة في تشغيل استعلام الحاقي في هذه القاعدة من واجهة برنامج الفيجوال بيسك6 من خلال زر امر تشغيل استعلام مع وافر التحايا
وهذا البرنامج في المرفقات

[وادي العوضي]

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

[وادي العوضي]

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

[ahmedabdelaliem]

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

اخي العزيز عدل على المثال المرفق سابقا هكذا

احذف الكود كاملا من الصفحة وضع هذا الكود

PHP كود :

Dim db As Database
Dim RS As Recordset
Dim p, b, d, s As String
Private CN As New ADODB.Connection
Private RS1 As New ADODB.Recordset

Public Sub ConncData()
    If CN.State = 1 Then CN.Close
    CN.CursorLocation = adUseClient
    CN.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=13130022;"
    CN.Open App.Path & "\compny.mdb"
    
End Sub

Private Sub Command16_Click()
Dim myCmd As ADODB.Command
Set myCmd = New ADODB.Command
myCmd.ActiveConnection = CN
myCmd.CommandText = "q"
myCmd.CommandType = adCmdStoredProc
Set RS1 = myCmd.Execute
MsgBox "Done"
End Sub

Private Sub Command9_Click()
End
End Sub

Private Sub Form_Load()

Call ConncData
'Set db = OpenDatabase(".\compny.mdb")
'Set RS = db.OpenRecordset("tbl1")

End Sub

Private Sub Timer1_Timer()
'Label6.Caption = Time
'Label7.Caption = Date
End Sub 


بالتوفيق اخي

[وادي العوضي]

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

---

وهذه صورة الرسالة التي تخرج لي بعد الضغط على زر امر تشغيل

[ahmedabdelaliem]

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

تفضل اخي الحبيب
بالتوفيق

[وادي العوضي]

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