تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مشكلة في عرض رقم الصنف بعد البحث عنه الى الجريد-مرفق صورة توضيحية
#1
المطلوب مفتاح من لوحة الفاتيح مثلاً F9 او اي مفتاح ترونه مناسب يعرض لي واجه البحث عن اصناف وعند اختيار الصنف يتم عرض رقمه في واجهة الاضافة 
عندي مشكلة حاول لها كثيرا ولم احصل على نتيجة المطلوب موضح بالصورة لتوصل الفكرة لكم اخواني 



   


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


الملفات المرفقة
.rar   diy-210-Fixed.rar (الحجم : 78.97 ك ب / التحميلات : 23)
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة:
#2
اخواني لقد وجدت كيفية عرض واجهة الاصناف بواسطة المفتاح F9 
بقت لدية مشكلة لوضعها في الجريد عمود رقم الصنف 
ارجو الرد بسرعة للأهمية جزاكم الله خير 

هذا المثال بعد العرض بF9 
انقر IF9 لعرض واجهة البحث عن اصناف


الملفات المرفقة
.rar   diy-210-Fixed2.rar (الحجم : 79.69 ك ب / التحميلات : 29)
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy
#3
 هل يوجد حل لمشكلتي جزاكم الله خير 
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy , Amir_Alzubidy
#4
هل يوجد حل لمشكلتي جزاكم الله خير
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#5
تفضل أخي المثال بعد التعديل :

PHP كود :
Module1
''---------------------------------------
Public 
DB As New ADODB.Connection
Public RS As New ADODB.Recordset
Public RS2 As New ADODB.Recordset
Public RA As New ADODB.Recordset
Public RSSNFMaxID As New ADODB.Recordset
Public RSSNFN As New ADODB.Recordset
Public RSADItm As New ADODB.Recordset
Public RSASNAF As New ADODB.Recordset
''---------------------------------------
Public 
ItemsID As String
''---------------------------------------
Form4
''---------------------------------------
Private 
Sub Command1_Click()
 
   ItemsID Val(Trim$(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row0)))
 
   Unload Me
End Sub
''---------------------------------------
''---------------------------------------
Form1
''---------------------------------------
Private 
Sub Command4_Click()
Form4.Show 1
fox
.TextMatrix(fox.Row0) = ItemsID
End Sub
''--------------------------------------- 


الملفات المرفقة
.rar   diy-210-FixedXT.rar (الحجم : 84.97 ك ب / التحميلات : 30)
الرد }}}
تم الشكر بواسطة: awidan76 , محمد كريّم , Ahmed_Mansoor , Amir_Alzubidy
#6
السلام عليكم اخي الغالي الصراحة اكثر من الروعة كلك ابداعات ماشاء الله عليك 
ربي يحفظك ويسلمك ويرزقك من حيث لا تدري 

الصراحة لقد قمت بابعاد من كتفي حمل ثقيل لتسهيل الية اضافة الاصناف عن طريق الاختيار 

كم انا احترمك 

قمت باضافة F9  لعرض الاصناف  واختيار الصنف عنطريق الكود الخاص بك 
هذا المثال ساهديه لك كهديه  

جرب انقر على If9 واختر الصنف الذي تريده  

كم احترمك من كل قلبي


الملفات المرفقة
.rar   diy-210-Fixed3.rar (الحجم : 624.17 ك ب / التحميلات : 46)
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو , Ahmed_Mansoor , Amir_Alzubidy
#7
مشكور على هذه الهدية القيمة و جزاك الله عنا كل خير .
الرد }}}
#8
السلام عليكم اخواني 

اريد تطوير زر حفظ الفاتورة برسائل تاكيدة فتظهر رسالة خطاء في Next
ياترى ماهي المشكلة 

ارجو تعديل الكود 

PHP كود :
Private Sub Command1_Click()

Dim I As Integer
For 1 To fox.Rows 1
    
    If Trim
