Visitor_OM

إن شاء الله خير وما يكون خاطرك إلا طيب وتفضل الكود ... run01.zip

عفوا على المثال السابق : تفضل Private Sub Form_Load() Text1.Text = "Two of the peak human experiences" Text1.Text = Text1.Text & " are good food and classical music." End Sub Private Sub Form_Click() Dim Search, Where ' Declare variables. ' Get search string f…

السلام عليكم تحية طيبة مني للجميع * جرب يمكن يفيدك الثمال التالي : Const LB_FINDSTRING = &H18F Private Declare Function SendMessage Lib "User32" _ Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Integer, _ ByVal wParam As Integer, lParam As Any) As L…

تفضل أخي المثال التالي ... stopprocess.zip

السلام عليكم اخي العزيز جرب الطريقة التالية : select nm1 & " " & nm2& " " &nm3 & " " & nm4 as nam from tb1 order by nam والمعذرة إذا ما نجح معاك