ACCESS組合框新用法

fd901028

公司ERP項(xiàng)目使用的是某友軟件公司的XXX，錄入數(shù)據(jù)時(shí)有個(gè)參照功能（可以錄入編碼，也可以錄入物料名稱……）�？戳撕蒙�嫉妒，能不能將ACCESS的組合框動(dòng)動(dòng)手腳，模擬一下人家的效果？仔細(xì)查看Combobox的屬性，見有個(gè)ColumnWidths屬性，靈感來了…… 干脆多顯示幾列（包括物料編碼，物料名稱，自定義的“快速輸入代碼”列），LostFocus時(shí)再將其他不必要的列隱藏。      具體demo參見附件。
  由于我的機(jī)器上沒有安裝ACCESS2003，demo數(shù)據(jù)庫使用ACCESS2007做的，然后存了一個(gè)Access2003gesi ，不知在2003能不能用.   
小弟初學(xué)ACCESS，希望各位多多指教。

游客，如果您要查看本帖隱藏內(nèi)容請(qǐng)回復(fù)

lxh1968

謝謝分享[:26]

王村煎魚

這個(gè)貌似可以用組合框按鈕向?qū)Ц愣ā?/td>

fd901028

發(fā)帖時(shí)可能沒有表達(dá)清楚。
最終組合框的效果為：存儲(chǔ)A列，顯示B列，輸入C列。

chenlugen

謝謝分享,,,,先看看,,,[:50]

tmtony

謝謝分享,大家所見略同,我也是使用這種方法, 不過寫成了通用函數(shù),方便設(shè)置不同列數(shù) 不同欄寬的組合框.
'===============================================================================
'-函數(shù)名稱:         gt_SetComboColumnWidth
'-功能描述:         設(shè)置組合框欄位寬度,進(jìn)入時(shí)可按編碼錄入,離開時(shí)可顯示名稱
'-輸入?yún)��?shù)說明:     參數(shù)1:rctr Control 控件對(duì)象
'                   參數(shù)2:rstrColumnWidths String 欄位寬度
'-返回參數(shù)說明:     無
'-使用語法示例:     gt_SetComboColumnWidth cboCust,"3;2;4"
'-參考:
'-使用注意:         只適用Label TextBox CommandButton ComboBox OptionButton CheckBox
'-兼容性:           97,2000,XP,2003 compatible
'-作者:             王宇虹，改進(jìn)：王宇虹
'-更新日期：        2004-08-24
'===============================================================================
Public Function gt_SetComboColumnWidth(rctr As Control, rstrColumnWidths As String)
    On Error Resume Next
    If TypeOf rctr Is ComboBox Then
        rctr.ColumnWidths = rstrColumnWidths
        ' rctr.RowSource = rctr.RowSource
        ' rctr.Requery
    End If
End Function


'===============================================================================-----天鳴科技--->>>>>>>>
'-函數(shù)名稱:         gt_SetCboEnterEvent
'-功能描述:         設(shè)置組合框的進(jìn)入事件
'-輸入?yún)��?shù):         參數(shù)1:rctrComboBox String 組合框控件
'                   可選參數(shù)2:rintType Integer 方式
'                   可選參數(shù)3:rstrTemp String 其它參數(shù)
'-返回參數(shù):         無
'-使用示例:         gt_SetCboEnterEvent cboCust,0
'-相關(guān)調(diào)用:         無
'-使用注意:         可設(shè)置是否自動(dòng)彈出組合框，還是沒有內(nèi)容才彈出組合框
'-兼 容 性:         97,2000,XP,2003 compatible
'-參考資料:
'-作    者:         王宇虹  修改：王宇虹
'-創(chuàng)建日期;         2002-08-26  更新日期: 2002-08-28 ,2002-11-15
'-圖    解:
'===============================================================================--<>>>>>

