ورود

View Full Version : مشكل در آپديت كردن و حذف اطلاعات


Younestalebi
شنبه 22 مرداد 1390, 12:00 عصر
سلام دوستان
من يه برنامه دارم كه براي ذخيره اطلاعات جديد توي اون مشكلي ندارم ولي وقتي مي خوام اطلاعات رو آپديت يا حذف كنم دچار مشكل مي شم زياد روي اين قضيه كار كردم بوسيله آپديت و ديليت كوئري قضيه رو حل كردم ولي زياد جالب نبود و گاهي مشكل پيدا مي شد.
اگه براي عزيزان مقدوره يه كمك بكنن
amirzazadeh
یک شنبه 23 مرداد 1390, 12:05 عصر
سلام
پيشنهاد من اينه كه در هنگام ذخيره اطلاعات ابتدا فيلد كليدي مورد نظر رو چك كنيد مثلا با تابع DCOUNT . اگر جواب مثبت بود (بزرگتر از صفر) عمليات اپديت صورت خواهد گرفت در غير اينصورت ركورد جديد ثبت خواهد شد.
براي حذف ركورد ميتونيد از كدي شبيه به اين استفاده كنيد:


Dim sql As String
Dim Msg as string
Msg = "ARE YOU SURE" & vbCr & vbCr
i = MsgBox(Msg, vbQuestion + vbYesNo + vbMsgBoxRight, "DEL")
If i = vbYes Then

sql = " delete from tbl_companies WHERE " & _
"company_registration_number= '" & Me.[company_registration_numbe] & " ' "

DoCmd.RunSQL sql
MsgBox "RECORD DELETED"
end if
Younestalebi
یک شنبه 23 مرداد 1390, 13:29 عصر
آخه مشكل اينه كه من كد نويسي به اون صورت بلد نيستم ولي كدي فقط ركورد اضافه ميكنه و يه ركورد رو آپديت نمي كنه
Younestalebi
دوشنبه 24 مرداد 1390, 15:10 عصر
کسی کمک نمی کنه
Younestalebi
سه شنبه 25 مرداد 1390, 12:36 عصر
لطفاً کمک کنید همچنان منتظر کمک دوستان هستیم.
Mahsa Hatefi
چهارشنبه 26 مرداد 1390, 16:33 عصر
دوست گرامي

بهترين روش اصلاح فراخواني ركورد مورد نظر در يك ركوردست و در يك فرم است و سپس آپديت كردن ركوردست باز شده .
Younestalebi
پنج شنبه 27 مرداد 1390, 00:57 صبح
ممنون دوست عزیز
ولی من دنبال یه راهی هستم که توی همین فرم اصلاحات انجام بشه نمی خوام تعداد فرمهام زیاد بشه
Younestalebi
جمعه 28 مرداد 1390, 19:01 عصر
لطفاً کمک کنید.......................................... ..................:متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر::متفکر:: تفکر::متفکر::متفکر::متفکر::م فکر::متفکر::متفکر::متفکر::مت کر::متفکر::متفکر::متفکر::متف ر::متفکر::متفکر::متفکر::متفک ::متفکر::متفکر::متفکر::متفکر: :متفکر::متفکر::متفکر:
ARData
شنبه 29 مرداد 1390, 09:55 صبح
شما اگه می خواهید به طور فرض مقداری را در فیلدی از یک رکورد مورد نظر تغییر دهید یا همان آپدیت نمایید می تونید از این کد استفاده کنید ... فقط تعداد رکوردها از شماره صفر شروع میشه یعنی اگه می خواین تغییری در یکی از فیلدهای رکورد شماره 3 جدول مورد نظر انجام دهید همیشه از شماره رکورد مورد نظر یه عدد کم کن یعنی در قسمت rst.Move (3) عدد 3 همان رکورد شماره 4 است که یک عدد کم شده و برای رکورد اول هم عدد صفر در نظر گرفته می شود ....
Private Sub Command0_Click()
Dim db As Database
Dim rst As Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset("نام جدول مورد نظر")
rst.Move (3)
rst.Edit
rst.Fields("نام فيلد مورد نطر").Value = "وارد کردن مقدار جديد"
rst.Update

rst.Close
db.Close

Set rst = Nothing
Set db = Nothing
End Sub
dadsara
شنبه 29 مرداد 1390, 10:13 صبح
سلام
در فرم Frm_E نمونه مورد نظر جنابعالی موجود می باشد