تغییر داده های یک جدول بدون ارتباط با فرم [بایگانی]

sarna

یک شنبه 15 مهر 1386, 08:32 صبح

من در روی فرم 3 تا تکست با کس دارم که دوتای آنها به منبع فرمم متصل است حال با یک کمبو باکس که از جدول دیگر اطلاعات را می آورد مقداری را انتخاب می کنم می خواهم درصورت برقراری شرطی مثلا مقدار کمبو باکس با مقدار یک فیلد از جدول منبع فرمم مقدار آن را در تکست باکس خاصی از فرمم نشان دهد .
البته می خواهم تکست باکس سوم من که به منبع فرم متصل است درصورت وجود داده درآن با اعمال شرط کمبو باکس آپدیت شود ودرصورت نبودن رکورد جدید ثبت شود

najafzade

دوشنبه 30 مهر 1386, 16:04 عصر

من در روی فرم 3 تا تکست با کس دارم که دوتای آنها به منبع فرمم متصل است حال با یک کمبو باکس که از جدول دیگر اطلاعات را می آورد مقداری را انتخاب می کنم می خواهم درصورت برقراری شرطی مثلا مقدار کمبو باکس با مقدار یک فیلد از جدول منبع فرمم مقدار آن را در تکست باکس خاصی از فرمم نشان دهد .
البته می خواهم تکست باکس سوم من که به منبع فرم متصل است درصورت وجود داده درآن با اعمال شرط کمبو باکس آپدیت شود ودرصورت نبودن رکورد جدید ثبت شود

با SQL میتونید این کار رو بکنید.
فایلتون رو بزارین اینجا تا براتون انجام بدم.:بوس:

daskar

پنج شنبه 03 آبان 1386, 19:43 عصر

با سلام
دوست عزیز میتونی از کد زیر استفاده کنی

Dim db1 As DAO.Database
Dim rs1 As DAO.Recordset
Set db1 = CurrentDb()
set rs1 = db1.OpenRecordset("tblconfig")
labelInformationTitle.Caption = rs1!company
labelApplicationName.Caption = rs1!namsamaneh
labelApplicationNameFx.Caption = rs1!namsamaneh