谷歌加
2011年8月6日,星期六,|今天,我加入谷歌按钮PLUS +1。 这是另一种方式来宣传的职位。 如果你没有被邀请到Google加评论留下您的电子邮件地址发送邀请。
学习工作访问
这是一个非常简单的数据库,为控制日常生活的支出。
主菜单
图片中,可以看到主菜单非常简单和功能。 在顶部,我们可以看到在这一年中,我们的工作。 
年度工作
要改变今年的工作,按一下按钮,选择今年和开放的形式(图2),打字的一年,我们要。 
开支
按钮上的开放的形式输入数据(图3)的开支。 下一步的类别,我们有一个“+”按钮来添加类别和子类别有一个侧面的“+”按钮来添加子类别(点击小类,如果你还没有选择cetegoria错误,并要求选择类别如果您已经选择的类别,它会打开所选类别的形式类别)。
在现场,我们可以从列表中选择一个提供商,如果有,他询问是否要添加。 
分类
这种形式(图4)用于管理(插入/修改/删除/搜索)类别和子类别。 
供应商
此表用于管理(插入/修改/删除/搜索)供应商的名字。 
报告
点击这个按钮打开菜单(图片5)报告,在这里我们可以选择四种类型的报告: 
- 本年度的成本(图6)显示了一个类别,子类别,并每月与我们的工作在今年的总价值的报告。 它也显示了每月的总支出和总由子类。
此报告包含一个子类的图表,显示每个子类别的每月演化。 此图是不是为我自己,有各自的模块作者的资料,包括:
“作者:,菲利普Bonnardel(基于一个想法爱德华·塔夫特)

- 每年的费用(图片7):显示在某一年的开支类别的一种形式。 我们可以选择一年的开支,只要是在这一年来查看图录费用。 当你双击类打开的子类,具有相同的格式的年度报告。 当您双击鼠标打开在子类的详细信息(图8)在这个子类所产生的费用。

细节 
- 每月支出:等于每年的开支,但在这里我们可以选择你想要的年份和月份。
- 由供应商的支出,显示了在某一年的费用,每个供应商,其图的形式。 在这份报告中,我们只能选择你想查看的一年。
年度比较
显示的开支在过去10年来的演变。 显示多年来的价值观和显示图形。 
我等待这个数据库的意见,但我会添加功能,例如打印报告的能力。
下载例如: 开支
此更新的销售变化如下:
把公司的形象,这是不显示在报告。
重铸打印不打印的“产品”的销售和安置方面。
配售和汇总表IVA。
创作的形式每天上市销售,在这里我们可以看到所有的日期和付款方式上市销售。
更改代码插入公司标志的形象。 由于图像链接到“localfoto',这是磁盘上的图像,如果图像是不是在本地的错误和无法打开的形式是”企业数据“的路径。 所以我把例行检查错误发生,若有隐藏的形象和退出不给错误的功能。 基本上返回到初始状态,如果它有没有形象。
改变形式和打印销售报告。
供应商 - 的形式创建的供应商。 每当你进入一个新的采购和供应商不存在,询问您是否要添加。 如果是这样打开窗体“供应商”,输入的数据。
购物 - 如果文章不存在,询问您是否要插入。
下载: 销售系统
谢谢你的测试和评论,提高了系统的。
在住房等动物和系统销售的情况下,在这里我们可以把照片的形式。 使用此代码后,我发现,图像链接到“localfoto',这是在磁盘上的路径,图像,如果图像是不是在本地的错误,无法打开的形式。 所以我把例行检查错误发生,若有隐藏的形象和退出不给错误的功能。 基本上返回到初始状态,如果它有没有形象。
在接下来的文章中,我把销售系统的下一次更新,在这里我们可以看到工作的代码。 然而,我们可以做一个测试,就是把销售体系,在不同的文件夹,看看会发生什么,当我们打开公司数据的形式。
代码更新如下:
“Www.accessexemplos.com
“何塞·马丁斯
'2011-02-28
对错误转到Err_mostraimagem
如果ISNULL(Me.Localfoto)= false,则
Me.FOTO.Picture = Me.Localfoto
FOTO.Visible = TRUE
SEMFOTO.Visible = FALSE
其他
Me.FOTO.Picture =“”
SEMFOTO.Visible = TRUE
FOTO.Visible = FALSE
结束如果
exit_mostraimagem:
退出小组
err_mostraimagem:
选择案例Err.Number的
案例2220'不要看到的图像
FOTO.Visible = FALSE
SEMFOTO.Visible = TRUE
恢复Exit_mostraimagem:
CASE ELSE'其他错误。
MSGBOX Err.Number的&“”&Err.Description
恢复Exit_mostraimagem:
最终选择
为用户输入数据时,总是写在首都的事件只是把下面的代码,当你按'(的OnKeyPress)在字段属性:
KeyAscii = ASC(UCASE符(Chr(KeyAscii)))
,KeyAscii将会收到一个新的ASCII码
CHR =显示ASCII字符代码
函数'ASC':返回一个整数,表示在字符串的第一个字母对应的代码(ASCII)字符。
UCase函数:将字符串转换为大写。
Chr函数:它显示了ASCII码字符
转换为小写只是改变UCASE LCASE:
KeyAscii = ASC(LCASE符(Chr(KeyAscii)))
我注意到,一些读者多次发送相同的消息,因为他们认为,第一次没有成功提交。
如果是第一次发表评论,此消息已被批准,其中还批准适合评论。
这是一个防止垃圾邮件的保护,没有消息显示有与博客无关。
所以发送的第一条消息后,就必须等待,直到它被批准,此后的消息现在会自动出现。
仍然昏了过去252个垃圾邮件...
正如在以前的消息说,我改变位置的文件下载。
从现在住在BOX.NET ,至少不再需要等待下载的服务,没有广告。
你还是要更新的一些环节,下周将完成。 也把博客“下载”连接到该文件夹上BOX.NET菜单链接可供下载的所有文件。
任何问题或找到该文件的改变,谢谢你通知我。
今天我将演示如何创建一个菜单栏,分步实施,以提供一个更专业,更干脆放弃,真正的问题在Access项目的最终用户访问选项。
最后,我们将有一个菜单栏,看起来像下面的图片。

