2016-03-04 59 views
0

这里是另外一个问题:访问2010 MS SQL Server 2008 R2中,VAB代码

Private Sub cboKundennummer_AfterUpdate() 

' Kundenname aus Abfrage Kundennummer 
Me.kunde_name = Me![cboKundennummer].Column(1) 
Me.lieferant_name = Me![cboKundennummer].Column(3) 
Me.lieferant_nummer = Me![cboKundennummer].Column(2) 
Me.Form.Requery 

End Sub 

你看,我想打电话查询在Access 2010表格填写三个文本框。当我打电话查询所有列都在那里。但是当我在编辑器中设置断点时,只有Me.kunde_name =“A Name”。两个其他我...... =“空”

为什么?

- > Support.microsoft:

Private Sub cboNames_AfterUpdate() 
    Me.txtFirstName = Me![cboNames].column(1) 
    Me.txtLastName = Me![cboNames].column(2) 
    Me.txtTitle = Me![cboNames].column(3) 
End Sub 

这里是我的SQL代码:

SELECT A.kunde_nummer, A.kunde_name, A.lieferant_nummer, A.lieferant_name 
FROM dbo_View_Teilestamm_Lieferschein AS A 
INNER JOIN dbo_tblRetoureStamm AS B 
ON A.lieferschein_nummer = B.lieferschein_nummer; 

当我改变了我的第一与第二,第一个工作,但第二个没有。 ..

请帮忙:-)

格尔茨

回答

0

所以大家好:-)

现在我知道它!!!!是!!!您必须创建 Combobox 手动组合框向导 !!!而且“将这个价值储存在这个领域:”!!!我把我的TextBox改成了Combobox!那是错!然后代码锁:

Private Sub cboLieferscheinnummer_Change() 
    Me.txtkunde_nummer.Value = Me![cboLieferscheinnummer].Column(1) 
    Me.txtkunde_name.Value = Me![cboLieferscheinnummer].Column(2) 
    Me.txtlieferant_name.Value = Me![cboLieferscheinnummer].Column(3) 
    Me.txtlieferant_nummer.Value = Me![cboLieferscheinnummer].Column(4) 
End Sub 

所以代码填充所有四个文本字段! 谢谢。

Greetz。