Search:

@halw: can you post complete code instead of pieces including procedure header... Also, when you do that please use CODE tags.

Create new Project template... ;)

The highlighted word is the key here : how do you save your file? Can you post your [I]actual code?

What you can do is make your own form template:

- create new project
- change form's ScaleMode property to 3 - Pixel
- add the following code to Form_Load event:


Private Sub Form_Load()...

In that case please resolve your thread from Thread Tools menu.

I don't understand what the problem here is - P&DW allows adding files and destination folder for each file. When installer runs it creates as many new folders as you need and place all custom files...

This is public forum so please ask here. :wave:

This may be related to version of IE installed on each machine. Are they the same?

If you mean you want text to appear right aligned then probably NO.
You may instead design your own form and show it on right click instead.

1. You did not need to open recordset to delete records - all you had to to do was execute sql via connection (or command object):
cnn.Execute "delete..."

2. You need to build sql string:

...

Also, you need to declare array ExBytes as byte:

Dim ExBytes() As Byte

In your code it is defined as Long.

Controls added via Controls.Add method can be removed via Controls.Remove;
Control added via Load method (control arrays) can be Unloaded.

Note that neither method will work for any control...

One app writes to a local log file and second reads from it...

Because it is much simpler to use and much better than ordinary integer values. Does that explain?

Try something like this:


Option Explicit

Private Enum ShapeStyles
Rectangle = VBRUN.ShapeConstants.vbShapeRectangle
Square = VBRUN.ShapeConstants.vbShapeSquare
Oval =...

Any time... :wave:

You're welcome.

If you want to convert string into byte array then there is a better way - just use StrConv() function:


Option Explicit

Private Sub Command1_Click()
Dim StringData As String
Dim tempArray()...

LOL ... Was that address at my "sample"? I left some work for OP to finish...

Do you run your app as admin or regular user?

If your date field allows null value then what I would do is mto include list of fields in your sql statement excluding the date field:


insert in tblChqMaster
(fld1, fld2, fld5)
values
...

Take a good look at this submission by MartiLiss.

You may also want to consider coding UserControl_Resize() event to resize RTB/picture controls...

It's fine - just make it large enough to see scrollbars when you place your user control onto the form.

@NRamakrishna:

try reading previous replies before responding... ;)

IsNull() function is what you need:


If Not IsNull(rsCard!Young1) Then
'your code goes here...
End If

Build sql string first:

sqlSearch = "select from Table1 where Field1 like '%" & Text1.Text & "%' or Field2 like '%" & Text1.Text & "%'"

...then open recordset based on that sql.


Or...

Set it at design time.

When you load your grid you can assign font to individual cells using CellFontName property.
The trick here is to set column index before setting row. Here is a quick sample:


Private Sub...

It could be as simple as executing "delete from table_name where..." sql statement via command/connection object.
For SQLite specifics on delete statement read this.

Sample 1
Sample 2

...and many more if you google it...

Take a look at this codebank submission.

What you need to use is Mid$, Instr and (optionally) InstrRev functions:


Option Explicit

Private Sub Form_Load()
Label1.Caption = "(1). What county is the Nile River located in?"
End...

First: I am not "bro"...
And second: I am still curious how you actually resolved it.. Sample text you posted is multiline so how in the world is it going to be splited on comma and not on the new...

Don't you need to split it on the new line character (vbNewLine or vbCrLf) instead of comma?

Works on win7 64 and I can even toggle between show/hide.

If you are asking how to check if specific form is open then loop thru forms collection and check each name:


Dim frm As Form

For Each frm In Forms
debug.Print frm.Name
Next frm

I let...

Correct but still, function's return value can only be assigned to one variable:

myArray = MyFunction(a, b)

...or this if you need return value from function as well:


Option Explicit

Private Sub Command1_Click()
Dim var1 As String
Dim var2 As Single
Dim res As Single

You can do something like this:


Option Explicit

Private Sub Command1_Click()
Dim var1 As String
Dim var2 As Single

DoSomething var1, var2, 9