币种符号根据选择自动改变及多条件查询

王萌萌　发表于：2013-12-20 11:34:12 　

复制

我想根据图中的币种选择人民币或者美元后，子窗体中的销售单价前面的币种符号自动改变。请问如何实现此功能。谢谢！

Top

煮江品茶发表于：2013-12-20 12:10:10

设一个换算系数，然后用format格式化一下即可。

Top

王岚发表于：2013-12-20 13:28:45

能给一个操作方法吗。这个我不太熟悉。谢谢

Top

煮江品茶发表于：2013-12-20 13:50:41

functioin GetVal(byval val as Double,byval l as Double,byval str as string) as string
'参数:val -- 金额, l -- 换算系数， str -- 币种符号
dim s as double
s=val*l
GetVal=format(s,str & "#,##0.00")
end function

Top

王岚发表于：2013-12-20 14:17:55

你这里指的换算系数是什么。我不需要把人民币换算成美元。只要把前面的符号改变。以便识别是什么币种。

Top

cspa 发表于：2013-12-20 21:45:01

1、用 select case me.币种 Case "美元" ... Case "英镑" ... Case "人民币" ... end select 实现币种符号选择 2、参考http://www.accessoft.com/article-show.asp?id=7548 进行币种格式设置

Top

王岚发表于：2013-12-23 09:55:56

现在我上传实例，有三个问题：

1、“采购合同”中的“币种”中选择美元或者人民币时，子窗体中的销售单价中的金额前面显示相应的币种符号。

2、“客户名称”输入的时候能否自动保存没有过的记录，并且提示重复的记录。

3、“采购合同查询”中为什么无法查询供货单位内的内容，

谢谢！附件1

Top

落尘_小新发表于：2013-12-23 20:57:59

问题一:在采购合同窗体中加入如下代码即可:

Private Sub Form_Current()
    Call 币种_AfterUpdate
End Sub

Private Sub 币种_AfterUpdate()
    Select Case Me.币种
    Case "美元"
        Me.采购合同商品明细.Form.Text14.Format = "$ #,##0.00"
    Case "人民币"
    Me.采购合同商品明细.Form.Text14.Format = "￥ #,##0.00"

    End Select
End Sub

问题二:没太弄清楚你的用意,估计你是想让输入过的客户名称能自动在组合框中有显示.如果是这样可以把组合框行来源设成如下语句试试:

SELECT 采购合同.客户名称 FROM 采购合同 GROUP BY 采购合同.客户名称 HAVING (((采购合同.客户名称) Is Not Null));

问题三:至于无法查询供货单位内的内容.原因是供货单位绑定列的内容并非现在控件中显示的内容.修改绑定字段即可.

Top

王岚发表于：2013-12-25 13:30:18

点击下载此附件

感谢落尘_小新　的帮助！

我还有一个小问题：

在“销售合同汇总查询”中，我需要多条件组合查询，请查看一下我的代码，为什么总提示无效ME。能帮我修改一下吗。

Top

落尘_小新发表于：2013-12-25 15:24:15

这是因为你把代码放在了标准模块中并还使用了ME这个关键字.而ME关键字不适用于标准模块.

把代码移到窗体代码中即可.

Top

王岚发表于：2013-12-31 14:06:45

你好。我想在采购合同里的子窗体中，当输入采购数量和采购单位是，自动赋值到销售数量和销售单位中，并且如果修改销售数量及销售单位时不影响采购数量和采购单位的数值。是否可以用UPLOAD。

DB1

Top

煮江品茶发表于：2013-12-31 15:39:20

点击下载此附件

Private Sub Form_Load()
Call 币种_AfterUpdate
End Sub

Private Sub 币种_AfterUpdate()
Dim str As String
Dim frm As Form_采购合同商品明细
Set frm = Me.采购合同商品明细.Form
Select Case Me.币种.Value
Case "人民币"
str = "￥"
Case "美元"
str = "＄"
Case "欧元"
str = "€"
Case "英镑"
str = "￡"
End Select
frm.采购单价.Format = str & "#,##0.00"
frm.采购金额.Format = str & "#,##0.00"
End Sub

Top

总记录：11篇页次：1/1 9 1 :

Access交流中心

币种符号根据选择自动改变及多条件查询