91嫩草国产线免费观看_欧美日韩中文字幕在线观看_精品精品国产高清a毛片_六月婷婷网 - 一级一级特黄女人精品毛片

ACCESS在窗體里,比如輸入窗體的身份證號字段內容,能自動在下面子窗體中顯示與輸入姓名相關的記錄,如何

首頁 > 身份戶籍2022-10-20 14:59:40

ACCESS中比如在窗體中輸入時間 點擊查詢按鈕 在下面子窗體中顯示對應結果,具體要怎么做,求源代碼

ck()
Adodc1.Recordset.MoveFirst
Timer1.Enabled = True
End Sub

Sub xianshi()
Text1.DataField = "學號"
Text2.DataField = "姓名"
Text3.DataField = "性別"
Text4.DataField = "數學"
Text5.DataField = "語文"
Text6.DataField = "英語"
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.AddNew ("學號")
With Adodc1
.Recordset("學號") = Text1
.Recordset("姓名") = Text2
.Recordset("性別") = Text3
.Recordset("數學") = Text4
.Recordset("語文") = Text5
.Recordset("英語") = Text6
.Recordset.Save
End With
End Sub

Private Sub Timer1_Timer()
If Adodc1.Recordset.EOF = False Then
If Text8.Text = Text7.Text Then
Call xianshi
Else
Adodc1.Recordset.MoveNext
Timer2.Enabled = True
End If
End If
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
If Adodc1.Recordset.EOF = False Then
If Text8.Text = Text7.Text Then
Call xianshi
Else
Adodc1.Recordset.MoveNext
Timer1.Enabled = True
End If
End If
Timer2.Enabled = False

End Sub
這段程序 完全可以滿足你的要求 不過你要 建數據庫 嫌麻煩的話 把郵箱給我 我把程序發給你!!

access窗體中如何輸入一個字段后,其他字段自動顯示出來

有一個表,建立了一個查詢,查詢結果是:公司名稱,地址,聯系電話,在一個窗體中,如何選擇了公司名稱后,地址和電話自動顯示啊?
這里以文本框控件為例。假定您的表或者查詢名稱為“聯系表”,窗體中有個文本控件名稱為“公司名稱”,那么在公司名稱的更改事件(Change)或者更新后事件(AfterUpdate)中輸入代碼即可,例如:
Private Sub 公司名稱_AfterUpdate()
'第一個地址表示窗體中名稱為“地址”的文本框控件。
'第二個地址為“聯系表”中“地址”字段。
'第一個公司名稱為“聯系表”中的字段,第二個為窗體中的名為“公司名稱”的控件。
Me.地址=DLookup("地址","聯系表","公司名稱='"&Me.公司名稱&"'")
End Sub
*******************************************************************
需要注意的是,以上必須是一一對應的。即一個“公司名稱”只能有一個“地址”,如果有多個“地址”則應該用組合框來讓用戶自行選擇。——這屬于聯動菜單部分。
你可以設置參數查詢的,就在查詢中設置。記住你窗體中顯示公司名稱控件的名稱,然后在查詢的公司名稱字段下面的條件中引用該空間。

access數據庫中,在窗體上輸入姓名,點擊查詢按鈕,使子窗體中顯示相關信息.麻煩各位大神教教怎么

access數據庫中,在窗體上輸入姓名,點擊查詢按鈕,使子窗體中顯示相關信息.麻煩各位大神教教怎么做啊

把查詢窗體的數據記錄源指定到你的表,然后【查詢按鈕】代碼如下:
Private Sub 查詢按鈕_Click()
On Error GoTo Err_查詢查詢_Click
Dim cxtj As String '定義查詢條件
cxtj = "" '設定初始值為空
If Not IsNull(姓名) Then '判斷【姓名】條件是否有輸入的值
cxtj = cxtj & "([姓名] like '" & 姓名 & "') and "
End If
If Not IsNull(年齡) Then '判斷【年齡】條件是否有輸入的值
cxtj = cxtj & "([年齡] like '" & 年齡 & "') and "
End If
If Not IsNull(單位) Then '判斷【單位】條件是否有輸入的值
cxtj = cxtj & "([單位] like '" & 單位 & "') and "
End If
'如果輸入了條件,那么cxtj的最后肯定有" and ",這是我們不需要的,要用LEFT函數截掉這5個字符
If Len(cxtj) > 0 Then
cxtj = Left(cxtj, Len(cxtj) - 5)
Else
MsgBox "提示:" & vbNewLine & "請先輸入查詢條件!", 4096 + 48, "波濤電腦工作室"
Exit Sub
End If
'先在立即窗口顯示一下查詢條件,然后執行查詢
Debug.Print cxtj
Filter = cxtj
FilterOn = True
Exit_查詢按鈕_Click:
Exit Sub
Err_查詢按鈕_Click:
MsgBox "提示:" & vbNewLine & "你要查詢的記錄不存在。" & vbNewLine & "請核對你輸入的條件是否正確。", 4096 + 48, "波濤電腦工作室"
Resume Exit_查詢按鈕_Click
End Sub
。。

ACCESS在窗體里,比如輸入窗體的姓名字段內容,能自動在下面子窗體中顯示與輸入姓名相關的記錄,如何設計

Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
Timer1.Enabled = True
End Sub

Sub xianshi()
Text1.DataField = "學號"
Text2.DataField = "姓名"
Text3.DataField = "性別"
Text4.DataField = "數學"
Text5.DataField = "語文"
Text6.DataField = "英語"
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.AddNew ("學號")
With Adodc1
.Recordset("學號") = Text1
.Recordset("姓名") = Text2
.Recordset("性別") = Text3
.Recordset("數學") = Text4
.Recordset("語文") = Text5
.Recordset("英語") = Text6
.Recordset.Save
End With
End Sub

Private Sub Timer1_Timer()
If Adodc1.Recordset.EOF = False Then
If Text8.Text = Text7.Text Then
Call xianshi
Else
Adodc1.Recordset.MoveNext
Timer2.Enabled = True
End If
End If
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
If Adodc1.Recordset.EOF = False Then
If Text8.Text = Text7.Text Then
Call xianshi
Else
Adodc1.Recordset.MoveNext
Timer1.Enabled = True
End If
End If
Timer2.Enabled = False

End Sub
這段程序 完全可以滿足你的要求 不過你要 建數據庫 嫌麻煩的話 把郵箱給我 我把程序發給你!!
用數據表table1做數據源,建一窗體(取名窗體1),總建兩組合框A及B,兩組合框的行來源類型選表/查詢。
組合框A的行來源寫sql語句:SELECT distinct [table1].[姓名] FROM [table1],給組合框取名xingm。
組合框B的行來源寫sql語句:SELECT table1.班級 FROM table1 WHERE (((table1.姓名)=[Forms]![窗體1]![xingm]))
此方法是我程序中用過的,我只用兩字段(姓名,班級)舉例而已,往后字段可以類推。
組合框中有很多技巧,只能自己去摸索。

相關推薦:

受理不予立案(公安報案受理后不立案怎么辦)

打架立案申請(要求公安機關立案申請書怎么寫)

起訴如何立案(如何起訴立案)

立案程序獨立(已立案后面的流程)

離婚戶籍回迀(離婚后戶口遷回娘家需要什么手續)