nacergha

السلام عليكم و رحمة الله نظرا لكون هذا المثال يشبه تقريبا لفكرة برنامج عجزت عن الوصول إلى وضع أكواده أردت طرح مثال عسى الأخ الكريم abudawoodd صاحب الجواب أن ينورنا بالحل هو تقريبا نفس فكرة المثال المطروح لكن الإضافة تتمثل في اختيار لون التكست الأول و الذي يليه…

تفضل هناك مشاركة أخرى في الرابط التالي: /index.php?showtopic=158040&st=0&p=793157&fromsearch=1entry793157 save picture + Adodc1+pass.rar

السلام عليكم ورحمة الله الرجاء شرح كيفية تنصيب التحديث

تفضل أخي مثال مع مصدره http://vbnet.mvps.org/index.html?code/network/netshareadd.htm How to Share a Folder.rar

http://www.vb4arab.com/vb/uploaded/35255/01284410542.rar FileCopy.rar

DataEnvironment1.rsCommand1.Filter = " date >= '" & Text1.Text & "' and date<= '" & Text2.Text & "' " DataReport1.Show بحيث text1 = قيمة التاريخ الأول text2= قيمة التاريخ الثاني

أخي أفضل طريقة عدم نشر هذا الفيروس كوننا شعب مسلم لا نضر أحد

راجع هذه المشاركة يوجد بها أمثلة //attachment/63923 /index.php?showtopic=158040&st=0&p=793520&hl=nacergha&fromsearch=1entry793520

السلام عليكم راجع هذا المثال ربما يفي بالغرض المطلوب http://www.vb4arab.com/vb/uploaded/35255/01275739696.rar

راجع هذا الرابط http://www.4shared.com/file/127169286/5f36...gfacom.html?s=1

السلام عليكم ضع الكود التالي في أمر النسخ أو التصدير On Error GoTo errxcel Dim i, j, k, l As Integer Dim xlo As Object Set xlo = CreateObject("Excel.Application") DoEvents xlo.Visible = True xlo.workbooks.Add xlo.Range("A1:F1").Font.Bold = True xlo.Range("A1:F…

السلام عليكم أخي لم يسبق لي و أن تعاملت مع هذا النوع من الحماية و لكن حسب رأي يتأثر البرنامج عند تغيير مسار قاعدة البيانات لذلك حافظ على المسار حسب الكود التالي المعدل: Global Const gsConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Password=aa;" & _ "Use…

السلام عليكم الأخ الكريم إليك المثال و لا تنسى أن تضع أسم الحقل في مكان الجدول1 المبين في الكود التالي: Me.Adodc1.RecordSource = " 1الجدول" بالتوفيق aa.rar

السلام عليكم الأخ من فضلك أعطينا إسم حقل من الحقول

السلام عليكم أخي ضع مثال و سنجيب إن شاء الله

Dim Connect As String Dim FileSource As String FileSource = App.Path & "\Data.mdb;Persist Security Info=False;Jet OLEDB:Database Password=2009" Connect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source= " & FileSource & "" Adodc1.ConnectionString = Connec…

تفضل Private Sub Form_Load() Dim Connect As String Dim FileSource As String FileSource = App.Path & "\Bibliothèque.mdb;Persist Security Info=False;Jet OLEDB:Database Password=11" Connect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source= " & FileSource & …

جرب هذا الكود و سيعمل إن شاء الله Dim miReport As CRAXDDRT.Report Dim miCRApp As New CRAXDDRT.Application Set miReport = miCRApp.OpenReport(App.Path & "\report1.rpt") With miReport .RecordSelectionFormula = "{data1.name}='" & combo1.Text & "'" End With With CR…

Form1.BackColor = &H80000009 Form1.PrintForm

تفضل مثال كامل حول طلبك /index.ph...st&id=63923