$(fox.TextMatrix(I0)) <> "" And Val(Trim$(fox.TextMatrix(I0))) > 0 Then
    Set RS 
= New ADODB.Recordset

If RS.State adStateOpen Then RS.Close
RS
.CursorLocation adUseClient

        ms 
MsgBox("هل تريد بالفعل حفظ بيانات الفاتورة"vbYesNo)
 
       If ms vbYes Then

             RS
.Open "select* from  BillItems "DBadOpenStaticadLockPessimistic
              
              
             RS
.AddNew
             RS
!Id Val(Trim$(fox.TextMatrix(I0)))
 
            RS!Name Trim$(fox.TextMatrix(I1))
 
            RS!Qty Val(Trim$(fox.TextMatrix(I3))) '3
      RS.Update
      DoEvents
      
        Set RS2 = New ADODB.Recordset
If RS2.State = adStateOpen Then RS2.Close
RS2.CursorLocation = adUseClient
  
      RS2.Open "Select * From Store Where iD=" & Val(Trim$(fox.TextMatrix(I, 0))), DB, adOpenStatic, adLockPessimistic

      If RS2.RecordCount > 0 Then
      
          RS2![noo] = RS2![noo] - Val(Trim$(fox.TextMatrix(I, 3))) '
3
   
         RS2
.Update
         DoEvents


    MsgBox 
"تمت عملية حفظ الفاتورة "vbMsgBoxRtlReading vbInformation"تنبية"
Else
 
   
    MsgBox 
"لم يتم حفظ الفاتورة "vbMsgBoxRtlReading vbInformation"تنبية"

Exit Sub

End 
If
End If
End If
Next

End Sub 
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة: asemshahen5 , Ahmed_Mansoor , Amir_Alzubidy
#9
PHP كود :
If MsgBox("Save"vbYesNo"") = vbYes Then
   MsgBox 
"تم الحفظ بنجاح"
Else
 
  MsgBox "لم يتم الحفظ بنجاح"
End If 
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , Ahmed_Mansoor , Amir_Alzubidy
#10
المشكلة في جملة for 
بالاخص في Next


الملفات المرفقة
.rar   diy.rar (الحجم : 625.15 ك ب / التحميلات : 19)
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يمكن استعمال اكتف ريبورت لعرض بيانات فبيها حقل صورة gonm64 7 1,205 11-09-22, 02:04 PM
آخر رد: مصمم هاوي
  مشكلة في تعديل بعد تشابه حقل البحث محمد حمد محمد سليمان 1 1,203 24-01-22, 04:45 AM
آخر رد: Taha Okla
Thumbs Up مشكلة في برنامج مبرمج بلغة الفيجول بيسك palart 2 1,897 04-05-21, 05:59 PM
آخر رد: palart
  عندي مشكلة في برمجمة مشروع فيجول بيسك ياريت تساعدوني tareqhabib15 3 1,667 28-11-20, 10:11 PM
آخر رد: tareqhabib15
  مشكلة maskedbox ماجد 2 1,639 07-08-20, 10:14 AM
آخر رد: ماجد
Photo كيف أضيف صورة الموظف في قاعدة البيانات وفي تقرير الكريستال amazonette 0 1,908 30-12-19, 01:25 PM
آخر رد: amazonette
  افضل طرق البحث بـ ado derbaliammar 6 5,972 12-08-19, 02:52 AM
آخر رد: ahmed.m
  مشكلة محتاجة حل fathyfarag122 3 2,559 08-11-18, 03:45 PM
آخر رد: حريف برمجة
  كيفية البحث وعمل فلتر للبيانات داخل Mysql ؟ gedo 2 2,169 07-11-18, 05:53 PM
آخر رد: gedo
  [vb6.0] مشكلة في تشغيل exe لبرنامج تم إنشاءه بالفيجوال 6 محب الإسلام 2 2,397 06-10-18, 06:08 PM
آخر رد: dasktop

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم