我是编程新手,正在尝试开发一个允许我填充数据库的用户表单。
我正在尝试为可以通过用户表单输入到数据库的数据设置一些验证。
我使用的代码如下所示,其中Reg是我的userform上的控件的名称。
当我运行这部分代码时,它在第一行停止,并显示Type Mismatch Error 13消息框。
如果您能提供任何帮助,我们将不胜感激。
Sub ValidCombo1()
If Reg18.Value = "" And ((Reg17.Value <> "1" Or (Reg15.Value <> "0" Or "
这些是我所犯的错误。
这个问题要求1990年6月30日以后出生的人接受注射。它要求用户输入他/她的id。我说‘文字不匹配格式字符串’时出错了。我不知道如何在plsql函数中返回varchar。这是我的代码:
create or replace function p_immune (ptdob in date)
return varchar2
is sta_imm varchar2(30);
BEGIN
if ptdob > '30th June 1990 ' then sta_imm := 'REQUIRED';
els
我有一个表,其中有一个名为“Price”的数字列。我还有一个带有文本框的表单,用户可以在其中输入百分比(如0.9)和一个按钮,当按下该按钮时,该按钮将使Price中的所有记录与文本框中的该数字相乘。我不能让它起作用。
前两个示例只是为了测试基本情况,它根本不是变量。
Dim strSQL As String
Dim dbs As DAO.Database
Set dbs = CurrentDb
strSQL = "UPDATE table_name SET Price = 20;"
dbs.Execute strSQL
我已经尝试了上面的方法,但是将价格乘以20是
我有一个名为"txtEndBalance“的文本框,在一个表单中,我只希望插入数字作为数据验证的一部分。因此,我有一个错误事件。
现在,当我通过按钮启动表单时。它直接进入错误,我有一个消息框弹出“无效的货币金额”。不应该是这样的。
然后当我摆脱弹出式试图输入一个数字。当我输入一个个位数时,它会再次抛出这个错误。
我不知道我在下面的代码中哪里错了,因为我认为我做的一切都是正确的。
如果需要,请查看文件。
Private Sub txtEndBalance_Change()
On Error GoTo Error:
Dim amt As Currency
amt
Access 2010中的表单上有一个单击事件,如下所示:
Private Sub SaveRecord_Click()
checkDataIntegrity(Me)
End Sub
其中checkDataIntegrity的定义如下:
Function checkDataIntegrity(ByVal fForm As form) As Boolean
这个很好,很棒。但是,我还有另一个单击事件:
Private Sub LFS_Flashed_Successfully_Fail_Click()
preventSimultaneousPassAndFail (Me)
En
我有一系列文本框,我希望在表单加载时对这些文本框进行评估,以更改表单的其他一些元素。我不想逐行处理它们,而是创建一个函数。如何将文本框的名称传递给函数。例如:
Private Sub Form_Load()
Call SetIntialToggleValue(MyTextboxName)
End Sub
Private Sub SetIntialToggleValue(ByRef ControlName As Control)
MsgBox ControlName.Value
End Sub
这给了我MsgBox行上的"Object required“错误。这
我已经找遍了,似乎也找不到答案。我已经遵循了网上找到的其他示例代码的示例,但都不起作用。我正在尝试从数据库查询中的特定单元格获取一串注释,并将其放入同一数据库中表单的文本框中。我一直收到错误13不匹配错误和96?空错误。下面是我的代码:
Private Sub Text757_Click()
Dim Remarks757 As String
If IsNull(DLookup("Remarks", "QueryDataPaveAll", "[YrRated] = Forms![FormDataEntryPave]![TextYrRat
我有一个MS Access表,其中的字段名为"Instructions“,它使用长文本作为字段类型。在编辑我设计的表单上的字段时,我输入" enter "/回车符,这样它看起来就像我想要的那样。
示例:
Steps:
1. Open Program
2. Open File Menu
3. Click Open Recent File
4. Select Desired File
当字段显示在窗体上的文本框中时,它看起来很好,但是当我生成要打印的报告时,它看起来没有问题。相反,数据显示如下:
Steps: 1. Open Program 2. Open File Men
我正在阅读OCaml和wiki,上面写着:
*its static type system renders runtime type mismatches impossible*
我理解为什么,但我想,为什么这在OCaml (和FP)中如此特殊?在Java中,如何导致运行时类型不匹配?例如:
boolean a = true;
int b = a + 1;
将在编译时返回一个错误。
编辑1:
Haskell
func :: Int -> Bool
func i = if i > 0 then True else False
Java
boolean func (int i) {
我有两个表单,主在主加载之前打开第二个表单。
在这个辅助表单上,我有一个文本框来显示登录的Windows用户名。
当表单打开时,我希望这个用户名显示在文本框中,但目前它只在单击textbox并按下空格键时显示。
我试过更改onclick的内容,但是当光标经过它的时候,我得到的壁橱是装载它的。
我怎样才能让文本框显示用户名加载,或者标签是一个更好的想法?
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
usin
在尝试填充两个单独的字段时,我收到一个运行时13错误
将文本添加到字段的代码为
Private Sub cmdAddMDS_Click() SetText GetMDS(currentMDS, cboxMDS.Value) SetCat catMDS(currentMDS, cboxMDS.Value) <-- This creates the runtime error End Sub
用于设置要添加的值的sub几乎相同,只是子名和偏移量不同
Function GetMDS(mdsName As Worksheet, templateName As String) As
当我试图从Access中的更新后事件执行下面的存储过程时,我得到了一个“运行时错误(13):类型不匹配”错误。我的存储过程在SQL (MSSQL2014)中的@Season为nvarchar(max),@Year为int。对原因有什么想法吗?我已经找了一整天了,但是还没有找到joy。代码如下:
Private Sub Event_Click()
Dim cnn1 As New ADODB.Connection
Dim cmd As New ADODB.Command
Set cnn1 = New ADODB.Connection
cnn1.Connecti
我有一个有多个页面的用户表单,每个页面都有文本框,我想在将它们转储回工作表之前确保它们是数字。
我还有其他普通的用户表单可以做到这一点:
Private Sub myTextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
OnlyNumbers
End Sub
Private Sub OnlyNumbers()
If TypeName(Me.ActiveControl) = "TextBox" Then
With Me.ActiveControl
If Not IsNum
我有一个带有文本框的用户表单,其中一些应该包含整数。我在互联网上的某个地方(我想是在这个网站上)找到了这个IsInteger函数,我把它存储在一个专门用于函数的模块中: Function IsInteger()
If IsNumeric(testsubject) Then
If testsubject - Int(testsubject) <> 0 Then
integerYes = True
Else: integerYes = False
End If
End If
End Function 下面的代码块与其中一个用户表单文本框相关:
我真的很纠结于此,我似乎找不到我的代码不工作的原因:
Dim i1 As Integer
Dim PPapp As Object, XLapp As Object
Dim slide1 As Slide, slide2 As Slide, slide3 As Slide
Dim PPoutput As Presentation
Dim output_table As ShapeRange
Set PPapp = New PowerPoint.Application
Set XLapp = Excel.Application
Set PPoutput = PPapp.Presentations.
我正在尝试用3个文本框来配置用户表单研究,但是我不能让它工作,也不知道为什么。
这是我的代码:
Private Sub TextBox1_AfterUpdate()
On Error GoTo 1
If WorksheetFunction.CountIf(Sheets("Feuil1").Range("A:A"), Me.TextBox1.Value) = 0 Then
MsgBox "introuvable"
End If
With Me
.TextBox2 = Application.WorksheetFunction.VLookup(
如果是user_list.length ==0数组,则应禁用“清除用户”按钮。当我调用this.disabledButton函数时,它抛出一个错误,说“类型'() => boolean‘is not assignable to type 'boolean'”。
下面是我的逻辑。
<section>
<Button
id='clear-user'
disabled={this.disabledButton}
onClick={this.onClearAllUserButton
我有一个测试套件,它使用Slick进行DB访问。这个套件中的一些测试访问DB,而有些则不访问DB。我的套房
implicit val db = DB.getDB
它在套件执行开始时有效地初始化DataBaseDef。然后,将此值用作某些方法的隐式参数值。此外,它还有一个afterAll(),它在套件执行结束时关闭db:
override def afterAll():Unit={
db.close()
super.afterAll()
}
现在,如果我改为:implicit lazy val db = DB.getDB,那么到底会发生什么呢?
如果我只运行一个不使用DB的测