masterfact18

what's the code for print button ? ? i got one form and i need to print it but i dont know what's the code for that... help please...

what i want is to put a range in the textboxes like 1-100 and will not accept if it is greater than 100 or a negative number... hoping for your response...

im creating a simple calculator and i dont know how to disable letter in the textbox.. can someone help me please...newbie here....BTW im using VB6...

!! i was trying to create a simple grading system but my project doesnt work it always shows the last if statement and ignore the other statement...please help here's my code...can someone please tell me what's wrong coz i dont know how to use if/elseif/else statement... newbie here...please help Private …

hi everyone... my problem is i got 2 command button named command1 and command2..what i want to happen is when command2 is click the function of command1 will work... can someone please help me...

for the last question... i think its better if you will have listbox for the days or create a calendar that will identify which of the date will be computed...and of course after you create a lecords that is needed.. hope this helps you/

i would like to know hot to put a limited input in a textbox.. situation is like this i put a textbox in a form then what i would like to happen is to accept only 2 number and will not accept the following number that is being pressed...please help... …

[CODE]Private Sub cmdDeduct_Click() Dim sConn As String, xQuantity As Integer, xStockTotal As Integer, xPre As Integer Set oConn = New ADODB.Connection Set rsDeduct = New ADODB.Recordset sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\inventory.mdb;Persist Security Info=False" oConn.Open sConn If LenB(cmbItemName.Text) = 0 Then MsgBox "You have to select an item …

[CODE] Private Sub cmdAdd_Click() Dim sConn As String, xQuantity As Integer, xStockTotal As Integer Set oConn = New ADODB.Connection Set rsAdd = New ADODB.Recordset sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\inventory.mdb;Persist Security Info=False" oConn.Open sConn If LenB(cmbItemName.Text) = 0 Then MsgBox "You have to select an item from the …

problem is in form5 when i add stock it didn't refresh... just download my attach file "datagridprob.zip" and try to correct my code in "add_stock form" then if you got it right kindly post your code here...thanks...

[CODE] Private Sub Command1_Click() Dim xSold As Integer Set db = New ADODB.Connection db.CursorLocation = adUseClient db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\inventory.mdb" Set rs = New ADODB.Recordset rs.Open "SELECT * FROM storage WHERE Current Stock = '" & Text1.Text & "'", db, adOpenStatic, adLockOptimistic If rs.BOF = True …

can someone translate the code into a adodc with datagrid..because i'm not very familiar with listview, besides i only use adodc with datagrid... I'm hoping that someone will translate it to me, because i can't translate it myself..thanks...

...here is the scenario...in my inventory system i have database and it's fields are "Item Number,Description,Last Week Stocks,Deliveries,Total Stocks,Total Withdrawal and Current Stock...this is my logic if adding new stock it will add to 'Current Stock' and to 'Total Stocks' and if withdrawing stocks 'it will add to 'Total Withdrawal' …

[CODE]Form3.Adodc1.RecordSource = "select * from login where username = '" + Text1.Text + "'" Form3.Adodc1.Refresh If Form3.Adodc1.Recordset.EOF = False Then If (Text2.Text = Form3.Adodc1.Recordset.Fields("password")) Then MsgBox "login success" Unload Me Else MsgBox "invalid pasword" Text1.Text = "" Text2.Text = "" Text1.SetFocus Form2.Refresh End If Else MsgBox "invalid username" Text1.Text = …

[code]Form3.Adodc1.RecordSource = "select * from login where username = '" + Text1.Text + "'" Form3.Adodc1.Refresh If Form3.Adodc1.Recordset.EOF = False Then If (Text2.Text = Form3.Adodc1.Recordset.Fields("password")) Then MsgBox "login success" Unload Me Else MsgBox "invalid pasword" Text1.Text = "" Text2.Text = "" Text1.SetFocus Form2.Refresh End If Else MsgBox "invalid username" Text1.Text = …