why not make function that will open another program which will create a database?

weel theres a function to let the user select a directory, used it to where you save you database to be created. you can also use that to open the database. I think the control is Dialog, opendialog...

you will add a code during runtime? I don't know it its possible but to make a work around on that... make a code/function that will be soon called of the control you will be going to add. You can...

check the fields if it allows null value. if not then put a trappings to force the user to enter a value on the field.

ooops! sorry, please omit the Set keyword or maybe not, I forget its years when I stop vb6 but anyhow it must be that way. Do you know how to use a recordset? You pass a query then the recordset will...

Dim rs As Recordset

Set rs= deSub.conn.Execute("SELECT clientnumber FROM individualsubs WHERE firstname = '" & txtfname.Text & "' AND surname = '" & txtsurname.Text & "'")Set ri =...

Hi,

If the problem is duplication then you must check first the primary keys. How many primary keys in your table, one, two, or more? OK, suppose you have a table name Employee and have three...

sorry i didnt read all replies... lol. veena already answered it...

... you mean you want to add the names of the databases in the listbox? or the reply og rombusia is what you needed.

can you please put a screenshot of your searchform here. As what you have said you have a multiple criteria for your search, ergo it has a 99% of possibility that it will retrieve more than one...

if you just remove the data in the listview, and when your listview was not bound in the database, everytime you load the form the data you remove will back again since you dont remove it in the...

please check the datatype of that field in your database and check their properties if how many decimal have set.

try the lostfocus event then format the value like i.e.

Private Sub Text1_LostFocus()
Text1.Text = Format(Val(Text1.Text), "######0.00")
End Sub

Does your problem resolved by the replies?

Why would you put this code inside the else statement?


If release.Enabled = True And osc.Enabled = True Then
Dim rst13 As New Recordset
Dim sql13 As String
sql13 =...

Use the DateAdd function

So, smile4evr, does your problem solved?

WT?!!! just replace the checking in textboxes to combo boxes... You guys still in school? think this is a homework... anyways...

Ok, I will just correct your code and make a little changes to make it more useful...

your code...

If cname.Text = "" Or empname2.Text = "" Or reason2.Text = "" Or days2.Text = "" Or...

You can also make the function as common for all...


Public Function isAllFilledUp(frm As Form) As Boolean
Dim ctrl As Control

isAllFilledUp = True
For Each ctrl in frm
...

Make it short...

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Do you want to exit?", vbQuestion + vbYesNo) = vbNo Then
Cancel = -1
End If
End Sub

Suppose your criteria comes from the textboxes (txtEmployeeCode & txtEmployeeName)... deleting a record will be..

If you are using a DAO Connection

"DELETE * FROM Account WHERE ...

I think it's NO. It must be dispose by setting it to Nothing. Unloading the form varaible means you're just closing the form and since you did not dispose the form's variable ergo the variable was...

Below code will return the named columns

Select ID, CITY from REPRESENTATIVES Where PROVINCE_ID = " & LST_PROVINCE.ItemData(LST_PROVINCE.ListIndex) & "


I wonder you said that it will just...

Sorry, can't picture out your problem...

How about put your code here?

if you already know how to use a VB with database then add a form and select a log-in form... there's a guide code there...

YOU CAN DO IT!!!

regards,
jireh

I think it's because of the parenthesis, Im' not sure I have no VB here but try to ommit that parenthesis.

With lstReorder
.AddItem ITEM_NUMBER.Text
...

hope this qould help you...please see the attached file.
you need an installer ODBC driver. this app uses mysql

Please try to look again in your datagrid maybe you missed about the name of the fields, may you lack in declaring some fields.

and about your code update...

rssupplier.AddNew...

If you always use that function/procedure try to put that in a module so that anyone can access that procedure/function

Here's a sample...

Declare this in a module


in your form...

another suggestion, inestead of getting a record from the database why dont you use the data from the textboxes or from the variables you have used to add? example:

with Receipt
...

I think you should call the index of that tab. Sorry I dont have VB here so I canot give you the code. but I'm sure its about the button index

i use datareport instead of crystal report, would you like to try this one? then click here http://www.martin2k.co.uk/forums/index.php?act=Attach&type=post&id=1134

ok first you make a table for cars brand then another table for car's brand details.
Example:
table1 = Car Brand Table
table2 = Car Brand Details Table

Let's say you have a Combo Box name...

that's good idea but aftyer hiding the form and after the fmsplash unload the frm you hide. got it?

No, not in opening the database...

the error is in here...

Set Data1.Recordset = db.OpenRecordset("select * from [color] where clrcode='" & Text1.Text & "'")
because I want to make a query on...

Hi Vee
Dyou know why it has an error here?
When I connect to dbf it goes fine

Set db = OpenDatabase(App.Path & "\", False, False, "dBase IV;")
but when I make some query then it makes an error...

Here, enjoy!!!
http://www.ask.com/web?q=visual+basic+tutorial&search=search&qsrc=0&o=0&l=dir

Hi Vee,

you know I'm confused, why we dont need to mention the dbf file but only their path?

the connection is now ok but there's still a problem on me here why I can't use it in a query?...

Hi vee!

Set db = OpenDatabase(App.Path & "\COLOR.dbf", False, False, "dBase IV;")
I try your code because I also use some dBase but it has an error "C:\report\Color.dbf" isn't a valid path. Make...