HD老熟女BBn老淑女,国产黄色片在线观看,国产乱理伦片免费

當(dāng)前位置：主頁(yè) > 源碼 > Access源碼示例 > 界面/窗體/控件 > 正文

Access保存數(shù)據(jù)提示必填字段

時(shí)間：2013-10-28 16:55 來(lái)源：Office中國(guó) 作者：wsl 閱讀：次

軟件類型：國(guó)產(chǎn)軟件授權(quán)方式：免費(fèi)軟件界面語(yǔ)言：簡(jiǎn)體中文軟件大小：17kB 文件類型：.rar 運(yùn)行環(huán)境：Win2003,WinXP,Win7,win8 軟件等級(jí)：★★★★☆ 發(fā)布時(shí)間：2013-10-28 插件情況：無(wú)插件，請(qǐng)放心使用。

下載次數(shù)：

軟件介紹：

在我們用窗體錄入數(shù)據(jù)的時(shí)候，經(jīng)常會(huì)設(shè)置窗體中有些數(shù)據(jù)不能為空，如學(xué)生資料（姓名），有些數(shù)據(jù)可以為空的情況。
當(dāng)保存的時(shí)候，需要判斷不能為空的控件是否為空值，當(dāng)控件為空時(shí)控件獲得焦點(diǎn)并提示用戶輸入數(shù)據(jù)。
這樣的功能并不難，但是當(dāng)一個(gè)系統(tǒng)中數(shù)據(jù)錄入窗體比較多的話，就必須逐個(gè)去判斷，工作量就大了

下面的示例通過一個(gè)自定義的函數(shù)，簡(jiǎn)單點(diǎn)實(shí)現(xiàn)了保存數(shù)據(jù)時(shí)提示為必填字段

Function funIsNull(ByVal frmFm As Form, ByVal strControls As String) As Integer

Dim i As Byte

Dim A As Byte

Dim ctl As Control

A = UBound(Split(strControls, ","))

For i = 0 To A

For Each ctl In frmFm.Controls

If IsNull(ctl) And ctl.ControlName = Split(strControls, ",")(i) Then

MsgBox ctl.ControlName & "為空，請(qǐng)輸入" & ctl.ControlName & "！", vbExclamation, "提示"

ctl.SetFocus

funIsNull = True

Exit Function

End If

Next ctl

Next i

End Function

頂一下

(2)

100%

踩一下

(0)

下載地址：

本地下載

Office中國(guó)(office-cn.com)，專業(yè)Office論壇！

注意事項(xiàng)：

☉推薦使用第三方專業(yè)下載工具下載本站軟件，使用 WinRAR v3.10 以上版本解壓本站軟件。
☉如果這個(gè)軟件總是不能下載的請(qǐng)點(diǎn)擊報(bào)告錯(cuò)誤,謝謝合作!!
☉下載本站資源，如果服務(wù)器暫不能下載請(qǐng)過一段時(shí)間重試！
☉如果遇到什么問題，請(qǐng)到本站論壇去咨尋，我們將在那里提供更多、更好的資源！
☉本站提供的一些商業(yè)軟件是供學(xué)習(xí)研究之用，如用于商業(yè)用途，請(qǐng)購(gòu)買正版。

上一篇：Access常用控件實(shí)現(xiàn)切換界面
下一篇：Access兩個(gè)子窗體的數(shù)據(jù)關(guān)聯(lián)(子窗體數(shù)據(jù)間的自動(dòng)更新)

相關(guān)軟件

隨機(jī)軟件