HnHn

والله يأخ عيسى لقد شدني سؤالك وأمل من المختصين في المنتدى أن يقوم برد عليك

أشكركم جميع على هذا التفاعل

تفضل Dim rs As New ADODB.Recordset Dim gFind As String, gBookMark As Variant gFind = InputBox("Find What : ", "Search") ' If Trim(gFind) = "" Then Exit Sub ' gBookMark = rs.Bookmark ' rs.Find "[Name] = '" & Trim(gFind) & "'" If rs.EOF Then rs.Bookmark = gBookM…

الشفافية اولا يجب ان نتعرف على الدالة SetLayeredWindowAttributes وهى احدى دوال الــ ِA P I * تعريف الدالة Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long من…

تفضل بعض الروابط التي يمكن ان تستفيد منها SQL 1 SQL 2 SQL 3

وهنا ستجد ملف المشروع كامل ويرجع الفضل لصاحب البرنامج الأخ عرفة نسألكم الدعاء update.zip

الملف المرفق عبارة عن ملفات ال INI يجب رفعها على موقعك بجانب ملف التحديث INI.zip

تفضل أخي .. هذا هو الكود الخاص بالتحديث وعمل التحميل '############################################## 'Upload the "version.ini" file to your own host Private Const VersionURL = "http://www.alhosamnet.com/update/version.ini" ' Private strOldVer As String Private…

الجزء الثاني من البرنامج ملاحظة : يتم فتح الملفين في ملف واحد Part2.rar

الجزء الثاني من البرنامج Part2.rar

الجزء الثاني من البرنامج ملاحظة : يتم فتح الملفين في ملف واحد Part2.rar

تجد الشرح في هذا الرابط ِADO

سوف نكمل الشرح أن شالله في القريب ويمكنك الاستفادة من المثال المرفق وهو عبارة عن البرنامج كامل ويمكنك استخدامه والحكم عليه .. الجزء الأول من الملف Part1.rar

ممكن احد يرسلي كراك الاداة ActSkin4.ocx الاصدار 4.2 على hnhncom@hotmail.com

في الانتظار في اين أصحاب الخبرة

أشكرك من صميم الفؤاد

عندي قاعدة البيانات المرفقة لديكم وفيها يتم نقل البيانات من جدول لآخر المطلوب عمل استعلام وناتج هذا الاستعلام (اي الفرز) هو الذي يتم نقله فقط لا غير الاستعلام تم عمله ولكنه يقوم بتكرار أول سجل على عدد السجلات التي تم فرزها فكيف يتم نقل هذه البيانات دون تكرارها…

ما شالله عليك .. سأجرب البرنامج وأخبرك بالنتائج

بالنسبة لظهور أيقونة البرنامج نقوم بعمل مديول Modul ونكتب بداخله الشفرة التالية ' ثم نضع هذا الكود في الفورم في حدث Form_Load Private Sub Form_Load() Me.Show Me.Refresh With nid .cbSize = Len(nid) .hWnd = Me.hWnd .uId = vbNull .uFlags = NIF_ICON Or NIF_TIP Or …

كيف يتم أقفال ازرار أو مفاتيح الكيبورد الحروف والأرقام منها وأمكانية تحريك الماوس