473,394 Members | 1,845 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,394 software developers and data experts.

vb6.0 help urgent

Dim str As String
Set Con = New ADODB.Connection
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\profile.mdb;"
Set rs = New ADODB.Recordset
rs.Open "profile", Con, adOpenDynamic, adLockOptimistic
rs.MoveFirst
While Not rs.EOF
str = rs.Fields(0)
cboUser.AddItem (str)
rs.MoveNext
Wend

If strUserType = "Admin" Then
cmdSave.Enabled = True
Cmddelete.Enabled = True
ElseIf strUserType = "Power" Then
cmdSave.Enabled = False
Cmddelete.Enabled = False
Else

'If strUserType = "" Then
cmdSave.Enabled = False
Cmddelete.Enabled = False
Combo1.Locked = True
Combo2.Locked = True
cboPageSize.Locked = True
CheckBox1.Locked = True
CheckBox2.Locked = True
Combo3.Locked = True
Combo4.Locked = True
Combo5.Locked = True
ScrollBar1.Enabled = False
ScrollBar2.Enabled = False
'End If
End If



it shows error

please help me
Jul 13 '06 #1
2 1419
sashi
1,754 Expert 1GB
kumar.. kumar.. kumar..

where does the error occurs and what is the error message says? pls explain my fren.. take care
Jul 13 '06 #2
sashi
1,754 Expert 1GB
hi kumar,
try out the below modified code segment.. good luck my fren.. :)
Expand|Select|Wrap|Line Numbers
  1. If strUserType = Trim("Admin") Then
  2.   cmdSave.Enabled = True
  3.   Cmddelete.Enabled = True
  4. ElseIf strUserType = Trim("Power") Then
  5.   cmdSave.Enabled = False
  6.   Cmddelete.Enabled = False
  7. ElseIf strUserType = "" Then
  8.   cmdSave.Enabled = False
  9.   Cmddelete.Enabled = False
  10.   Combo1.Locked = True
  11.   Combo2.Locked = True
  12.   cboPageSize.Locked = True
  13.   CheckBox1.Locked = True
  14.   CheckBox2.Locked = True
  15.   Combo3.Locked = True
  16.   Combo4.Locked = True
  17.   Combo5.Locked = True
  18.   ScrollBar1.Enabled = False
  19.   ScrollBar2.Enabled = False
  20. EndIf
  21.  
Jul 13 '06 #3

Sign in to post your reply or Sign up for a free account.

Similar topics

3
by: Rob | last post by:
I have a form - when you click the submit button, it appends a variable to the URL (e.g. xyz.cgi?inputID=some_dynamic_variable) It also opens a new page. Now, that some_dynamic_variable is...
9
by: Stefan Bauer | last post by:
Hi NG, we've got a very urgent problem... :( We are importing data with the LOAD utility. The input DATE field data is in the format DDMMYYYY (for days) and MMYYYY (for months). The target...
8
by: Mike | last post by:
Hello, I have a few rather urgent questions that I hope someone can help with (I need to figure this out prior to a meeting tomorrow.) First, a bit of background: The company I work for is...
28
by: Tamir Khason | last post by:
Follwing the struct: public struct TpSomeMsgRep { public uint SomeId;
16
by: | last post by:
Hi all, I have a website running on beta 2.0 on server 2003 web sp1 and I keep getting the following error:- Error In:...
7
by: zeyais | last post by:
Here is my HTML: <style> ..leftcolumn{float:left;width:300px;border: 1px solid #ccc} ..rtcolumn{float:left;width:600px;border: 1px solid #ccc} </style> <body> <div class="leftcolumn"...
33
by: dembla | last post by:
Hey Frnds can anyone help me in this i need a program in 'c' PROGRAM to print NxN Matrix 9 1 8 1 2 3 2 7 3 as 4 5 6 6 4 5 7 8 9 in sorted form
8
by: ginnisharma1 | last post by:
Hi All, I am very new to C language and I got really big assignment in my work.I am wondering if anyone can help me.........I need to port compiler from unix to windows and compiler is written...
3
by: N. Spiker | last post by:
I am attempting to receive a single TCP packet with some text ending with carriage return and line feed characters. When the text is send and the packet has the urgent flag set, the text read from...
7
by: Cirene | last post by:
I used to use the Web Deployment Project with my VS2005 projects. Now I've fully upgraded to VS2008. Do I have to download a new version of the Web Deployment Project? If so where can I find...
0
by: ryjfgjl | last post by:
If we have dozens or hundreds of excel to import into the database, if we use the excel import function provided by database editors such as navicat, it will be extremely tedious and time-consuming...
0
by: ryjfgjl | last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
0
by: emmanuelkatto | last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel
1
by: Sonnysonu | last post by:
This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...
0
by: Hystou | last post by:
There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
0
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
0
Oralloy
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...
0
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
0
by: Hystou | last post by:
Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.