Bytes - answers

recordsource >= string

kbbauman — Fri, 20 Nov 2009 16:54:15 GMT

Hi,

I was wondering if anyone could possibly help me wih this issue. I have an access database. In this database I have a massive table that I have created a query off of in order to be able to edit the data because the actual data is write protected.

I am trying to search for certain dates in the table that have been input ex. from m/d/yyyy to m/d/yyyy. I would like to run a query that would filter the results for me.

My basic assumptions would lead me to think that I can run a query as follows;

data1.recordsource = "Select * from [table] where (value in column) >= " & date1 & " and (value in column) <= " & date2 & ""
data1.refresh

however, this is not working for me. Any ideas??

Thanks

what is the sql statement for insert into when using the script editor from ms access

alcoool — Fri, 20 Nov 2009 16:13:18 GMT

I have the database test.mdb with a table named tabel
The table contains 2 fields: nume and prenume

I have created a data access page that has 2 textboxes: text0 and text1 and also a button: command0

what is the code that i need in the onclik event from ms script editor so that the values from text0 and text1 to be inserted into fields (nume and prenume)

sory for my bad english

EXCEL - accessing workbook.A.userform from workbook.B

pod — Fri, 20 Nov 2009 15:38:33 GMT

Hello

What I want to do is:
from this workbook (thisWB), I want to access a userform's properties that are in another Workbook (toolWB)

I can do this for worksheets, but I want to do it as well for the userform

I have searched the help files, forums and went through all of the properties of workbooks and worksheets to no avail.

I have a way to go around my problem but not without rewriting a lot of code.

If someone has any ideas on the subject, please let me know.

Expand|Select|Wrap|Line Numbers

	Option Explicit ' this code is on a thisWB module

Public toolWB As Workbook

Public deskSHEET As Worksheet

Public deskFRM As UserForm

Sub setToolWB()

    Set toolWB = toolWB

    Set deskSHEET = toolWB.Sheets("Desk Bureau") ' this works

    Set deskFRM = toolWB.[???]         ' HELP!

End Sub

Thanks

P :oD

How to create Animation in VB6?

leander013 — Fri, 20 Nov 2009 06:38:07 GMT

Hi i am a computer science students in the Philippines.

And I am having difficulties on how to create a simple animation
for our Thesis.

Our Topic Is Simulation of Searching Algorithms.

Anybody could help me in creating simple animations about searching algorithms.

thank you so much

jander

Data Report using VB6

saiabhi — Thu, 19 Nov 2009 08:50:17 GMT

Hi Every body

I had a problem with data Reports

I am using MS Access as backend and VB 6.0

by Database name is = Cust

The tables are

Table Name The filelds are
inv custname, invno, invdt, invamt

Items_detail_transactions custname, invno, invdt, invamt, paiddt, paidamt

From the above two tables i want the report like

Customer Name MSV COMPUTERS
================================
Inv No invdate invamt paiddt paidamt total Due
MSV/123 11-Oct-09 4,850.00 4,850.00
16-Nov-09 3,000.00 1,850.00
18-Nov-09 1,000.00 850.00

MSV/X1 15-Nov-09 9,375.00 9,375.00
0.00 0.00 9,375.00

custname SURAKSHA INFOTECH
================================
Inv No invdate invamt paiddt paidamt total Due
SI-2345 11-Dec-09 10,750.00 10,750.00
0.00 0.00 10,750.00

I want this without using dataenvironment
It is very urgent
some please help

Attached Files

help report.txt (892 Bytes)

OnCOmm event does not trigger.

Boomeral — Wed, 18 Nov 2009 20:55:14 GMT

I have a basic program to test key click and reception of data on RS232 port. Computer1 is running this program and computer2 is running hyperterminal. When I send the data out from computer1, i can see the data on computer2; however, no onComm event triggers when data is received. KeyClick does not work either.
Does anyone know what needs to be modified?

Thanks in advance.
Boomer

--------------------------CODE---------------------------------

