Posts by trunfos

Re: Print pdf file from Textbox link

Option Explicit

Private Declare PtrSafe Function apiShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) _
As Long

Public Sub PrintFile(ByVal strPathAndFilename As String)

Call apiShellExecute(Application.hwnd, "print", strPathAndFilename, vbNullString, vbNullString, 0)

End Sub

Private Sub CommandButton1_Click()

PrintFile TextBox1.Value

End Sub

Hi, I have a small problem that I can not solve.

I need to create a button to print the file that is "in" the textbox.

[ATTACH=CONFIG]73384[/ATTACH]

Does anyone have any ideas?

thx

Trunfos

Re: Send email outlook with table on body

Perfect, thank you both

Hi Team,

I want to send email, outlook with table on body like this picture:
I already tried several codes but I can not do it, anyone have any ideas?

http://i.imgur.com/2HbAvlS.jpg

[ATTACH=CONFIG]72279[/ATTACH]

Re: Searching with listbox

Thank you for your help.

The answer to this problem is:

Quote

For x = .ListCount - 1 To 0 Step -1

I'm here with a small problem with the listbox.

When I do search with the textbox will show the first line and I do not want to appear.

this is the code i am using:

Dim x As Long
   
  
  Dim arr
    With Worksheets("Folha1").Range("A2:C2").CurrentRegion
        arr = .Value
    End With
    
    
    
    With ListBox1
        
        .ColumnCount = 3
        ListBox1.List = arr


        For x = .ListCount - 1 To 1 Step -1
         If InStr(1, .List(x, 0), TextBox100.Text, vbTextCompare) = 0 And _
            InStr(1, .List(x, 1), TextBox100.Text, vbTextCompare) = 0 And _
            InStr(1, .List(x, 2), TextBox100.Text, vbTextCompare) = 0 Then
           .RemoveItem (x)
            End If
            Next x
    
    End With

Thank you for your attention.

Re: Userform - Checkbox and Combobox

Quote from royUK;772565

There's room for a lot of improvements in the code.

You have no Columns for the missing results in the Database. I have added them for you

I've made the save work as you want and a few other improvements. I'll check the rest when I get chance

Check out my DatabaseForm for some more ideas, I think wherever you got the exam,ple from it is out dated and not that advanced.

Display More

I appreciate your help, it was spectacular.

By chance know any example of a complete database?

greetings

trunfos

Re: Userform - I need to get right checkbox and combo box in this work

Quote from mrmmickle1;772527

You'll need to expand on what you mean. I've looked at your file and this does not make much sense to me. Can you please explain your issue in more detail?

Thanks for answering.

The ComboBox2 is not recording and the two checkbox are also not to recording to the database.

I think it may have to do with it

For a = 0 To 11
Controls("textbox" & a + 1) = ListBox1.column(a)

Summarizing need the combobox2 (Age) and checkbox2 and 3 to write to the database, at this time are not recording.
After recording to the database, I need to pass the information to ListBox1.
And then when you click on listbox1 need to pass the data to ComboBox2 and CheckBox2 and 3.

I apologize for my English, I am Portuguese and I'm starting to use excel vba will very shortly, very thank you for your comprehension.

greetings

Hello, i have a userform just with textbox and it works fine

Now i need to get right with combobox and checkbox.

Attachments [ATTACH=CONFIG]69405[/ATTACH]

Thank you for your attention

Re: Userform - I can only use textbox - I need to use combobox

Hello, i make a mistake, can u change to general help forum please, thx

trunfos

Hi, i need help,

I have a userform that only uses textbox

i have this code:

Private Sub ListBox1_Click()
Dim say As Long, a As Byte


For a = 0 To 11


Controls("textbox" & a + 1) = ListBox1.column(a)


Next




Sheets("Dados").Range("A:A").Find(ListBox1.Text).Activate
say = ActiveCell.row
Sheets("Dados").Range("A" & say & ":L" & say).Select
TextBox150 = ListBox1.ListIndex + 1
End Sub

It works fine, but I now need to use the userform combobox, can someone help me, thx very much.

greetings