حذف رکوردو...

[elina1200]

1.من می خوام یه رکورد از جدول رو حذف کنم برای اینکه به رکورد مورد نظر برسم از متدfind و از یه اشاره گر به جدول استفاده کردم.من میخوام وقتی به رکورد مورد نظر رسید به جای حذف یه فیلد از این رکورد رو با یه عددی مثل 1 مقدار دهی کنم لطفا راهنمایی کنید.
o
bjrst2.Find "code='" & Text1.Text & "'", , adSearchForward, 1
If objrst2.EOF Then
objstr2 یه اشاره گر به جدول هست.
2. چطوری می تونم که محتوای این رکورد رو در فرم (همون Textboxها) نشون بدم که مشخص بشه که کدوم رکورد حذف خواهد شد.

با تشکرات فراوان

[yavari]

سلام elina1200 جان

دوست عزیز ، اگه منظورت رو خوب متوجه نشدم بیشتر توضیح بده
من نمی فهمم کجای کارت می لنگه
خب وقتی رکورد مورد نظر جهت حذف رو یافتی مقدار فیلد Boolean رو True کن بعدش هم Update
اگه میتونی تکه برنامه رو بذار تا تکمیلش کنیم

موفق باشی

[elina1200]

من در قسمت پیدا کردن رکورد مورد نظر مشکل دارم.از کد زیر که استفاده میکنم یا به objstr2 ، error میده ویا اینکه وقتی هم error نده با اینکه اجرا میشه ولی عملا هیچ کاری انجام نمی گیره.


Private Sub Command2_Click()
'all mfgchker
objrst2.Find "moshcode='" & Text1.Text & "'", , adSearchForward, 1
If objrst2.EOF Then

Text1.Text = objrst1.Fields(0) در این قسمت خواستم که محتوای اون رکورد رو در فرم نشون بده
Text5.Text = objrst1.Fields(1)
Text2.Text = objrst2.Fields(2)
Text11.Text = objrst2.Fields(3)
Text10.Text = objrst2.Fields(4)
Text4.Text = objrst2.Fields(5)
Text3.Text = objrst2.Fields(6)
Text6.Text = objrst2.Fields(8)
به جای حذف خواستم که مقدار اون فیلد رو با صفر مقدار دهی کنم objrst2.Fields(7) =
0

a = kimiamdl.maxfinder(objrst2, 4)

objrst2.Update

objrst2.Close
Set objrst2 = Nothing
Set objrst2 = New ADODB.Recordset
objrst2.CursorType = adOpenKeyset
objrst2.LockType = adLockOptimistic
SQL = "SELECT * From moshtari ORDER BY moshcode"
objrst2.Open SQL, objcnn

Else
Exit Sub
End If
' Call scrclean2
End If
End Sub
باز هم از راهنماییتون تشکر می کنم.

[ehsan_ansaripoor]

دوست عزیز در قسمتی که کد مقدار دهی برای TextBox ها را نوشتی لزومی به انجام این کار و اگر از کنترل Ado استفاده کنید در زمان جستجو اگر لینک برقرار باشه خودش نشون میده.

برای اینکه رکورد یک جدول را تغییر دهید بعد از عمل جستجو و پیدا شدن رکورد مورد نظر شما باید اون رکورد را ابتدا Edit و بعد Update کنید.

[elina1200]

مشکل من هم تو قسمت جستجو هست .این کد کجاش ایراد داره که نمی تونم جستجو کنم.

[yavari]

سلام
میشه Error رو بگی
موفق باشی

[elina1200]

من از کد زیر استفاده کردم هیچerrorنمی ده ولی درست اجرا نمیشه.من وقتی کد رو وارد می کنم بعد دکمه رو میزنم هیچ عملی انجام نمی گیره.
از لطف همه دوستان ممنونم.

Private Sub Command2_Click()

objrst2.Find "moshcode='" & Text1.Text & "'", , adSearchForward, 1
If objrst2.EOF Then
a = kimiamdl.maxfinder(objrst2, 4)

objrst2.Fields(7) = 0


objrst2.Update

objrst2.Close
Set objrst2 = Nothing
Set objrst2 = New ADODB.Recordset
objrst2.CursorType = adOpenKeyset
objrst2.LockType = adLockOptimistic
SQL = "SELECT * From moshtari ORDER BY moshcode"
objrst2.Open SQL, objcnn

Else
Exit Sub
End If
' Call scrclean2

[elina1200]

من کد رو به صورت زیر تغییر دادم اما این دفعه هم این error رو میده.


run time error'3704'
operation isnot allowed when the object is closed.
******************
******************
Set objcnn = New A
DODB.Connection

Set objrst2 = New ADODB.Recordset
Dim strsqlas As String

به این خط error میده objrst2.Find "moshcode='" & Text1.Text & "'", , adSearchForward, 1
If objrst2.EOF Then
objrst1.Fields(7) = 0
End If
objrst2.Update

objrst2.Close
Set objrst2 = Nothing
Set objrst2 = New ADODB.Recordset
objrst2.CursorType = adOpenKeyset
objrst2.LockType = adLockOptimistic
SQL = "SELECT * From moshtari ORDER BY moshcode"
objrst2.Open SQL, objcnn
ببخشید دیگه شما ها باید هوای ما تازه کارهارو داشته باشین