HnHn

اخ علي العراقي لقد خالفت قواعد المشاركة بوضع 1- سؤال في قسم مخالف 2 - لم تضع عنوان لموضوعك بشكل مناسب 3- لم تكتب أو لم تشرح ما تريد ان تسأل عنه فهذه الاسباب التي ادت إلى اغلاق المشاركة ... بالتوفيق

اسفل التوقيع الخاص بي هناك موضوع بهذا الخصوص .. جرب وتصفحه

يمكن ذلك بطريقة جمل التكرار جرب هذا الرابط لعميل النقل وهذا الرابط لحميل الجمع .... فقط كل ما عليك جمعهما معا -_-

اعتقد -_- أني وضعت لك الرابط يقودك إلى رد أخر لي برابط اخر وكل ما في الامر إنه يحتاج لعيون لتنظر فقط واعتقد أن الاخ MR^King فسر لك عدة امور كانت مركبه خطأ وهذا ما قصدته من ناحية أم بالكود او بالمعالج .. وهو أم ان تطبق صح بهذا اوبذاك

الخطأ أنك تستخدم عملية الربط بواسطة الاداة ومن ثم تأمرها بالكود .. وهذا خطأ -_- أم ان تبرمج بالكود .... أو أن تبرمج بالمعالج ... راجع هذا ا لرابط ففيه مثال يفيدك وطريقة استخدام عملية البحث ونصيحة قبل أن تسأل في المرة القادمة أن تبحث في المنتدى أو هنا دلـيـلك ا…

الحل سيكون في جملة استعلام كالتالي RS.Open "SELECT * FROM Table1 WHERE [F1] = '" & Trim(Text) & "' and [F2] = Format("& Text1.Text &", "mm/dd/yyyy")'", db F ترمز لأسم الحقل راجع هذا الرابط ونصيحة قبل أن تسأل في المرة القادمة أن تبحث في المنتدى أو هنا دلـيـلك ا…

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

اخ daarg ممكن تبدء بذكر نبذة عما قمت به مع الدعم بالأمثله وياريت رابط للغة التي تتكلم عنها لنجرب فالتجربة خير برهان

تفضل هذا هو الحل Private Sub MSFlexGrid1_Click() Dim s$ ' HnHn : تعريف متغير لحفظ قيمة الحقل 'HnHn : اسناد قيمة الحقل إلى المتغير s = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) 'HnHn :البحث في الحقل المراد بقيمة المتغيير Data1.Recordset.FindFirst ("Title Like …

المستحيل ليس في الحل وانما في الشرح ...ندرة من يقوم بالشرح هو المستحيل فكل مشغول والكل يريد مصلحته وحل واجباته فقط انظري للرابط الاسفل وستعرفين لماذا لا توجد حلول بشرح

استخدم عملية الربط بالكود كما يلي Private Sub get_connection(ByRef objADODC As Adodc, ByVal sRecord As String, ByVal sLocation As String, ByVal bPassword As Boolean, ByVal sPassword As String) objADODC.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data…

تفضل أخ memouz Save_To_Txt.rar

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

استخدم جمل التكرار اذا وقد وضحت طريقتها في الرد السابق

استخدم جملة تكرار فقط كالتالي Dim I% For I = 1 To 150 List1.AddItem (readLine(App.Path + "/test.txt", I)) Next I

قم بتعريف متغير على مستوى البرنامج ويفضل وضع التعريف في مديول بشكل التالي Public sUser As String ومن ثم اسند المتغير لقيمة الحقل المسجل به اسم المستخدم عن حدث تسجيل الدخول للبرنامج كالتالي sUser = rs.Filde("سم المستخدم") وبالتالي سيحتفظ المتغيير بأسم المستخدم …

تأكد من نوع الحقل في الجدول.. أجعله من نوع نص

استدعي الاتصال بالقاعدة في كل فورم من ثم ضع الاتصال بالجدوال كالتالي تعريف الاتصال بالقاعدة والجدوال في Module كما يلي Public dB As New ADODB.Connection Public Rs1,Rs2 ,Rs3 ,Rs4 ,Rs5 As New ADODB.Recordset Public Sub OpenDatabase() If dB.State = adStateClosed …

اخي الكريم يجب أن يكون سؤالك واضح ومدعم بمثال لكي نستطيع تقديم المساعدة لك .. فالفكرة بالنسبة لي غير مفهمومة

الطريقة كالتالي قم بوضع هذه الشفرة في مديول Module Public Function readLine(ByRef strFilePath As String, ByRef nLine _ As Integer) As String Dim NextLine As String Dim n As Integer FileNum = FreeFile Open strFilePath For Input As FileNum Do Until EOF(FileNum) …