Search:
Type: Posts; User: nubie
Search:
Search took 0.08 seconds.
-
Dim New_UPC As String
:
:
sql = "SELECT U_size FROM SIZERUNS WHERE U_run = " & TextBox2.Text
insertsql = "INSERT INTO RUNSIZEUPCS (Code,Name,U_item,U_size,U_upc)
VALUES(Code_manip, New_Name, "...
-
your code should work perfectly. Try to comment the line DoCmd.OpenQuery... probably your query is updating some rows...and that's where you get your msg "You are about...."
...
-
"...way the user enters data, but I'd prefer to use multiple textboxes, instead, such as a box for feet and one for inches..."
BUT if you insist in using the x'y" format here's how you get rid of...
-
YES you can
If TextBox1.Text.Contains("+") Then
Dim txtNum() As String = Split(TextBox1.Text, "+")
MsgBox(Val(txtNum(0)) + Val(txtNum(1)))
ElseIf...
-
i would input the values in this manner 3'2 for 3 feet and 2 inches, separated by apostrophe (single quote). then split the values. first part represent feet, second part represent inches or...
-
use :
MsgBox(TextBox1.SelectedText)
-
use the below code instead of the msgbox, the code ALWAYS replaces the whole words in the textbox with the LAST word.... as i said in my post it depends in how you want your program works
...
-
it depends how your program works.. but for the basics i'll based my reply on your example:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles...
-
Can I do this ? :-s
YES you can....
-
or you can run a query similar to this:
SELECT *
INTO Persons_Backup
FROM Persons
-
how about this:
Set myRestrictItems = myItems.Restrict("[SenderName]='gssitaly@iol.it' AND [Subject]= 'test'")
i'm not sure what the Isntr() is doing in your code.
-
Thank you!
I went with the reference to instance of Form1, progressbar and statusbar were updated, HOWEVER, the "visible" updates were done at the END of the process not DURING. i.e I didn't see...
-
I saw no difference setting i=0;
static class Program
{
/// <summary>
/// The main entry point for the application.
/// </summary>
[STAThread]
...
-
yes, I mean this
xForm.DProgressBar(++i,iFiles); thanks. so, any more suggestions? ideas?
-
I have 1 form (Form1) a button and a progress bar. I created delegate to Form1, and want to call DProgressBar(int i, int iTotal) method in another class but the progress bar in the form isn't...
-
where did you close/ Set to nothing this? MyMailMergeRange is still opem from your code
Dim MyMailMergeRange As Range
Set MyMailMergeRange = Sheets("AS-ST-OrdersData").AutoFilter.Range...
-
Dim OutMail As Object
:
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
in your declaration you could specify what outlook item (mail, task, etc.)you are...
-
check this out, this works in my sample vb.net app
Dim AccessConn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\FileMain.accdb")
Dim AccessCommand...
-
Easiest way of merging Access database together?
I presume you want to merge two similar tables from 2 .accds? if this is the case you can create an append query from within MS ACCESS db.
Open...
-
1. This code will repeat until the date of receipt (FechaCobro) equals the end date (fechaFin control located in the parent form).
FechaFin.Value = FechaInicio.Value + DiasPrestamo.Value ...
-
i can see single quotes ' in your code, try to get rid of them
ActiveWorkbook.SaveAs Filename:= _
'"D:\activity volume.csv", FileFormat:=xlCSV _
', CreateBackup:=False
Try this:
-
hope this helps, using your code and incorporate it with code on post #4 to format the date
If IsDate(dic.items) Then
cb_history.List = Format(CDate(dic.items), "dd/mm/yyyy")
End If
-
i see most mail merge are done with tables/queries, like this
http://support.microsoft.com/?id=209976
here's one you can modify to suit your needs using forms
...
-
...the boolean keyword AND to separate fields, when you should be using a comma...
as SI mentioned shouldn't your query look like this;
UPDATE environments SET env_name='QAP',...
-
since you're using access, try this query
Transform count(Status) as StatusCount
SELECT Shipment
FROM Item
group by Shipment
pivot status
-
this works for me using Access 2007 and Adobe Acrobat 9 Pro
1. Save the forms as Pdf.
How? on MS Access click Office button, -->Save As --> Pdf of Xps (Save as type pdf) click Publish button....
-
is the field bbratios of type string? if not remove " ' " single quote arround the txtBuyerRatioS.Text
-
i suspect buyerbookdate field is a date/datetime type and on your update query you're setting a string type, also the same case with buyerbooktime , what are the types of these fields (buyerbookdate ...
-
try this code:
SELECT * FROM items LEFT JOIN stock ON items.StockId = stock.StockId
-
Basic example:
Textbox1.Text = Sheets(1).Range("A1")
-
here's an idea I haven't tested this code,
Dim objNS As NameSpace
Dim objPF As MAPIFolder
Dim objitem As Object
'Set objNS = Application.GetNamespace("MAPI")
'Set objPF =...
-
Hit Alt-F11 keys or on outlook menu Tool -> Macro -> Visual Basic Editor
on the right panel there are two dropdown boxes, Select Application on the first dropdown. Select NewMail <Event> on the...
-
below is a modified version of your code, see if it helps
Private Sub cb_case_Change()
Dim strValue As String
Dim intCounter As Integer
Set dic =...
-
"I have 2 tables with the same columns ..."
hmmm.. maybe your application requires it, BUT its a little bit strange to have 2 tables with the same columns.
anyway GaryM provided you the code to...
-
"That could work with colons instead of commas (i.e. "a6:d6" instead of "a6,d6")"
right "a6:d6" sums from a6 THRU d6 while "a6,d6" sums a6 AND d6, anyway getting rid of the if() statements i came...
-
try this formula:
=if(d2=1,a6,if(d2=2,sum(a6,b6),if(d2=3,sum(a6,c6),if(d2=4,sum(a6,d6),if(d2=5,sum(a6,e6),sum(a6,f6))))))
-
basically the code iterates for a number of times depending on the number of Items in the SentFolder. inside the For...Next loop it grabs each Item and test whether its a MailItem object, if it is,...
-
"I was thinking of getting todays date and subtracting one."....Is that possible?
yes, that is possible. Now() - 1 and get the date portion, Now() returns DateTime, then compare it to .SentOn...
-
Dim x As Integer
x = InputBox("Enter number of rows of data.")
Dim intParts() As Integer
For i = 0 To x
ReDim Preserve intParts(0 To UBound(intParts) + 1) As Integer
...
-
"I tried to record macro in word and it is simple "
have you tried recording a Macro in Excel? if you had and didn't work, i have nothing else to add.
Also as this An error will occur if the...
|
Click Here to Expand Forum to Full Width
|