1 - 转到“工具”菜单,选择“自定义”。 出现以下菜单:

2 - 选择“工具栏”选项卡,然后选择“新建”,然后输入你想要的名字给工具栏,我选择“菜单”。 单击“确定”,出现在工具栏上会的工作,现在有没有选项。
3 - 随着选择的工具栏单击“属性”,出现以下菜单:

4 - “工具栏”更改“类型”,然后单击“关闭”。
5 - 点击左边写着“类别”选择“新菜单”,这应该是在最后一个位置上的“命令”列表。 然后单击框右侧“命令”拖“新菜单”我们的菜单栏上的最多,下面的图片就是例证。

拖“新菜单”上的菜单栏,所需的时间,我们需要在这个例子中,我将拖动的三倍,使两个菜单和子菜单的菜单。 使一个子菜单,只需将新的菜单,进入菜单。 注:可以改变菜单后,可以增加或减少,因为你需要。
6 - 我们的工具栏和所需更改名称的“新菜单”上点击鼠标右键。 在这个例子中,我选择了'顾客'为第一和第二的供应商。
7 - 现在让我们把菜单的形式,我们打算打开。 点击“命令”,并选择类别所有形式“,并在右侧将显示所有在当前项目中的现有形式。 点击你想要的形式和拖动工具栏。 在这个例子中,我选择了各种形式的报告和选项EXIT(近距离接触)。 在这个阶段中,我们可以选择我们想要我们的工具栏打开,你只需要选择我们想要的类别(表,窗体,报表,查询,存取操作菜单,默认显示菜单栏等)。
8 - 在选择我们的菜单栏上有,你可以对每一个点击鼠标右键看到的属性,可以改变你想要的一切。 见下面的图片。

“复位” - 旨在把项目原是之前,你改变了的形象,名称等。
“删除” - 删除菜单项
“名称” - 改变菜单项的名称。 在这里,我们还可以设置快捷方式,该项目使用之前,您要使用的信作为一种快捷的符号。 例如,默认情况下,退出选项是已经和XIT菜单中出现的字母“R”强调,告诉我们,当使用ALT键+ R运行“退出”菜单项。 在这个例子中,我选择了打开客户端和客户端快捷键Alt + C。
“复制/粘贴/复位/编辑/更改按钮图像” - 这些命令用于完全相同的形象,我们希望看到每个项目旁边的工作。 我们可以复制和粘贴图像到另一个项目中使用,恢复原始图像,编辑图像,使一个图标编辑器(按像素)或选择菜单上的变化提供一幅图片。
那么我们还可以选择方面的项目,也就是说,如果我们希望仅文本或文本和图像。
“开始一组” - 服务分开,由一个单杠项目,或者创建的项目组。
“链接金” - 指定链接到URL或数据库中的任何对象。
“属性” - 显示该项目的所有属性。
9 - 现在,我们有菜单栏,我们必须准备到位。 做此点击关闭按钮,并拖动到屏幕上方的菜单,直到你粘贴到那里的酒吧是默认的Access。
10 - 要启动栏打开数据库,必须给予指令打开,当您启动Access。 让我们在这个例子的菜单选择“工具”和“开始”和“菜单栏”“我们的菜单上的名称。
11 - 要更改每个菜单项的图像,我们可以用另一种方式是相同的形式和项目的副本插入到图像。 这就是:
- 创建形式的结构形式
- 转到“插入”菜单中,选择图像
- 选择任何图片,并回车。
- 选择图像和鼠标右键选择“复制”
- 转到“工具”菜单,并选择自定义的选项
- 点击鼠标右键,你想改变形象的项目,并选择“粘贴按钮图像。
- 点击接近和密切的访问
- 启动数据库,看到的结局
注意事项:当改变菜单栏,菜单消失在Access数据库中,它完成。 为了使在它的变化是必要的SHIFT键来启动数据库。
我的菜单看起来像这样:

下载: 菜单栏
我们可以防止公开的一份报告,如果没有数据显示,为此,我们根据版本的Access使用两种形式:
1 - 所有版本的Access
下面的代码将在该报告的属性,事件“扶持”
使用事件使能(激活)报告:
私人小组Report_Activate()
如果DCOUNT(“*”,Me.RecordSource)= 0
MSGBOX“没有任何记录显示”vbDefaultButton1,“错误!”
AcReport DoCmd.Close,“报告名称”
结束如果
END SUB
2 - 从版本7(Access 95中),添加的事件,如果没有数据,那么我们可以urilizar下面的代码:
私人小组Report_NoData将作为整数(取消)
MSGBOX“报告中的任何数据。”,VbInformation,“错误!”
取消= TRUE
END SUB
看到运行下载的例子: 防止开题报告