سوال: اضافه شدن یک نام جدید به کمبو [بایگانی]

View Full Version : سوال: اضافه شدن یک نام جدید به کمبو

mah3150

شنبه 07 آبان 1390, 18:59 عصر

سلام
یک جدول و یک فرم کمبو باکس داریم
حلا میخوام اگر در فرم اسم یک نفر جدید رو تایپ کنم اتوماتیک به اسامی دیگر اضافه شود
با تشکر

mehdi_fiz

شنبه 07 آبان 1390, 19:36 عصر

سلام دوست عزیز
نمونه فایلتون رو اپ کنید تا روی نمونه اصلاح شود
موفق باشید

mah3150

شنبه 07 آبان 1390, 19:50 عصر

jتقدیم به شما

Abbas Amiri

شنبه 07 آبان 1390, 20:43 عصر

کد زیر را اضافه کنید

Private Sub Combo0_NotInList(NewData As String, Response As Integer)
If MsgBox("نام جديد ذخيره شود", vbQuestion + vbYesNo) = vbNo Then
Combo0 = Null
Response = acDataErrContinue
Exit Sub
End If
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Table1 VALUES('" & NewData & "')"
DoCmd.SetWarnings True
Response = acDataErrAdded
End Sub

mah3150

یک شنبه 08 آبان 1390, 08:14 صبح

سلام در EVENT مورد نظر قرار دادم اما نتیجه نشد وقتی میخوام اسم جدیدی مثل کمال وارد کنم میشه اما به جدول اسم کمال اضافه نمیشه

hosein2976

یک شنبه 08 آبان 1390, 12:24 عصر

اين كدي كه در اين قسمت درج شده است اول بايد بانك چك كند در غير اينصورت تكراري هم ثبت مي كند

من اين كد را امتحان كردم متاسفانه خالي در بانك ذخيره مي شود .

mehdi_fiz

یک شنبه 08 آبان 1390, 17:36 عصر

سلام دوست عزیز
نمونه فایل شما اصلاح شد
موفق باشید