سلامى إلى كل من فى المنتدى
عملت 2 فورم وربطهم بأكسس الفورم الثانى عبارة عنTextBoxبأدخل فيها الأسم أو الرقم فيقوم بعمل بحث وأظهارها فى list
المشكلة أنى عاوز لما أختار الأسم من ال list يظهر الفورم الأول ويظهر فيها بيانات الشخص أللى أخترتة من ال list
شكراً
سأعطيك الفكرة وانطلق ,,,
عرف عدد من المتغيرات في موديول ,, يساوي عدد البيانات التي تريد حفظها ,, عند الاختيار العنصر من اللائحة ,, احفظ هذه البيانات في تلك المتغيرات ,, وبحدث معين اظهر الفورم التالي ,,
وفي حدث التنشيط Activate للفورم التالي ضع خاصية النص لكل مربع النص تساوي قيمة متغير من المتغيرات ,,
اتمنى أنه واضح لك الطريقة ,,,
بالتوفيق ,,,
(ومَنْ يَتَّقِ اللهَ يَجْعَلْ لَهُ مَخْرَجاً وَيَرْزُقُهُ مِنْ حَيْثُ لَاْ يَحْتَسِبْ وَمَنْ يَتَوَكَّلْ عَلَى اللهِ فَهُوَ حَسْبُهُ)
فرحناز سجّاد حسين فاضل - مهندسة كمبيوتر
(يساوي عدد البيانات التي تريد حفظها )
أخى أنا لا أريد الحفظ بل أريد أظهار البيانات بتاعة أسم الشخص ألى أختارة من الlist فى الفورمة الأولى
شكراً
عن طريق جملة استعلام في الفورم الاول
أخى خلى بالك أن list أللى بأختار منها فى الفورمة الثانية والسؤال جملة الأستعلام أكتبها أزاى فى الفورمة الأولى
شكراً
حاولت أخى أفعل كما قلت بس مش عارف
الذى حصلت علية الأتى
أولاً فى الفورم 2 كتبت فى التيكست بوكس الأتى
Private Sub TextBox3_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyUp
If e.KeyCode = Keys.Enter Then
mm.SelectCommand.Parameters("firstname").Value() = TextBox3.Text & "%"
Mmw1.Clear()
mm.Fill(Mmw1)
If ListBox1.SelectedIndex <> -1 Then
ListBox1_SelectedIndexChanged(Me, e)
End If
End If
End Sub إلى هنا أخى الأمور صح حيث يعرض فى الlist الأسماء والمطلوب عند الضغط على الأسم تظهر الفومة 1 مع بيانات هذا الأسم
هل هذا ما تقصد
وفى ال list الأتى
Dim q As Object
Dim w As Object
Dim r As Object
Dim t As Object
Dim y As Object
q = "firstname"
w = "id"
r = "mob"
t = "tel"
فى الفورمة 1 هذا
Dim q As Object
Dim w As Object
Dim r As Object
Dim t As Object
Dim y As Object
editFirstName.Text() = q
editID = w
editdiagnosis.Text() = r
edittel.Text() = t
بل أقصد تعرفها في موديول ,,
تعرفها في موديول ,, حتى لا تحتاج تكرار تعريفها في فورم ,, ولازم يكون نوعها Public وليس Dim
عارفة غنك عاوز تظهر اسم و عمر وعنوانه مثلاً ,, عرف ثلاث متغيرات تحفظ لك هذه الأشياء حتى تنتقل للفورم الأول وترجع لك عن طريق إنك تجعل التكست في التكست بوكس الأول يساوي المتغير الأول وهكذا ,,,
بالتوفيق ,,,
(ومَنْ يَتَّقِ اللهَ يَجْعَلْ لَهُ مَخْرَجاً وَيَرْزُقُهُ مِنْ حَيْثُ لَاْ يَحْتَسِبْ وَمَنْ يَتَوَكَّلْ عَلَى اللهِ فَهُوَ حَسْبُهُ)
فرحناز سجّاد حسين فاضل - مهندسة كمبيوتر
عرف ثلاث متغيرات تحفظ لك هذه الأشياء
كيف أجعل التغيرات تحفظ هذة الأشياء
تضيف موديول جديد ,,
وتكتب فيه
Public q As Object Public w As Object Public r As Object Public t As Object Public y As Object
وبعدها تستخدمها في الفورم الذي فيه الlist
q = mm.SelectCommand.Parameters("firstname").Value()
w = mm.SelectCommand.Parameters("id").Value()
r = mm.SelectCommand.Parameters("mob").Value()
...وفي الفورم اللي بتظهره اكتب في حدث Form1_Activate
text1.text = q text2.text = w text3.text = r ...
اتمنى أنه واضح الآن ,,,
(ومَنْ يَتَّقِ اللهَ يَجْعَلْ لَهُ مَخْرَجاً وَيَرْزُقُهُ مِنْ حَيْثُ لَاْ يَحْتَسِبْ وَمَنْ يَتَوَكَّلْ عَلَى اللهِ فَهُوَ حَسْبُهُ)
فرحناز سجّاد حسين فاضل - مهندسة كمبيوتر
شكراً للرد نعم أوضحت الكثير ولكن لم تطبق وظهر err على w = mm.SelectCommand.Parameters("id").Value()
وبيتهيألى دة بسبب أن id قيمتة رقم
An unhandled exception of type 'System.IndexOutOfRangeException' occurred in system.data.dll
Additional information: An OleDbParameter with ParameterName 'id' is not contained by this OleDbParameterCollection.
ودة نص الرسالة
غير نوع البيانات للمتغيرات حسب ماهي عليه ,, لو نص عرفها كString ولو رقم عرفها كinteger إذا هي صحيحة أو Double لو عشرية بالتوفيق ,,,
(ومَنْ يَتَّقِ اللهَ يَجْعَلْ لَهُ مَخْرَجاً وَيَرْزُقُهُ مِنْ حَيْثُ لَاْ يَحْتَسِبْ وَمَنْ يَتَوَكَّلْ عَلَى اللهِ فَهُوَ حَسْبُهُ)
فرحناز سجّاد حسين فاضل - مهندسة كمبيوتر
لقد قمت بذلك مسبقاً ولكن دون جدوى
جرب هذا ايضاً
w = ToString(mm.SelectCommand.Parameters("id").Value())(ومَنْ يَتَّقِ اللهَ يَجْعَلْ لَهُ مَخْرَجاً وَيَرْزُقُهُ مِنْ حَيْثُ لَاْ يَحْتَسِبْ وَمَنْ يَتَوَكَّلْ عَلَى اللهِ فَهُوَ حَسْبُهُ)
فرحناز سجّاد حسين فاضل - مهندسة كمبيوتر
جايب errوخط أزرق تحت ToString
ارفق المشروع ,,
مشان أشوفه ,,,
(ومَنْ يَتَّقِ اللهَ يَجْعَلْ لَهُ مَخْرَجاً وَيَرْزُقُهُ مِنْ حَيْثُ لَاْ يَحْتَسِبْ وَمَنْ يَتَوَكَّلْ عَلَى اللهِ فَهُوَ حَسْبُهُ)
فرحناز سجّاد حسين فاضل - مهندسة كمبيوتر
إن شاء الله اتوصل إلى حل ,,,
(ومَنْ يَتَّقِ اللهَ يَجْعَلْ لَهُ مَخْرَجاً وَيَرْزُقُهُ مِنْ حَيْثُ لَاْ يَحْتَسِبْ وَمَنْ يَتَوَكَّلْ عَلَى اللهِ فَهُوَ حَسْبُهُ)
فرحناز سجّاد حسين فاضل - مهندسة كمبيوتر
شكراً على أهتمامك
استخدمت خاصية DataBindings وتقريباً مافي أخطاء ,,
لكنني لم استطع ,, الوصول إلى السجل المطلوب ,, كل التكست بوكس فيها صفر ,, ماعدا الاسم الأول ,,,
لم أعرف كيف أصل إلى السجل المطلوب ,, لم أجد خاصية الIndex للسجل ,, حتى أحدد الposition
هو أنا اللي بسأل واللا بجاوب :wacko:
سامحني على التقصير ,, البرنامج في المرفق ,, والداتابيز في مجلد الBin
بالتوفيق ,,,
أختك ,,,
(ومَنْ يَتَّقِ اللهَ يَجْعَلْ لَهُ مَخْرَجاً وَيَرْزُقُهُ مِنْ حَيْثُ لَاْ يَحْتَسِبْ وَمَنْ يَتَوَكَّلْ عَلَى اللهِ فَهُوَ حَسْبُهُ)
فرحناز سجّاد حسين فاضل - مهندسة كمبيوتر
شكراً على الأهتمام وأحاول أتوصل لحل
هل من حل يا جماعة
هل تعرف كيف تستخدم الCurrency Maneger
قيل لي سأجد الحل معه ,, وهأنذا أبحث في المنتدى ,,
بالتوفيق ,, وعذرا على التقصير ...
(ومَنْ يَتَّقِ اللهَ يَجْعَلْ لَهُ مَخْرَجاً وَيَرْزُقُهُ مِنْ حَيْثُ لَاْ يَحْتَسِبْ وَمَنْ يَتَوَكَّلْ عَلَى اللهِ فَهُوَ حَسْبُهُ)
فرحناز سجّاد حسين فاضل - مهندسة كمبيوتر
لم أعرف شىء عنها وسوف أبحث معكى وشكراً على الأهتمام
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…