مشکل در ثبت رکورد جدید

[mehdipormaye]

با سلام خدمت اساتید محترم
در یک فرم هنگام ذخیره اطلاعات پرسنلی فرد و بستن فرم، به طور خودکار یک رکورد جدید با یک شماره جدید (اتونامبر) اضافه می شود .
یعنی اگر شماره فرم 10 باشد بعد از بستن فرم خود سیستم یشماره 11 را با رکوردهای خالی ذخیره میکند و برای ثبت مشخصات جدید شماره اتونامبر 12 است.
این مشکل را چگونه حل کنم؟
ممنون از اساتید گرامی

[eb_1345]

با سلام خدمت اساتید محترم
در یک فرم هنگام ذخیره اطلاعات پرسنلی فرد و بستن فرم، به طور خودکار یک رکورد جدید با یک شماره جدید (اتونامبر) اضافه می شود .
یعنی اگر شماره فرم 10 باشد بعد از بستن فرم خود سیستم یشماره 11 را با رکوردهای خالی ذخیره میکند و برای ثبت مشخصات جدید شماره اتونامبر 12 است.
این مشکل را چگونه حل کنم؟
ممنون از اساتید گرامی
سلام
کدهائی که برای ذخیره کردن استفاده می کنی و همچنین اگر کدخاصی در رویدادهای close ، Unload فرم بکار برده ای در اینجا قرار بده

[mehdipormaye]

سلام استاد ممنون
در رویدادهای unload و close کدی ندارم

کد ذخیره:
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("tbl_loh")
If IsNull(Me.namekhadem) = True Or Me.namekhadem = "" Then
MsgBox ("لطفا نام دريافت کننده لوح را وارد نماييد")
Me.namekhadem.SetFocus
Exit Sub
End If
If IsNull(Me.shomareloh) = True Or Me.shomareloh = "" Then
MsgBox ("لطفا شماره لوح را وارد نماييد")
Me.shomareloh.SetFocus
Exit Sub
End If
If IsNull(Me.dloh) = True Or Me.dloh = "" Then
MsgBox ("لطفا تاريخ لوح را وارد نماييد")
Me.dloh.SetFocus
Exit Sub
Exit Sub
End If
rst.AddNew
MsgBox ("ثبت باموفقيت انجام شد.")
rst.Update
rst.Close
DoCmd.Requery







سلام
کدهائی که برای ذخیره کردن استفاده می کنی و همچنین اگر کدخاصی در رویدادهای close ، Unload فرم بکار برده ای در اینجا قرار بده

[eb_1345]

سلام
اگر از فرم در حالت باند استفاده می کنی برای اضافه کردن رکورد چه نیازی به ایجاد رکوردست داری؟ با DoCmd.GoToRecord acDataForm, , acNewRec هم میتونی فرم رو در حالت اضافه شدن رکورد قرار بدی
شما در کدهاتون بدون اینکه به فیلدهای جدول مقداری اضافه کنی با rst.AddNew فقط یک رکورد جدید رو اضافه می کنی
من با عجله یک نمونه با استفاده از اطلاعات و نام جدول خودت تهیه کردم
فقط تاکید می کنم کدها رو امتحان نکردم سعی کن خودت تکمیلش کنی

[mehdipormaye]

با عرض سلام و سپاس از شما استاد محترم

سلام
اگر از فرم در حالت باند استفاده می کنی برای اضافه کردن رکورد چه نیازی به ایجاد رکوردست داری؟ با DoCmd.GoToRecord acDataForm, , acNewRec هم میتونی فرم رو در حالت اضافه شدن رکورد قرار بدی
شما در کدهاتون بدون اینکه به فیلدهای جدول مقداری اضافه کنی با rst.AddNew فقط یک رکورد جدید رو اضافه می کنی
من با عجله یک نمونه با استفاده از اطلاعات و نام جدول خودت تهیه کردم
فقط تاکید می کنم کدها رو امتحان نکردم سعی کن خودت تکمیلش کنی