Search:
Type: Posts; User: ChrisE
Search:
Search took 0.14 seconds.
-
I sure hope you are making Backups before testing, besides did you take action now in order in order in order in order in order to prevent duplicates?
-
change Min to Max in the SQL
-
something like this..
EmployeeID is an AutoIncrement
DELETE *
FROM Employees
WHERE EmployeeID NOT IN
(
SELECT MIN(EmployeeID)
FROM Employees
-
I think that this query will Delete ALL records with the lastname say 'Smith'
.Execute "DELETE from Custumers where Lastname IN (SELECT Lastname FROM Custumers GROUP BY Lastname HAVING...
-
you can also set a Default value for a Field in the Database Table
190612
this is an Access Database, you can see the Default value in the new Record
I set the default value to someText
-
Rooting for Lando, I also think 3 Years Red Bull is enough.
-
you could use OLEDB, but that might be an overkill, I like JMC's sample
here the OLEDB sample, the CharacterSet 65001 is for Germany, you can Sort with ASC or DESC
Private Sub...
-
Oh :eek:
I thought Team Fuki was finished, wonder what ShaggySan has to say about this
-
Team Fuki it is time for you to leave vbForums....
https://www.youtube.com/watch?v=YzaWAEhFWpw
you Finally Snatch the Pebble From Master Kan
-
regarding number 3
you might want to consider the StringBuilder
here a small example
Public Function cleanString(ByVal s As String) As String
Dim sb As New StringBuilder(s)
...
-
why not just try the code, you can/could have removed the +
here a Image of the MessageBox the space between the numbers are removed
190436
and to add a space between the Capital letters..
...
-
like this perhaps
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim s As String = "SamD 1 6 2 " & vbNewLine & "The Brown Fox Quickly...
-
here something for Team Fuki to watch
Module Module1
Sub Main()
Console.Title = "Matrix Effect"
Console.ForegroundColor = ConsoleColor.DarkGreen
...
-
well in Post#1 he is talking about a Database...
-
I think he smokes the same stuff :cool:
-
I made a Table of your Data in Access, then you can Group By Hour
this is the Sql
SELECT Birdy.Feld1 AS theDay, Sum(Birdy.Feld3) AS SumInHour, Hour([Birdy.Feld2]) AS x
FROM Birdy
GROUP BY...
-
you obviously didn't try the code, take a look at the Split = Space
here a Image of the results
190184
-
why so complicated, just open the Database Table and split the Column to a new Column
this is a sample with Access
Private Sub Command1_Click()
Dim db As DAO.Database
Dim rst As...
-
wonder what you are smoking
-
@Team Fuki
first must learn..'paint the Fence ..Up Down' then 'side to side'
https://www.youtube.com/watch?v=R37pbIySnjg
before Programing anything
-
here a sample, see if it helps
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
Dim xlApp As New...
-
this would be my first approach
I used you sample file from Post#1
get-entries:
John
Nancy
Edward
-
well what do you want the user to enter as a quantity ?
12 or 12,34
-
what do you want to calculate ?
is this a correct value for quantity = 12,34
-
in Post#1 your Quantity is set to Decimal ??
I think it should be Integer
this will create a Table in your Database, see if it helps
change D:\db2010.accdb to your Database
Private...
-
dont know where your data comes from, but using OLEDB with SQL should/could be an option
-
I didn't test this, but it should provide the names
'...
For Each MergeField As Word.MailMergeField In moApp.ActiveDocument.MailMerge.Fields
'Select the text
...
-
this should find anything Italic
Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
Dim strtItalic As Integer = -1
Dim lenItalic...
-
this will search in a Directory , you can add multiple words to search
you need to add these Ref.
Imports System.Text.RegularExpressions
Imports System.IO
Imports System.Text
Private Sub...
-
here a sample to Filter the Emails, not sure what the other part means is with ..Communication detail
I just added it to find that and the next word
Private Sub Button1_Click(sender As...
-
change the Range to A:A
"SELECT Distinct Part FROM [Dimensions$A:A]"
also try it without the Filter in Excel
-
@sRLS
pay attention to my Excelsheet Columns and SQL in Post#5
do you have a column named Product in your Excelsheet ?
-
@slrs
well you do have to adapt the Code :
Path/Name of your Excelfile
Sheet of you Excelfile
'changes todo
ComboBox1.DataSource = ExcelOleDb("E:\TestFolder\excelFilter.xlsx", "SELECT...
-
here a sample I posted for someone a while back
just change Combobox to Listbox
Option Strict On
Imports System.Data.OleDb
Public Class Form4
-
you are correct, the "Group By" part is missing
this is based on sample Table
SELECT Last(Bestellungen.BestellNr) AS LetzterWertvonBestellNr, Bestellungen.Bestelldatum
FROM Bestellungen
GROUP...
-
without testing try it with Last
Select Last(CustomerName, ReceiptNumber, ReceiptDate, AmountReceived from Receipts_Table ORDER BY ReceiptNumber)
-
Hi,
you have to use/select OLE-Object as Field definition in the table
for Files;Pictures etc...
see Image
189282
-
this part looks wrong..
Dim newStructure As String = "dd/MM/yyyy,hhh:mm:ss"
try it with HH:mm:ss
-
I used a Datatable as a sample, it would be nice if the OP could post a sample of the Textfile or CSV ?
-
Totalminutes will work with the correct format ..00:00:00
Public Class Form7
Dim tb As New DataTable
Private Sub Form7_Load(sender As System.Object, e As System.EventArgs)...
|
Click Here to Expand Forum to Full Width
|