access vba form 相关

 

1 Line.LineSlant = true    /

                         false   /

注：left为从左上到右下时的left,LineSlant设置为true时，线按照对称轴翻转

 

2 form中的控件选择

   ①form名.控件名

   ②控件名

   ③me.控件名

   ④me("控件名")

   ⑤forms("form名")("控件名")

   ⑥sub form引用：forms("frmMap").form("frmCRD")("控件名").width

      frmMap:主form frmCRD:子form

   ⑦Forms![frm1]![frm2]![frm3].Form.txt1.value = "aaa"

 

3 combox相关设定

   属性 ①列数：选择的列数      ep 2

         ②列幅：设定列的宽度   ep 0cm;3cm

         ③连接列：连接的列数   ep 2

   coding部分：

          combox名.RowSourceType = "Table/Query"

          combox名.RowSource = "select s_code,s_name from s_table"

   取得列的值

　　　　　strcd = combox名.Column(0)

         strName = combox名.Column(1)

 

4 ListView控件相关

　　ListView中追加ListItem控件

   ep:  dim listV as ListItem

         Set ListV = Forms("form名")("ListView名").ListItem.Add   追加listItem

         ListView.text = "aaa"

   ListView的取值

   ep: dim listV as ListItem

        Set ListV = Forms("form名")("ListView名").ListItem(List Index)

        If ListV.text = "aaa" then

              ... ...

        End If