查看: 1120|回复: 5
|
[急]怎样seach subform的东西?
[复制链接]
|
|
我create了一个button在main form,
但我要search的是在subform里的field
难道只能把search放在subform才能search到?? |
|
|
|
|
|
|
|
发表于 9-9-2007 10:38 PM
|
显示全部楼层
|
|
|
|
|
|
|

楼主 |
发表于 10-9-2007 09:31 AM
|
显示全部楼层
是access 的。。
请帮帮忙啊。。
我的form是关于借书的。。
当那个人要还书的时候,我想就是create一个command button然后key in ISBN就可以search出那本书。。
这一步可以用。。我是用query做的。。它会跑出另外一个table..
可是,当我key in return date的时候,如果超过due date,它的font却不会换颜色...明白我说什么吗? |
|
|
|
|
|
|
|

楼主 |
发表于 10-9-2007 09:35 AM
|
显示全部楼层
还有一个问题是,
当一个人借了也还了那本书,
那怎样才能让另外一个人能借??
我的code是
Dim BID As String
Dim LID As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
BID = Me.ISBN.Value
stLinkCriteria = "[ISBN]=" & "'" & BID & "'"
If DCount("ISBN", "LoanDetails", stLinkCriteria) > 0 And DCount("Isnull(Return_date)", "LoanDetails", stLinkCriteria) = 0 Then
Me.Undo
MsgBox "Warning Book Number " _
& BID & " has already been entered." _
& vbCr & vbCr & "", vbInformation _
, "Duplicate Information"
End If
LID = Me.Loan_ID.Value
stLinkCriteria = "[Loan_ID]=" & "'" & LID & "'"
If DCount("Loan_ID", "LoanDetails", stLinkCriteria) > 1 Then
Me.Undo
MsgBox "Exceed book limit can borrow!" _
& "" _
& vbCr & vbCr & "", vbInformation _
, "Duplicate Information"
End If
Set rsc = Nothing
求求帮帮忙!! |
|
|
|
|
|
|
|
发表于 17-9-2007 04:55 PM
|
显示全部楼层
原帖由 star4u 于 10-9-2007 09:31 AM 发表 
是access 的。。
请帮帮忙啊。。
我的form是关于借书的。。
当那个人要还书的时候,我想就是create一个command button然后key in ISBN就可以search出那本书。。
这一步可以用。。我是用query做的。。它会跑 ...
不明白你在说什么。。。
你得先说说你需要做什么,和你现在怎么做。。。大家才知道怎么帮你呀。 |
|
|
|
|
|
|
|
发表于 17-9-2007 04:58 PM
|
显示全部楼层
原帖由 star4u 于 10-9-2007 09:35 AM 发表 
还有一个问题是,
当一个人借了也还了那本书,
那怎样才能让另外一个人能借??
我的code是
Dim BID As String
Dim LID As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = ...
这个是流程的问题吧。
你的问题老实说乱七八糟:
当一个人借了也还了那本书,
那怎样才能让另外一个人能借??
同一个人?
你应该先说说你软件的设计流程,再说说实际流程。。。这样大伙才知道那里出错嘛。 |
|
|
|
|
|
|
| |
本周最热论坛帖子
|