Office中国论坛/Access中国论坛

标题: 初学者都来看看，一个应用是怎么做出来的 [打印本页]

作者: NTCCN 时间: 2008-11-9 19:38
标题: 初学者都来看看，一个应用是怎么做出来的
小弟想设计一个专门用来管理进项发票的ｍｄｂ，但是才疏学浅不能做到，有没有大侠可以帮忙？没有报酬如需要可以赠送１０ＱＢ。、问题如下：
希望在收票情况窗体中的供货商列表框中输入词组，程序能自动展开列表框并匹配刚才输入的词组一共选择。
在选择了供货商后，希望程序能把供货单位资料表中该供货商的识别号自动填列在收票情况窗体里的识别号。
令希望双击税率栏该条记录不可再修改除非再次双击税率栏。
谢谢！

[ 本帖最后由 NTCCN 于 2008-11-25 20:19 编辑 ]

作者: Henry D. Sy 时间: 2008-11-9 23:33
Private Sub 供货商_AfterUpdate()
Me.供货商.Requery
Me.识别号 = Me.供货商.Column(0)
End Sub

Private Sub 供货商_Change()
Me.供货商.RowSource = _
"SELECT 供货单位资料.识别号, 供货单位资料.单位名称 FROM 供货单位资料 where 供货单位资料.单位名称 like '*" & _
Me.供货商.Text & "*'"
Me.供货商.Dropdown
End Sub

Private Sub 税率_DblClick(Cancel As Integer)
Me.税率.Locked = Not Me.税率.Locked
End Sub

作者: NTCCN 时间: 2008-11-18 16:26
标题: 谢谢ｄｄｄｄｄｄ，真是高手啊
这个困扰我的难题在高手面前居然如此简单，佩服佩服，谢谢谢谢

作者: Henry D. Sy 时间: 2008-11-18 22:10

原帖由 NTCCN 于 2008-11-18 16:26 发表
这个困扰我的难题在高手面前居然如此简单，佩服佩服，谢谢谢谢

我的10个Q币那？[:36][:36]

作者: NTCCN 时间: 2008-11-19 22:18
你ｑｑ号是多少？我充２０个给你，不过还要问你一个问题，为表诚意，我充给你以后再问你。

作者: Henry D. Sy 时间: 2008-11-19 22:20

原帖由 NTCCN 于 2008-11-19 22:18 发表
你ｑｑ号是多少？我充２０个给你，不过还要问你一个问题，为表诚意，我充给你以后再问你。

鄙人天生爱开玩笑，别当真。[:24]

作者: wuminhui 时间: 2008-11-19 22:46
真是高手阿！

作者: changweiren 时间: 2008-11-19 23:21
dddddd视Q币如无物，佩服佩服！

作者: NTCCN 时间: 2008-11-20 21:22
标题: ｄｄｄｄｄｄ，你好，不要Ｑ币给可以再问你几个问题？
就是在窗体上加两个按钮，一个为审核，作用为点击后该条记录（此记录是指数据表里的一条完整记录）不能再修改，而新增记录后却能修改；反审核按钮作用相反。
如何使当发票名称为运费发票时，税率为７％，税额＝发票金额×７％，价税合计＝金额。
如何使单价或运价的标签当发票名称为运费时为运价，其它发票名称为单价？
如何使供应商或识别号及地址栏获得焦点时在备注栏里显示相应内容（因为供应商栏里有时显示不全供应商名称，为了方便查看供应商里的内容）？
如何查询期间为一个自然月的发票所含税额？
问题有点多，要是dddddd能帮忙就好了，再次谢谢ｄｄｄｄｄｄ的帮助。除了Ｑ币，我有百来万ＭＰ，给ｄｄｄｄｄｄ你做酬劳行吗？

作者: Henry D. Sy 时间: 2008-11-20 21:33
MP是什么东东，

作者: Henry D. Sy 时间: 2008-11-20 21:55
问题只好一个一个来，大家帮我一起来

问题1

