在Access表中某個欄位輸入值,這個值在另表中

時間 2021-08-11 18:03:14

1樓:匿名使用者

簡化的程式設計方案如下

假設a表結構為:a(id 自增id,model 文字 必填欄位=是)

為窗體(窗體1)新增一個非繫結文字框(text1),一個命令按鈕(command1)

為命令按鈕新增下列單擊事件過程

private sub command1_click()

dim strsql as string

if isnull(me.text1) then

msgbox "你text1未輸入資料"

me.text1.setfocus

exit sub

end if

'檢測文字框(text1)中的值是否已經存在於b表的“model”欄位裡

if isnull(dlookup("[model]", "b", "[model]=forms!窗體1!text1")) then

'b表“model”欄位不存在該值時彈出提示框

msgbox "b表“model”欄位沒有你新輸入的值"

end if

'設定追加查詢sql語句,將非繫結文字框(text1)中的值寫入查詢語句裡

strsql="insert into a(model) values('" & forms!窗體1!text1 & "')"

docmd.runsql strsql '執行sql查詢,將非繫結文字框(text1)中的值插入a表之中

end sub

2) 窗體繫結資料表方案

此方案比較適合初學者,程式設計時需要考慮的問題相對少得多,但是程式比較死板。

程式設計方案如下(新增記錄後跳到其它記錄時,**會檢測剛才新增的那個值是否存在於b表,如果沒有予以提示)

將窗體(窗體2)的資料來源設定為a表(假設表結構與第一個方案相同)文字框(id)與欄位id繫結,文字框(model)與欄位model繫結。

為窗體新增下列插入後事件過程即可

private sub form_afterinsert()

if isnull(dlookup("[model]", "b", "[model]=forms!窗體2!model")) then

'b表“model”欄位不存在該值時彈出提示框

msgbox "b表“model”欄位沒有你新輸入的值"

end if

end sub

我身邊沒有access 2007環境, 就不發成品到你郵箱了。你只要按照我的回答去做就好了,並不是太複雜。

你也可已在文字框控制元件的更新後事件過程裡進行檢測,這種方法每次輸入或修改文字框(model)時都會進行檢測,比較耗費系統資源

private sub model_afterupdate()

'檢測文字框(model)中的值是否已經存在於b表的“model”欄位裡

if isnull(dlookup("[model]", "b1", "[model]=forms!窗體1!model")) then

'b表“model”欄位不存在該值時彈出提示框

msgbox "b表“model”欄位沒有你新輸入的值"

end if

end sub

如果有不明白的地方可以追問或hi我。

2樓:矮漢恨天高

檢索一下b表不就好了,假如你上面那個按鈕作為錄入資料的按鈕啊:

private sub 儲存並新建_click()me.recordsource="select * from b表 where model='"+model.text+"'"

me.refresh

if me.recordset.eof thenmsgbox "插入資料b表中沒有記錄!",vbokonly,"輸入異常"

else

me.recordsource="insert into 表a(model) values('"+model.text+"')"

'插入記錄

me.refresh '重新啟用me.recordset.

update '更新記錄集me.recordset.movenext '記錄移動到新行model.

text="" '初始化內容model.setfucos '初始化焦點end if

end sub

mysql怎麼把表中一個欄位資料複製到另外一個表的某個欄位下

3樓:匿名使用者

update b set tel =(select mobile from a where a.id=b.aid)

注:aid是a,b兩個表的關聯欄位

4樓:遊刃香菸

如果想實現這個,首先你要找到兩張表共有的欄位,利用聯合查詢然後再進行update操作就可以了,直接複製的話估計只有把資料匯入到excel中操作了~

5樓:匿名使用者

insert into b(tel) select mobile from a

access中,表中某個欄位的預設值如何等於另一個表中的某個欄位 10

6樓:匿名使用者

用vba賦值就可以了。

用me.子窗體名.日期=父窗體.日期就可以了。

access,如何做到在表其中的一個欄位中輸入資料,其他的欄位欄位根據條件自動生成

7樓:解0人

如果是直接在抄表中輸襲入資料,沒有辦法自動bai生成對應的其它du欄位資料,

或者可以

zhi等你dao輸完以後再通過更新查詢來自動更新對應的其它欄位資料,這也需要兩步才能完成,並沒有即時自動生成的效果。

要實現你的目的,需要建立表對應的資料輸入窗體,在窗體中實現上面的功能。

Sql查詢表中除了某個欄位以外的所有欄位的方法

select name from syscolumns where id select max id from sysobjects where xtype u and name 表名 然後去查不等於column1的值不就ok了 方法就這樣了,具體你自己寫去吧 有是有,不過要通過系統表來差,而且語句...

怎麼對mysql資料表中的某個欄位的所有資料修改

小丁創業 對mysql資料表中的某個欄位的所有資料修改,可以使用update語句,語法是 update table name set column value colunm value.where condition 中的部分表示可以有也可以沒有。例如 update students set stu...

sql中如何刪除某個欄位內容的字元

執行sql語句 update 表名 set 欄位名 stuff 欄位名,substring 欄位名,0,1 stuff函式 1 作用 stuff函式用於刪除指定長度的字元,並在指定的起點處插入另一組字元。2 語法 stuff character expression start length cha...