问一个 Access VBA programming的问题 - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Database - 数据库

问一个 Access VBA programming的问题

问一个 Access VBA programming的问题# Database - 数据库

f*32015-02-03 08:02

1 楼

考古发现有人说填N/A
有人说是student
哪个比较好啊谢谢啦

E*v2015-02-03 08:02

2 楼

【以下文字转载自 LeisureTime 讨论区】
发信人: ErlkinginNov (东风射马耳), 信区: LeisureTime
标题: Re: Manhattan的橱窗
发信站: BBS 未名空间站 (Sun Dec 22 00:06:34 2013, 美东)
最后一站，Lord&Taylor。我一直比较喜欢这家的橱窗，每一个都有个小主题小场景。
橱窗里的娃娃精致漂亮，每个细节都做得恰到好处。跟lord&taylor比，Macy's的橱窗
就显得粗制滥造了一点。而bergdorf goodman气场就太奢华，我一个普通人家的孩纸看
着头晕。
今年Lord&Taylor似乎有省成本之嫌，用了很多纸质材料布置橱窗。人多，拍得也不是
很好，大家见谅。

a*y2015-02-03 08:02

3 楼

现在是版版了耶

a*22015-02-03 08:02

4 楼

非常谢谢！

m*a2015-02-03 08:02

5 楼

☆─────────────────────────────────────☆
nesnow (新英格兰的雪) 于 (Sat Jan 31 15:34:31 2009) 提到:
发信人: nesnow (新英格兰的雪), 信区: Literature
标题: Re: Re: 文海
发信站: BBS 未名空间站 (Sat Jan 31 13:14:48 2009)
上帝发明了荷尔蒙这种东西。
几千年来，人类因为这个东西而癫而狂。
然后呢，上帝一边看着人类，一边为自己的杰作洋洋得意。

☆─────────────────────────────────────☆
rodney (一板三眼) 于 (Sat Jan 31 15:35:37 2009) 提到:
上帝怎么总有洋洋得意的荷尔蒙
☆─────────────────────────────────────☆
nesnow (新英格兰的雪) 于 (Sat Jan 31 15:37:39 2009) 提到:
洋洋得意，只不过是人类以为上帝会洋洋得意而已。
☆───────────────────────

m*12015-02-03 08:02

6 楼

请教各位高手一个ＶＢＡ　的问题，
我有一个Table，　想做个Form，　有三个 Dropdown menu, Name, Event, Country
可以filter,　在subform　里面则显示filter的结果。
所以就写了如下ｃｏｄｅ，　希望可以两个或者三个一起来，　可是不知道为什么就是
不ｗｏｒｋ，　希望高手能帮着看看。
Option Compare Database
Private Sub searchname_AfterUpdate()
Call SearchCriteria
End Sub
Private Sub searchevent_AfterUpdate()
Call SearchCriteria
End Sub
Private Sub searchcountry_AfterUpdate()
Call SearchCriteria
End Sub
Function SearchCriteria()
Dim myname, myevent, mycountry As String
Dim task, strCriteria As String
If IsNull(Me.searchname) Then
myname = "[Name] like '*' "
Else
myname = "[Name] = ' " & Me.searchname & " ' "

End If
If IsNull(Me.searchevent) Then
myevent = "[Event] like '*' "
Else
myevent = "[Event] = ' " & Me.searchevent & " ' "

End If
If IsNull(Me.searchcountry) Then
mycountry = "[Country] like '*' "
Else
mycountry = "[Country] = ' " & Me.searchcountry & " ' "

End If
strCriteria = myname & "And" & myevent & "And" & mycountry
task = "Select * from Review where " & strCriteria
Me.subform.Form.RecordSource = task
Me.subform.Form.Requery
End Function

b*l2015-02-03 08:02

7 楼

嘘，这里都是高人你小声些，我给你嘴巴里塞个包子。

l*s2015-02-03 08:02

8 楼

有些东西学是学不来的

a*y2015-02-03 08:02

9 楼

好吧
勉强可以接受

【在 b*********l 的大作中提到】

: 嘘，这里都是高人你小声些，我给你嘴巴里塞个包子。

T*y2015-02-03 08:02

10 楼

I liked all the books I mentioned in the link below.
http://www.mitbbs.com/article/PsychoAnalysis/31186219_0.html
Especially the first three can make you feel so much lighter and so much
clearer about this world, and you'd be naturally satisfied and peaceful.

【在 a******2 的大作中提到】

: 非常谢谢！