Private Sub Confrim_Click()
If Not NewRecord Then
Me.AllowEdits = False
Me.Recalc
Me.UnConfrim.Enabled = True
Me.UnConfrim.SetFocus
Me.Confrim.Enabled = False
Else
DoCmd.RunCommand acCmdSaveRecord
Me.UnConfrim.Enabled = True
Me.UnConfrim.SetFocus
Me.Confrim.Enabled = False
End If
End Sub
Private Sub Form_Current()
If Not NewRecord Then
Me.AllowEdits = False
Me.Confrim.Enabled = False
Me.UnConfrim.Enabled = True
Else
Me.Confrim.Enabled = True
Me.UnConfrim.Enabled = False
End If
End Sub
Private Sub UnConfrim_Click()
Me.AllowEdits = True
Me.Confrim.Enabled = True
Me.Confrim.SetFocus
Me.UnConfrim.Enabled = False
End Sub

复制代码

作者: Henry D. Sy 时间: 2008-11-20 22:08
如何使当发票名称为运费发票时，税率为７％，税额＝发票金额×７％，价税合计＝金额。
好像找不到“价税合计”

作者: Henry D. Sy 时间: 2008-11-20 22:11
如何使单价或运价的标签当发票名称为运费时为运价，其它发票名称为单价？
不太理解你的意思，光标签改变名字而没有改变控件来源，等于换汤没换药。

作者: Henry D. Sy 时间: 2008-11-20 22:21
如何使供应商或识别号及地址栏获得焦点时在备注栏里显示相应内容
找不到备注栏在哪里呀？？
MP是什么东东，真不好赚[:41]

作者: Henry D. Sy 时间: 2008-11-20 22:25
如何查询期间为一个自然月的发票所含税额

select format(期间,"yyyy-mm"),sum(税额)
from 收票情况
group by format(期间,"yyyy-mm")

作者: Henry D. Sy 时间: 2008-11-20 22:26

原帖由 dddddd 于 2008-11-20 22:11 发表
如何使单价或运价的标签当发票名称为运费时为运价，其它发票名称为单价？
不太理解你的意思，光标签改变名字而没有改变控件来源，等于换汤没换药。

原来是同一个控件两种标签名字，有点晕晕的。

Private Sub 发票名称_AfterUpdate()
Select Case Me.发票名称
Case "运费发票"
Me.税率 = 17 & "%"
Me.Label17.Caption = "运价"
Case Else
Me.Label17.Caption = "单价"
End Select
End Sub

复制代码

作者: NTCCN 时间: 2008-11-21 16:39
是ｍｏｐ上的虚拟货币啊，可以用来进行人肉搜索，反正有用得很

作者: NTCCN 时间: 2008-11-21 17:23
标题: 拜师了
ｄｄｄｄｄｄ，大侠，要不我拜你为师算了
你注册个ｍｏｐ账号，我转ｍｐ给你哈。
麻烦你写了这么多代码真是太感谢你了，可以问一句你是怎么学会这些的？我看没有这方面的书嘛，论坛上那本我买来看了没有这些内容嘛。
这些代码我不是很明白，明早我好好研究下是怎么实现的
我把附件里的那个换成有代码及价税合计栏和备注栏的文件了还请大侠好事做到底帮帮我。

[ 本帖最后由 NTCCN 于 2008-11-21 17:28 编辑 ]

作者: Henry D. Sy 时间: 2008-11-21 20:51
税价合计的控件来源，有误，你自己修正

作者: gaofei186 时间: 2008-11-21 21:35
学习一下

作者: NTCCN 时间: 2008-11-22 10:02
高人哪，你要我怎么感谢你啊？

作者: NTCCN 时间: 2008-11-22 10:08
标题: ｄｄｄｄｄｄ，你学雷锋吗？
怎么不说让我怎么感谢你啊？写了这么多代码，总要让我有个表示嘛

作者: Henry D. Sy 时间: 2008-11-22 10:20

原帖由 NTCCN 于 2008-11-22 10:08 发表
怎么不说让我怎么感谢你啊？写了这么多代码，总要让我有个表示嘛

客气客气，我也是初学者，大家来此共同探讨，共同进步。
没有谢与不谢之说。

作者: yebbkiss 时间: 2009-8-6 11:25
很多高手嘛

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