05-04-13, 03:48 AM
السلام عليكم...
المعذرة! لم أنتبه إلى أن المتغير db المعرف في الـ Module معرف بجملة Dim. استعمال Dim لتعريف متغير (أو ثابت Const) تجعله خاصاً (Private) لتلك الـ Module فقط.
الحل:
1. احذف جملة Dim db As New ADODB.Connection الموجودة في بداية كود الـ Form.
2. عدل التعريف الموجود في الـ Module ليكون هكذا: Public db As New ADODB.Connection أي باستعمال Public بدل Dim ليكون المتغير db معروفاً على مستوى المشروع (أي يمكن الوصول إليه من أي مكان في المشروع).
نرجو الاستفادة و السلام.
المعذرة! لم أنتبه إلى أن المتغير db المعرف في الـ Module معرف بجملة Dim. استعمال Dim لتعريف متغير (أو ثابت Const) تجعله خاصاً (Private) لتلك الـ Module فقط.
الحل:
1. احذف جملة Dim db As New ADODB.Connection الموجودة في بداية كود الـ Form.
2. عدل التعريف الموجود في الـ Module ليكون هكذا: Public db As New ADODB.Connection أي باستعمال Public بدل Dim ليكون المتغير db معروفاً على مستوى المشروع (أي يمكن الوصول إليه من أي مكان في المشروع).
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
