12,425 Topics

Member Avatar for
Member Avatar for hvebsr

I want to put the path and name of a spreadsheet, the page and number of pages and the date and time into the footer(s) and display it in Times New Roman 6 pts. I made the following macro: Range("A1").Select ActiveWindow.View = xlPageLayoutView` Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftFooter = …

Member Avatar for hvebsr
0
296
Member Avatar for ashwinshenoy

Hi All, I have just completed my project in VB 2008 express edition. Now I want the project to be converted to .EXE so that I can deploy it on other computer / laptop. Could any one please help.... Regards, Ashwin

Member Avatar for joshl_1995
0
2K
Member Avatar for hvebsr

When I format the date so that a field gets the value as year-month-day-hour-minute-second, I omly see the date-portion, the rest is filled with zeros. I use: strDT = Format(Date, "yyyymmddhhmmss") I get '20140226000000' What goes wrong, or how can I get the desired result?

Member Avatar for hvebsr
0
97
Member Avatar for stan yost
Member Avatar for Alyssa_1
0
3K
Member Avatar for Sajjad_1

i want to run this Query with **ADODC control** and show result in **Datagird View** Private Sub Command1_Click() Dim Sell_tbl, Stock_Bottle, res As String Sell_tbl = "SELECT Sum((Quantity)*12) FROM Sell_Detail Where Cateogry='Large'" Stock_Bottle = "Select Sum(No_Of_Bottle) FROM Add_Bottle Where Cateogry='Large'" res = ((Sell_tbl) - (Stock_Bottle)) Adodc1.RecordSource = Sell_tbl Adodc1.Refresh Adodc1.Caption …

Member Avatar for abelingaw
0
379
Member Avatar for krunal1986
Member Avatar for abu taher

for save I write this........ With rs .Open "Select * from Dad", con, adOpenDynamic, adLockOptimistic .AddNew !SrNo = cmbbillno '!SrNo = GetNewNo("Dad") !DadItems = cmbIName !DadSize = cmbISize !Dad = txtDadIQty !Dadby = cmbOrTkBy.Text !DadDate = DadDate !deliverydate = deldate !partyname = cmbPartyName !amount = txtamount.Text !due = txtdue.Text !Receive …

Member Avatar for abu taher
0
217
Member Avatar for swilcox1110

I am working on a homework assignment and have been hashing it out for days. Hopefully my novice status with this wears off soon. I am supposed to create an ISP calculator with checked radio buttons and the user enters the hours. Package A = $9.95 for 10 hours each …

Member Avatar for swilcox1110
0
132
Member Avatar for 2jewel

Hello all, I am having an issue learning some things in visual studio 2013 asp.net using vb. I am following a fellows instruction on doing a report with a parameter. In this part of the code: Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Protected Sub Button1_Click(sender As …

Member Avatar for |-|x
0
390
Member Avatar for Jeffrey_1

I need to search the content from one list (List A, Column A) for the mention of items from another list (List B, Column A), and if any matches are found, I need to publish in Column B of List A the data from Column B of the associated matching …

Member Avatar for Jeffrey_1
0
217
Member Avatar for Kayce_1
Member Avatar for GameOKtructuyen
0
93
Member Avatar for Lakshmi_1

Hi in my project for printing faxes they connected server remotely now i want to change the servere lo local.Please suggest me on this.

0
59
Member Avatar for raymund.climaco.7
0
160
Member Avatar for swilcox1110

I am very new to visual basic 2010 and am really struggling with it. My assignment is a fat gram calculator and the example is there are 200 calories in the food and there are 8 grams of fat in the food. The calculator gives the percentage of calories that …

Member Avatar for swilcox1110
0
633
Member Avatar for tasmotors
Member Avatar for Reverend Jim
0
91
Member Avatar for noselbond

I am trying to convert access2.0 database to access2010. 2 days trying to recode this to run in access 2010 but no success. Global Const CONNECT_SQL = "ODBC;DSN=PCGINV;DATABASE=pcginv;UID=;PWD=" Global gqdfTemp As QueryDef Global grecSQL As Recordset Sub GetSQL(strSQL As String) On Error GoTo Err_GetSQL Dim db As Database Set db …

0
72
Member Avatar for krunal1986

Hello, I need to create password protected PDF file in VB6.0. How can i do this? any reference link, suggestion or source code? Thanks.

0
139
Member Avatar for Sajjad_1

hi I want to make a query that first find the sum of two columns of different table then subtract it Example it is a visual basic program Dim large_tbl As String Dim sell_large As String large_tbl = "SELECT Sum(No_Of_Bottle) FROM add_cotton where Cateogry='Large'" sell_large = "SELECT Sum(Quantity) FROM Sell_Detail …

Member Avatar for Sajjad_1
0
1K
Member Avatar for alina.nazchowdhury

Every single time I try to use a control from components on vb6, I put the code, I run the program, then when I try to open the same program in another day, its not working, its giving me the error : Line 13: Class MSAdodcLib.Adodc of control Adodc1 was …

Member Avatar for alina.nazchowdhury
0
2K
Member Avatar for mavtcr

Friends again problem with date function In my form there is a text field -txtDod- of Date type formated like "dd-MMM-yyyy" My input is also formated like "dd-MMM-yyyy" Now see my code Private Sub TxtDod_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case vbKeyReturn If Not IsDate(TxtDod) Then LblMsg = "Enter Date …

Member Avatar for Minimalist
0
281
Member Avatar for noselbond

Need Help.. I have two tables tblRecieve and tblReleased tblReceived --ID-RcvdPcs --1 5 tblReleased --ID-RlsdPCS --1- 2 as you can see i have received 5pcs and i already released 2pcs in same id so the remaining pcs is 3. how do i code this to prevent user to released more …

Member Avatar for abelingaw
0
134
Member Avatar for vishal anand.s

hi my name is vishal for past 10 days i have been going nuts on how to combine selected datas from 3 or more tables into single sql select query in vb6. i have 4 tables named table1 name: Inward column Name DataType mfr_ref_number text no_of_bundle integer supplier_id integer DC_date …

Member Avatar for abelingaw
0
328
Member Avatar for methuselah90

I have 2 spreadsheets - uat.xlsx and main.xlsx - both in the same directory. main.xlsx [[Click Here](null)](http://www.excelforum.com/attachments/excel-programming-vba-macros/297600d1392477870-merging-two-spreadsheets-using-vba-based-on-a-number-of-conditions-r1hrn.png) uat.xlsx [Click Here](http://www.excelforum.com/attachments/excel-programming-vba-macros/297601d1392477913-merging-two-spreadsheets-using-vba-based-on-a-number-of-conditions-evdad.png) I am trying to copy across information from uat.xlsx to main.xlsx, by accomplishing the following in VBA (the VBA code will be stored on main.xlsx and launched by button click): …

Member Avatar for Stuugie
0
256
Member Avatar for azapovjednik

Hello, can anyone provide me with some sample code? VBA access. I need an insert into statement where form.control.value = some_column and another.form.control.combobox.value = some_column can anyone help? thanks

0
107
Member Avatar for noselbond

I have an old access 2.0 database, i converted it in access 2007 but the old code doesn't work.. i heard that it is about DAO and ADO anyone can help me to convert this DAO code to ADO coding.. thank you so much in advance.. Private Sub cmdSave_Click() Dim …

Member Avatar for noselbond
0
716
Member Avatar for Bile

-->>Hope all is well?,I 've been trying to create an ActiveX DLL and Active X EXE but the thing is when I'm finished with My... -->>document and need to see the resulting Interface a problem arises! When I run My file affter having all the settings... -->>in a debugging window …

0
74
Member Avatar for Sajjad_1

i have a program relate to account which subtract value of a Customer but problem is when the user amount is same mean ================ ============ Customer Name Amount ================ ============== John 200 Max 100 John 200 if i input 100 the result will be ================ ============ Customer Name Amount ================ …

0
148
Member Avatar for ever-jolly

Hello All, When I click a record on the grid it does not display on the form, please help me out. here is my code below: Private Sub MSHFlexGrid1_Click() Dim cur As Single cur = 1 MSHFlexGrid1.Rows = 11 MSHFlexGrid1.Cols = 11 Adodc1.Recordset.MoveFirst Do Until Adodc1.Recordset.EOF If MSHFlexGrid1.Rows = 1 …

0
55
Member Avatar for mehboobss

i have a problem in watermarking code , implementing in vb6.0 someone known Vb6.0 coding contact me... mehboobfraz85@gmail.com

0
82
Member Avatar for Jeffrey_1

I am having an impossible time finding a solution for this. I need to combine cell contents in an unusual way (see below), based on if there is an "x" in column A. See below for the exact representation of what I need to do in a worksheet with 200,000 …

Member Avatar for Jeffrey_1
0
299
Member Avatar for abelingaw

Just wanna ask if it is possible to add 1 or more DETAIL sections in a VB6 Report. If it is, any link to such or steps on how to do it. Thanks.

0
90
Member Avatar for Andrew_10

Hi people, I am doing some unpaid work for a friend on an Access/VB application they have. Everything worked for 5 years and then suddenly one day they got the following error: Run-time error '91': Object varialbe or With block variable not set. When I click on debug it shows …

Member Avatar for Andrew_10
0
229
Member Avatar for Nischal_1
Member Avatar for Jeffrey_1

I have a 31,000 line spreadsheet, that will become a printed book. Based on the current column width (which has to stay the same for printing purposes) there are many lines that are only one line of text, and others that wrap to multiple lines. For some reason, for lines …

Member Avatar for Jeffrey_1
0
2K
Member Avatar for Jeffrey_1

I am trying to combine cells depending on the contents of other cells. If Column A has an "X", I want to combine all cells below it, values seperated with a space, until the next line where an "X" appears. There is also data in Column C, which I don't …

0
126
Member Avatar for Patrick_3

Hello, I am attempting to make a section in my application where a user can enter their own code which will be executed at runtime. I have looked up how to compile and run Visual Basic code while the program is running (Below). Dim VBP As New VBCodeProvider Dim CVB …

0
174
Member Avatar for Paladine

This is sample code for a ASP.Net Login page (using Visual Basic.Net code behind) with OleDB connection to an Access Database using ADO.Net. The datebase used is the Access Northwind Database. With the connection string being placed in the [i]web.config[/i] file. [b]1. [u][i]Web Config[/i][/u] File code:[/b] [code] <?xml version="1.0" encoding="utf-8" …

Member Avatar for Anita_1
2
19K
Member Avatar for fx.eko

when I will make a report on vb6 using crystal report 8.5, the error message "Visual Basic has stopped working" what is causing the above?

Member Avatar for Stuugie
0
117
Member Avatar for LeNenne

Hi I will from the database only copy some textboxes to excel to specifik place in the excel sheet Just those from the database surename,lastname,adress,zip,zipadress,prn only one at the time PS ! the excel sheet is an invoice one textbox to excel i4 = prn one textbox to excel f9 …

Member Avatar for Stuugie
0
136
Member Avatar for zawpai

Hi All, I would like to ask one question about "ScrollX". After using this component, my whole porgram is closed automatically when I close the "Form". Does anyone have better ideal to solve it? Regards

Member Avatar for Minimalist
0
134
Member Avatar for fx.eko

how to create a report with data from duatabase on the same server or different servers, using SQL Server 2000, using the **crystal report 8.5** or **data report of VB6 ** For example I have table A and table B with the same table structure, table A is stored in …

Member Avatar for fx.eko
0
296
Member Avatar for LeNenne

Hi What have I done that is wrong the Excell sheet will not be visible I will have it visible when I press the command button Dim objXl As New excel.Application Dim objWb As excel.Workbook Dim xlTmp As excel.Application Set xlTmp = excel.Application xlTmp.Workbooks.open ("c:\kundreg\bokfaktura2.xls") '"bokfaktura2.xls" xlTmp.Workbooks.open ("app.path & \kundreg\bokfaktura2.xls") …

Member Avatar for cgeier
0
223
Member Avatar for raymund.climaco.7

Private Sub Command1_Click() Dim dbName As String Dim rptName As String Dim Preview As Long Const acNormal = 0 Const acPreview = 2 dbName = "C:\Users\user\Desktop\SVSPTODA REGISTRATION SYSTEM\SVSPREGDB.mdb" rptName = "MyReportName" Preview = acPreview 'acNormal With objAccess .OpenCurrentDatabase filepath:=SVSPGEGDB If Preview = acPreview Then .Visible = True .DoCmd.OpenReport rptName, Preview …

0
66
Member Avatar for abelingaw

Was trying to save the contents of a listview column (2nd column) into a table in the dbase, 1 column of the table per content of the listview column, meaning only 1 row will be affected. Here's my code using while loop. Fcount = 2 Scount = 1 While Scount …

Member Avatar for abelingaw
0
227
Member Avatar for jopajenago
Member Avatar for Start4me
0
72
Member Avatar for caltech

I found a script on ExtendOffice.com that does this perfectly, except the BCC email address isn't displayed in the field. The value is there, but invisible (as it does indeed work). I want to alter the following code so that the auto-BCC email will be visible in the field when …

Member Avatar for cgeier
0
874
Member Avatar for Twirlz

Hello :) I am having a bit of trouble with a bit of code. I'm not really sure what is needed. The program contains a few buttons etc however, I am having trouble with two picture boxes. For this thread they are called **picBlue** and **picGreen** I want **picBlue** to …

Member Avatar for Reverend Jim
0
100
Member Avatar for stackOverflow

Hi, I have a problem. I have put up an image on a form of .jpeg format.(copy and pasted).. But when i save it... it works fine at home.. .when i copy it on a cd... it is not saving the background image. Rather ... when I try to open …

Member Avatar for sonunclejalil
0
6K
Member Avatar for mavtcr

Earlier I raised a question in this forum regarding the sorting of database and Reverend Jim answered me as follows. It was Ok SELECT * FROM mytable ORDER BY fieldname But then I faced another problem As I mentioned in that I wanted to sort ORDER by 'Tdate' which is …

Member Avatar for pritaeas
0
298
Member Avatar for fourty

Hi Champs, Im using VBA for Excel. and Im trying to use the code below to move through records and increment their values by one since they meet a certain criteria Sub promotion() Dim x As Range Dim y As Integer Sheet2.Range("c2").Activate Do While y < 1002 y = ActiveCell.Row …

Member Avatar for Stuugie
0
316

The End.