Public Function gt_SetCboEnterEvent(Optional rctrComboBox As Control, Optional rintType As Integer = 0, Optional rstrTemp As String)
    Dim blnCancel As Boolean
    Dim frm As Form
    On Error Resume Next

    If TypeOf rctrComboBox.Parent Is Form Then
        Set frm = rctrComboBox.Parent
    Else
        If TypeOf rctrComboBox.Parent.Parent Is Form Then
            Set frm = rctrComboBox.Parent.Parent
        Else
            If TypeOf rctrComboBox.Parent.Parent.Parent Is Form Then
                Set frm = rctrComboBox.Parent.Parent.Parent
            Else
                Exit Function
            End If

        End If
    End If
    If frm Is Nothing Then Exit Function
    If frm.CurrentView = 1 Then
        If Nz(gt_GetParaItem("PopupWindow", rctrComboBox.Tag)) <> "" Or Nz(gt_GetParaItem("DropWindow", rctrComboBox.Tag)) <> "" Then


            frm.cmdOpenSelWindow.Tag = frm.ActiveControl.name
            frm.cmdOpenSelWindow.Left = frm.ActiveControl.Left + frm.ActiveControl.Width + 10
            frm.cmdOpenSelWindow.Top = frm.ActiveControl.Top

            If frm.AllowEdits = False Or frm.Controls(frm.cmdOpenSelWindow.Tag).Enabled = False Or frm.Controls(frm.cmdOpenSelWindow.Tag).Locked = True Then   '
                If frm.cmdOpenSelWindow.Object.Enabled = True Then
                    frm.cmdOpenSelWindow.Object.Enabled = False

                End If
                If frm.cmdOpenSelWindow.Visible = True Then
                    frm.cmdOpenSelWindow.Visible = False
                End If
            Else
                If frm.cmdOpenSelWindow.Object.Enabled = False Then
                    frm.cmdOpenSelWindow.Object.Enabled = True

                End If
                If frm.cmdOpenSelWindow.Visible = False Then
                    frm.cmdOpenSelWindow.Visible = True
                End If
            End If

        End If

    End If
    If Nz(rctrComboBox.ControlSource) <> "" Then
        If frm.AllowEdits = False Or rctrComboBox.Enabled = False Or rctrComboBox.Locked = True Then
            blnCancel = True
        End If
    Else
        If rctrComboBox.Enabled = False Or rctrComboBox.Locked = True Then
            blnCancel = True
        End If
    End If
    If blnCancel Then Exit Function
    If Nz(gt_GetParaItem("ComboStyle", rctrComboBox.Tag)) = "Autocbo" Then    'InStr(rctrComboBox.Tag, "autocbo") > 0
        gt_SetComboColumnWidth rctrComboBox, rstrTemp
    End If

    Select Case rintType
    Case 2
        gt_ComboAutoExpand rctrComboBox, True
    Case 1
        gt_ComboAutoExpand rctrComboBox, False
    Case 0

    End Select

End Function


'===============================================================================-----天鳴科技--->>>>>>>>
'-函數(shù)名稱:         gt_SetCboExitEvent
'-功能描述:         設(shè)置組合框的離開事件
'-輸入?yún)��?shù):         參數(shù)1:rctrComboBox String 組合框控件
'                   可選參數(shù)2:rintType Integer 方式
'                   可選參數(shù)3:rstrTemp String 其它參數(shù)
'-返回參數(shù):         無
'-使用示例:         gt_SetCboExitEvent cboCust,0
'-相關(guān)調(diào)用:         無
'-使用注意:
'-兼 容 性:         97,2000,XP,2003 compatible
'-參考資料:
'-作    者:         王宇虹  修改：王宇虹
'-創(chuàng)建日期;         2002-08-26  更新日期: 2002-08-28 ,2002-11-15
'-圖    解:
'===============================================================================--<>>>>>
Public Function gt_SetCboExitEvent(Optional rctrComboBox As Control, Optional rintType As Integer = 0, Optional rstrTemp As String)
    Dim blnCancel As Boolean
    Dim frm As Form
    On Error Resume Next

    If TypeOf rctrComboBox.Parent Is Form Then
        Set frm = rctrComboBox.Parent
    Else
        If TypeOf rctrComboBox.Parent.Parent Is Form Then
            Set frm = rctrComboBox.Parent.Parent
        Else
            If TypeOf rctrComboBox.Parent.Parent.Parent Is Form Then
                Set frm = rctrComboBox.Parent.Parent.Parent
            Else
                Exit Function
            End If
        End If
    End If
    If frm Is Nothing Then Exit Function
    If Nz(rctrComboBox.ControlSource) <> "" Then
        If frm.AllowEdits = False Or rctrComboBox.Enabled = False Or rctrComboBox.Locked = True Then
            blnCancel = True
        End If
    Else
        If rctrComboBox.Enabled = False Or rctrComboBox.Locked = True Then
            blnCancel = True
        End If
    End If
    If blnCancel Then Exit Function
    If Nz(gt_GetParaItem("ComboStyle", rctrComboBox.Tag)) = "Autocbo" Then    'InStr(rctrComboBox.Tag, "autocbo") > 0
        gt_SetComboColumnWidth rctrComboBox, rstrTemp
    End If
End Function

gaofei186

看看一下

fd901028

哇，站長這個(gè)實(shí)在是方便，全面。學(xué)習(xí)了。謝謝，順便說一下。俺去年買了各位領(lǐng)導(dǎo)的《Access開發(fā)答疑200問》，學(xué)到不少東西。現(xiàn)在已經(jīng)開發(fā)了幾個(gè)小型數(shù)據(jù)庫。效果還不錯(cuò)。謝謝！ 確實(shí)是好書！

ui

謝謝 fd901028 好實(shí)例!

tanhong

好東西怎么發(fā)到灌水區(qū)了.