模塊|訪問的例子

帖子標記'模塊'

如何防止開放的形式，如果沒有記錄顯示？

2009年5月2日，星期六，|

有時是必要的，以防止開放的形式，如果有記錄顯示，例如，做一個查詢時，並沒有登記並不需要，我們並不需要以開放的形式，因為我們沒有數據顯示。所以我們要檢查是否有記錄顯示，如果沒有顯示一條消息，阻礙開放的形式。怎麼樣？

這很容易在事件的形式屬性只是把下面的代碼“，打開”：

= 0 Then如果Form.RecordsetClone.RecordCount
MSGBOX“沒有找到記錄。”，VbExclamation，“錯誤！”
DoCmd.Close acForm，“找到數據”
退出小組
結束如果

看一個例子下載：防止開放

張貼範例，表格，模塊 | 2評論»

如何分配鍵的動作？

週四，12月11日，2008 |

1 - 建立在結構和事件的順序表'點擊'屬性的形式輸入以下內容：me.keypreview = TRUE
這是怎麼回事，使鍵盤事件中收到的第一種形式。

2 - 在窗體的屬性，下面的事件“按鈕，”把下面的代碼：

私人小組Form_KeyDown（邀請碼將作為整數，作為整數移位）
選擇案例邀請碼
案例vbKeyF2
DoCmd.OpenForm“Form1的”
案例vbKeyF3
DoCmd.OpenForm“Form2的”
案例vbKeyF4
DoCmd.OpenForm“formulario3”
案例vbKeyF5
作為雙DIM計算器
計算器=殼牌（“CALC.EXE”，vbNormalFocus）
案例vbKeyF6
DoCmd.Close
CASE ELSE
最終選擇
END SUB

這樣做是什麼以下幾點：
- 按F2鍵打開Form1的
- 按F3鍵打開Form2的
- 按F4鍵打開formulário3
- 按F5鍵打開Windows計算器
- 關閉的形式，按F6鍵

除了功能鍵F1，F2代...等，我們可以同時使用其他任何按鈕履行職能，但牢記，輸入表單中的數據不宜使用，被用來編寫領域中的數據的密鑰，。
另一件事是，它只有在你把上面的代碼的形式，其中工程。

下載：鑰匙
例如快捷鍵

張貼範例，表格，模塊 | 1條評論»

自定義菜單

2008年9月20日，星期六，|

這是一個菜單，讓我們節省時間，行代碼和一個更好的安排，在公開形式方面，因為這個菜單只需要一個開放的形式，。此外，以減少開放形式的數量也減少了在菜單中打開每個表單的按鈕。
這種類型的菜單，肯定已經存在了一段時間，已經被許多用戶訪問使用。
那麼，這是菜單？
讓我們創建一個組合框，包含了所有的形式，我們計劃通過它打開菜單使用。從組合框中選擇一個選項當你的申請表將顯示在窗體。然後，我們開始菜單一步一步。

1 - 讓我們創建一個表，我們將其中存儲的名稱，你想給每個形式和名稱的形式，將打開。在這個例子中，我創建表以下領域tblmenu：
字段類型
nomedomenu文本 - >名稱將在菜單上看到的（組合框）
形成文字 - >名稱的形式，將打開

後的例子介紹了數據：

NomedoMenu表

帳戶Form1中
存款Form2的
運動formulario3
帳戶盒formulario4
帳戶的帳戶formulario5
提取formulario6

2 - 然後，我們創建了一個從上表的查詢：
tblmenu選擇表，然後選擇這兩個領域中，我們選擇了升序排序nomedomenu更容易找到菜單相當幾次，當我們要打開的形式。此查詢，我叫'CsMenu“。

3 - 讓我們創建“菜單”的形式，即在設計視圖中選擇新的形式。然後我們創建一個組合框，並更改以下屬性：
- 列數：2
- 列寬1厘米，0厘米;
- 原產地行：csmenu（這是在前段創建查詢的名稱）

4 - 在相同的形式，我們將創建一個未綁定的主窗體的窗體（在這個例子中，我叫menuquadro）。正是這種形式，將打開形式，每年選擇菜單（組合框）。

5 - 現在創建一個模塊，它將使我們能夠打開選定的菜單，在子窗體中的組合框。
我們創建一個模塊（我稱之為“abrirmenu）和粘貼下面的代碼：

公共的功能AtivarMenu（Combmenu ComboBox中，subabrir子窗體）
作為字符串暗淡Abrirform
= abrirform Combmenu.Column（1）
subabrir.SourceObject = abrirform
subabrir.LinkChildFields =“”
subabrir.LinkMasterFields =“”
函數結束

要形式菜單上的組合框的屬性和更新事件後創建的功能：ativarmenu =（[菜單]，[menuquadro]）'菜單'是組合框的名稱和“menuquadro”後子窗體的名稱。

和最後的菜單已準備就緒。剛剛嘗試和使用。我希望你喜歡這個技巧。
下載：菜單

下面的菜單上的圖片。

自定義菜單

張貼範例，表格，模塊 | 12個評論»

管理效益的範例

2008年5月6日，星期二，|

這個例子顯示了如何提供國際收支的管理制度。

這個例子表明，這樣做是創建和自動點擊一個按鈕，簽訂的銷售合同通過數據的好處。也就是說，我們介紹客戶的名稱，合同開始日期和總金額。然後，只需點擊“計算支付”，它會自動生成期數劃分表示，他們每個人的價值，並計算每期（每月）日期。這也是一個例子，演示了如何一次添加多個記錄，因為當你按一下按鈕時，它增加了一個記錄每個利益。

下載：插入多條記錄

發表日期，樣品，形式，模塊，記錄 | 17評論»

動物收容所芯片

2008年3月29日（星期六）|

這是一個索尼婭讀者打算為動物的數據庫記錄數據的應用領域的例子。這是一個簡單的數據庫只是一個動物的照片輸入數據的形式。

下載：動物收容所

任何變化只是在這裡評論。

書面形式，照片，模塊，記錄，表 | 11評論»

通過獨立的輸入記錄字段

2008年2月20日，星期三|

有幾種方式進入記錄，最常見的是綁定到一個表的形式獲得通過。這樣做的另一種方式是通過不相關的領域，即採用與獨立無關的表字段的表單。至
輸入的數據，我們使用“記錄集”，即由一個代碼，在這個例子中是如下：

暗淡DB作為數據庫
昏暗的RS作為Recordset

如果MSGBOX（“你願意寫嗎？”VbYesNoCancel，“選項”）= vbYes
“按下問是否保存記錄，如果是這樣的代碼，直到年底繼續
集DB = CurrentDb（）
設定RS = db.OpenRecordset（“資料”，dbOpenTable）
“打開表插入數據寄存器

rs.AddNew
RS（“名稱”）=！INome
RS（“地址”）=我！Imorada
RS（“年齡”）=我！Iidade
rs.Update'將數據發送到表
rs.Close'清除數據和關閉記錄集
設置RS =沒有
設置DB =沒有

Me.INome = NULL'清除表單中的字段
Me.Imorada = NULL
Me.Iidade = NULL
MSGBOX“記錄保存”，vbInformation，“做”，“顯示確認消息
Me.INome.SetFocus“將光標移動到第一場
其他：退出小組
結束如果