VB6-Rocket

بالاضافة الى ما ذكره الاخ البريشى اليك الكود التالى لاجهاض اى محاولة لصق او نسخ Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Clipboard.Clear End Sub Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) C…

عذرا على التاخير ..يظهر انى مفهمتش الموضوع كويس بالنسبة للبطء فى عملية المعالجة فيمكن علاج ذلك عن طريق تنقية الكلمات من خلال متغير بدلا من تنقيتها داخل ال textbox

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

ارجو التوضيح اكثر

بالنسبة لتعديل ال label فى ال datareport ... عليك تحديد ال section و رقم ال control كما فى المثال Set DataReport1.DataSource = rs DataReport1.Sections(2).Controls(2).Caption = " I love VB 6" DataReport1.Show 1 اما بالنسبة لجعل زر ال no هو الافتراضى ... ركز فى …

العفو اخى ابو الفوارس واليك الكود الخاص بزر التسجيل .. ولكنى افترضت ان البيانات كلها جديدة ولا مجال للتعديل و ذلك للتسهيل Private Sub Command1_Click() Set db = OpenDatabase(App.Path & "\db2.mdb") Set rs = db.OpenRecordset("select * from days ") For x = 1 To MS…

على ضوء الردود السابقة اعتقد من وجهة نظرى ان تكتب الكلمة مرة بالتشكيل و مرة بدون تشكيل يعنى حقلين

استخدم الامر clipboard.clear قبل امر النسخ

يا ريت ترفق البرنامج

مثال الاخ / الفوارس صحيح 100% لكن هذا الكود يسرى على اى عدد من الخانات فى ال datagrid For x = 0 To MSFlexGrid1.Rows - 1 ' put add new record here For y = 0 To MSFlexGrid1.Cols - 1 MsgBox MSFlexGrid1.TextMatrix(x, y) ' put the data in the database here Next y N…

دا كود البحث بالتاريخ On Error Resume Next If RsOn.State = adStateOpen Then RsOn.Close SQL = "SELECT * FROM [Tebol] WHERE [date] = #" & Trim(Text3.Text) & "#" RsOn.Open SQL, DbOn, adOpenStatic, adLockReadOnly ' GO TO FUNCTION upatedata upatedata اما كود البحث …

بمجرد ما يشتغل البرنامج اول مرة ضع مسار الملف فى الرجيسترى ولما يشتغل البرنامج بعمل check على قيمة الريجيسترى و يتأكد من وجود الملف بعد ذلك فى المسار المخزن

Form1.Left = 0 Form1.Top = 0 فى نفس المثال

ثانيا المؤشر adOpenDynamic استبدله بالمؤشر adOpenStatic حتى تتصفح بدون مشاكل movenext

ال password هو fw

1 - لا يوجد اسبقية 2- و بالتالى لايوجد استفادة هو بيوضح ان علامة + تصلح لل strings ليس اكثر ولا اقل

الغى هذه الجملة من تعريف ال connection PROVIDER=MSDataShape;

يا ريت توضح المطلوب بالضبط ... او اعطى مثال

اجعل نزع المتغير Currency سواء فى حقل قاعدة البيانات او فى المتغير

جرب هذا اللينك /index.ph...opic=68928&st=0