Office中国论坛/Access中国论坛

标题: 重發：下拉框的值選不了 [打印本页]

作者: hepingwin 时间: 2008-2-23 11:51
标题: 重發：下拉框的值選不了
請問高手，下拉框的值選不進去各位高手，請幫忙一下，我做了個數據導入的表單，裡面下拉框的值一直都可以選的，不知為什麼，
過了年來後下拉框中的值選不進去，好像被鎖定了一樣，我都沒動任何東西，也重新安裝OFFICE系統都不行
，請大俠幫我出出主意。謝謝
下面是源代碼，這個意思是從EXCEL不同sheet中導入到ACCESS相應表中，下拉框選擇的值為它們相對應的欄位。
Private Sub Frame_dy_AfterUpdate()
Dim str3 As String
Select Case Frame_dy.Value
   Case 1
   str3 = "SELECT tbl_extoacc_dy.id, tbl_extoacc_dy.mc, tbl_extoacc_dy.bh, tbl_extoacc_dy.dy, tbl_extoacc_dy.sbh FROM tbl_extoacc_dy WHERE (((tbl_extoacc_dy.sbh) = 1)) WITH OWNERACCESS OPTION;"
      Me.Child4.Form.RecordSource = str3
         'Set tbf = dbs.TableDefs("tbl_material_inout")
         ' fld = tbf.Fields.Count
         ' Set rec1 = dbs.OpenRecordset("tbl_extoacc_dy")
            'For fld = 0 To tbf.Fields.Count - 1
            ' rec1.AddNew
            ' rec1("bh") = tbf.Fields(fld).Name 獲取字段名
            '  fld = fld + 1
            ' rec1.Update
         '  Next fld
   Case 2
   str3 = "SELECT tbl_extoacc_dy.id, tbl_extoacc_dy.mc, tbl_extoacc_dy.bh, tbl_extoacc_dy.dy, tbl_extoacc_dy.sbh FROM tbl_extoacc_dy WHERE (((tbl_extoacc_dy.sbh) = 2)) WITH OWNERACCESS OPTION;"
      Me.Child4.Form.RecordSource = str3
   Case 3
   str3 = "SELECT tbl_extoacc_dy.id, tbl_extoacc_dy.mc, tbl_extoacc_dy.bh, tbl_extoacc_dy.dy, tbl_extoacc_dy.sbh FROM tbl_extoacc_dy WHERE (((tbl_extoacc_dy.sbh) = 3)) WITH OWNERACCESS OPTION;"
      Me.Child4.Form.RecordSource = str3

   Case 4
   str3 = "SELECT tbl_extoacc_dy.id, tbl_extoacc_dy.mc, tbl_extoacc_dy.bh, tbl_extoacc_dy.dy, tbl_extoacc_dy.sbh FROM tbl_extoacc_dy WHERE (((tbl_extoacc_dy.sbh) = 4)) WITH OWNERACCESS OPTION;"
      Me.Child4.Form.RecordSource = str3

End Select

End Sub

[ 本帖最后由 hepingwin 于 2008-2-22 12:27 编辑 ]
附件

a.JPG (51.41 KB) 2008-2-22 10:55

作者: liwen 时间: 2008-2-23 15:20
要凭空揣测，有难度！

作者: liangzhenye 时间: 2008-2-23 17:19
是不是下拉框的属性 locked=true, 锁定左不能修改

[ 本帖最后由 liangzhenye 于 2008-2-23 17:20 编辑 ]

作者: hepingwin 时间: 2008-2-25 08:19
這些都沒鎖定，都用了半年了，過了個年來就用不了了，重裝了office也不行，唉

我知道什麼回事了，因為數據我是放在服務器上，不知哪個王八蛋設了那個文件夾的權限，所以有些用戶只能變成只讀了，謝謝大家。

[ 本帖最后由 hepingwin 于 2008-2-25 11:36 编辑 ]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)