Access-VBA
创始人
2024-06-01 02:05:07

Private Sub 添加窗框_Enter()

If Me.Combo0.Value = "" Then

MsgBox "未选系列"

End If

Dim rs As Recordset

Dim sql As String

sql = "select * from 窗型列表 where 窗型列表.系列名称 ='" & Me.Combo0.Value & "'"

Set rs = CurrentDb.OpenRecordset(sql, dbOpenDynaset, dbSeeChanges, dbOptimistic)

If rs.RecordCount = 0 Then

MsgBox "No Recorde"

Else

MsgBox rs.Fields(2)

End If

Set rs = Nothing

End Sub

上一篇：2019最适合年轻人创业的10个小本创业项目 有哪些适合年轻人的小本创业项目 适合年轻人的10个创业小本生意

下一篇：【Redis】P1 Redis - NoSQL

相关内容

热门资讯

出口退税申报办理更加高效 （来源：法治日报）转自：法治日报本报讯 记者刘欣 国家税务总局近日发布《出口业务增值税和消费税退（免...
俄美乌还有哪些问题没谈拢 （来源：法治日报）转自：法治日报□ 本报驻俄罗斯记者 史天昊　　当地时间1月23日至24日，由俄罗斯...
星德胜科技（苏州）股份有限公司... 证券代码：603344 证券简称：星德胜 公告编号：2026-002星德胜科技（苏州）股份有限公司关...
农银汇理基金管理有限公司旗下部... 为更好地满足投资者的理财需求，进一步提升客户体验，根据农银汇理基金管理有限公司（以下简称“本公司”或...
个人增值税按次纳税起征点提至千...     北京青年报记者昨天从国家税务总局获悉，近日，税务总局配套制发了《关于起征点标准等增值税征管事...