Expand|Select|Wrap|Line Numbers

	
Imports MSCommLib.OnCommConstants
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        AxMSComm1.CommPort = 1 ' Use COM1.

        AxMSComm1.Settings = "9600,N,8,1" ' 9600 baud, no parity, 8 data,

        ' and 1 stop bit.

        AxMSComm1.InputLen = 0 ' Read entire buffer when Input

        ' is used

        AxMSComm1.PortOpen = True ' Open port

    End Sub

    Private Sub Form1_KeyPress(ByVal KeyAscii As Integer)

        AxMSComm1.Output = KeyAscii

        TextBox1.Text = KeyAscii

        AxMSComm1.Output = "This is tested"

    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        End

    End Sub
 
    Private Sub AxMSComm1_OnComm(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxMSComm1.OnComm

        If (AxMSComm1.CommEvent = comEvReceive) Then

            TextBox2.Text = AxMSComm1.Input

        End If

    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        AxMSComm1.Output = "This is tested \n \r "

        'Dim inputt As String

        'While (1)

        '    inputt = AxMSComm1.Input

        'End While
 
    End Sub

End Class

how to solve "runtime error 13: type mismatch"?

brboga — Wed, 18 Nov 2009 14:16:35 GMT

Hello,

VBA gives an error on the indicated line. "tblparameters" is a database which exists.

Expand|Select|Wrap|Line Numbers

	Option Compare Database
 
Option Explicit
 
Sub fill_parameters()
 
Dim rstfill As Recordset

Dim DB2 As Database
 
Set DB2 = CurrentDb

====> Set rstfill = DB2.OpenRecordset("tblparameters")
 
With rstfill
 
While Not .EOF
 
Forms("frminput")!Txtchoisirleparam.SetFocus

If Forms("frminput")!Txtchoisirleparam.Text = rstfill![Reference] Then
 
Forms("frminput")!Txttauxactua.SetFocus

Forms("frminput")!Txttauxactua.Text = rstfill![taux d'actualisation]
 
Forms("frminput")!Txttauxinfla.SetFocus

Forms("frminput")!Txttauxinfla.Text = rstfill![inflation]
 
Forms("frminput")!TxtDDC.SetFocus

Forms("frminput")!TxtDDC.Text = rstfill![DDC]
 
Forms("frminput")!Txtageretraiteroulant.SetFocus

Forms("frminput")!Txtageretraiteroulant.Text = rstfill![age retraite roulant]
 
Forms("frminput")!Txtageretraitenonroulant.SetFocus

Forms("frminput")!Txtageretraitenonroulant.Text = rstfill![age retraite non-roulant]
 
Forms("frminput")!Txttest.SetFocus

Forms("frminput")!Txttest.Text = rstfill![test]
 
Forms("frminput")!Txttestid.SetFocus

Forms("frminput")!Txttestid.Text = rstfill![testID]
 
Forms("frminput")!Txtfileinput.SetFocus

Forms("frminput")!Txtfileinput.Text = rstfill![input file]
 
Forms("frminput")!Txtfileoutput.SetFocus

Forms("frminput")!Txtfileoutput.Text = rstfill![output file]
 
Forms("frminput")!Txtfileoutputtest.SetFocus

Forms("frminput")!Txtfileoutputtest.Text = rstfill![output test]
 
Forms("frminput")!Txtfileoutputtotal.SetFocus

Forms("frminput")!Txtfileoutputtotal.Text = rstfill![output file total]
 
End If
 
rstfill.MoveNext
 
Wend

End With
 
End Sub

Can someone solve this problem?

Thanks

need a small help here- urgent

squrel — Wed, 18 Nov 2009 05:47:02 GMT

Hello all,

I have a very big SQL query which is having lots of conditions, inner and outer join and have to place in Adodc1.RecordSource = " "
so it can not be placed in one single line...
would you plz tel me how to go to the next line and continue wit the query? (attach two or more lines together in VB6)

thank u very much

Excel: Populating a range with a formula

CoreyReynolds — Tue, 17 Nov 2009 17:22:50 GMT

Hey all,

Here's the culprit:

Expand|Select|Wrap|Line Numbers

	Sub PopulateRange(Cell_Range As Range)
 
Dim v

Dim i As Long

Dim j As Long

Application.ScreenUpdating = False

ReDim v(1 To Cell_Range.Rows.Count, 1 To Cell_Range.Columns.Count)

For i = 1 To Cell_Range.Rows.Count

For j = 1 To Cell_Range.Columns.Count
 
'only takes last 8 chars of data cell

v(i, j) = "=RIGHT(G" & i & ", 8)"

'fills the cells in Z column a calculation that calculates based off the information in the cell that is filled by the above line

v(i + 1, j) = "=ExtractNumber(Z" & i & ", , True)"

Next j

Next i

Cell_Range.Value = v

Application.ScreenUpdating = True

End Sub

What should happen:
I pass in the range and it fills that range with two calculation I have (already made it and verified it words "ExtractNumber") which calculates some stuff to the left of it brilliantly and everyone at my office loves me.

What happens:
Doesn't do anything all all... but when error testing it's popping up my MsgBox with exactly what I want to have placed in the range but doesn't populate it and everyone at my office hates me.

Interacting with .csv files in excel vba

bbrooks — Tue, 17 Nov 2009 17:11:20 GMT

I am writing a code that will use data that is saved in a .csv file. How do I call the file in VBA without opening it? I want to reference specific data within these csv files, for example, I have a matrix that is 30 columns by 30 rows, how can I run an operation on a specific cell in the matrix (i.e. Column A, Row 7) with VBA without opening the csv file?

Sending xmxl file over http in VB6

luckymdu — Tue, 17 Nov 2009 11:40:46 GMT

I am currently working on a project that needs to send xml files over http and receive response in an xml file. I need vb6 help

Serial Port Timeout

Matt Nunnally — Mon, 16 Nov 2009 18:12:38 GMT

I have this code to read from a serial port. I set the timeout to 6.5 seconds. Quite often I have an issue where I don't get a response from the device because system resources are being hogged by something else. Alot of times it takes way longer than 6.5 seconds to throw the timeout exception.

Expand|Select|Wrap|Line Numbers

	
            _serialPort.ReadTimeout = 6500

            Do

                i = _serialPort.ReadByte

                bytes.Add(CByte(i))

            Loop Until i = 3 AndAlso _serialPort.BytesToRead = 1

Is there a way to lock down the system resources to only be doing this loop?

VBScript - wait until file has been uploaded then execute script

ismailc — Mon, 16 Nov 2009 11:51:16 GMT

Good day, I need help.

I have an application that uses aspx pages together with vbscript window for developer coding.

Now the page has an

Expand|Select|Wrap|Line Numbers

upload object.

The problem is that on the same page submit button i'm uploading the file AND executing vbscript command that renames & emails the file that is been loaded.

It keeps on crashing as when it looks for the file to rename the file has not uploaded yet.

Is there a way in vbscript where i wait untill the file exists & then continue with the other vbscript code. The uploaded file is given a unique name on the server eg: test.txt would be given a uniqueid+test.txt

But importantly the code behind on sthe submit button should not just ignore & continue - it should wait untill the wiating/checking script to execute first.

I'm not sure if what i'm asking is possible.

Please Assist

increasing argument in the procedure

evilson — Mon, 16 Nov 2009 05:43:48 GMT

Hi guys, can you help me with this,

i have this subroutine in my mini program

Expand|Select|Wrap|Line Numbers

	    Public Sub tabla(ByVal rowX As Integer, ByVal colY As Integer, ByVal valueXY As String)

        Dim txt(,) As String

        Dim counterX As Integer = 0

        Dim counterY As Integer

        ReDim txt(rowX, colY)

        Do Until rowX = counterX

            counterY = 0

            Do Until colY = counterY

                txt(counterX, counterY) = valueXY

                counterY += 1

            Loop

            counterX += 1

        Loop

    End Sub

This will assign the same string value declare on valueXY.
Problem is, if i want to assign different string in each txt, what will i do?
I know it's possible to assign diffent value on txt by codes like this

'if txt is txt(2,2)
txt(0, 0) = "Dog"
txt(0, 1) = "Cat"
txt(1, 0) = "Bulldog"
txt(1, 1) = "Burma"

but is it possible to increse the arguments in valueXY instead (if i called sub tabla and assign 5 in rowx and 3 on coly, the next argument will be the value of each array)?
this is the example output

dog,cat,bird,fish
bulldog,burma,parrot,gold fish
bone,tuna,cracker,pellet

Deploy cr10 with vb6

muddasirmunir — Sat, 14 Nov 2009 12:40:08 GMT

I had created an application with vb6 + CR10 + MS access , now i want to deoploy this project to user machine , searching the net i get that merge modules are necessary with CR10 , but i donot know where to downlod these merge moudules and how to add them to my deployment pakage ,

Any help?