السلام عليكم
ممكن كود الحفظ على الداتا نفسها
كود الحفظ على الداتا
مغلق
اخي حسب مافهمت انك تريد كود الحفظ
Data1.Recordset.Update
طيب اذا دخلت سجل وعملت حفظ وقفلت البرنامج وفتحته مره تانيه
اشوف السجل موجود في القاعده
شكرا لك اخي :lol:
جربت الكود
Data1.Recordset.updata data1.Refresh
وحفظ على الداتا.. :rolleyes:
لكن في مشكله في كود البحث
Dim h
h = InputBox("فضلاً.. أدخل الاسم ", "بحث")
With Data1.Recordset
.Index = "name"
.Seek "=", h
End With
If Data1.Recordset.NoMatch = True Then
MsgBox "لم يتم العثور"
Else
h = Data1.Recordset.Bookmark
Data1.Recordset.Bookmark = h
End Ifاذا اخترت بحث و طلعت النافذت البحث عملت الغاء الامر تطلع رسالة خطاء
وبعدها تطلع رسالة " لم يتم العثور " الموجوده في الكود :s
يا اخوان ألي شايف خطاء في الكود يفيدني
تكتب في البداية
on error resume next
ثم تكتب
if h=""then
msgbox"فضلا ادخل المراد البحث عنه"
والله اعلم
يعنى بيكون الكود كدا
بحيث جملة InputBox تحذف من الكود
on error resume next
Dim h
if h="" then
msgbox"فضلا ادخل المراد البحث عنه"
@@ h = InputBox("فضلاً.. أدخل الاسم ", "بحث") @@
With Data1.Recordset
.Index = "name"
.Seek "=", h
End With
If Data1.Recordset.NoMatch = True Then
MsgBox "لم يتم العثور"
Else
h = Data1.Recordset.Bookmark
Data1.Recordset.Bookmark = h
End Ifتم تعديل هذه المشاركة بواسطة مفــ 2005ــادي في 25 فبراير 2005 في 13:30
لوسمحتوا ....
v
v
v
v
v
انا ميستني.. :unsure:
-09
الاخ العزيز انااستخدم الكود الاتى فى لبحث
data1.recordset.findfirst
و سوف تجد ما تبحث عنة إن شاء الله فى توقيعى عن الطرق الخاصة بالربط
بس عندى سؤال ما الفائدة من
h = Data1.Recordset.Bookmark Data1.Recordset.Bookmark = h
و شكرا
ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق
خبرى 6 سنوات فى فيجوال بيزك 6و ASP
أخي اقرا الحلقات الأولى من أنشأ مشروعك من الألف الى الياء وستجد الكود ومثال عملي مرفق
أخوك ناصر
سبحان الله MCP,MCSA,MCDBA,MCSE,MCTegyptian in Dammam----------------------------------------------------مواضيعي بالمنتدي أنشأ مشروعك بالفيجوال بيسك 6كتاب أنشأ مشروعك بالفيجوال بيسك كامل pdfكل ما يتعلق بدوال التاريخالمستخدمون والصلاحيات في برنامجك
اهلاً بك اخي
اشكرك على المساعده
ولكن انا اريد من المستخدم ادخل مايريد ان يبحث عنه داخل القاعده
بالنسبه لسؤالك ..
تفيد انه بعد العثور على السجل ثبت مكانه
اخى الكود موجود فى التوقيع أن شاء الله
و البنسبة للتثبيت فما الفيدة و كيفية الاستدعاء !!
و شكرا
ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق
خبرى 6 سنوات فى فيجوال بيزك 6و ASP
الف شكر اخي ناصر
اخي codefinder
خاصية الـBOOKMARK
هي الخاصيه المسؤله عن تذكر موقع السجل الذي يقف عليه المؤشر بعد الانتقال لموقع سجل اخر ويتم إستخدام الـBOOKMARK لتسجيل موقع سجل بوضع قيمه الخاصيه في متغير كما كان سابقاً
هذا الموضوع مغلق.