- If KeyAscii = 13 Then
-
'Dim bal As Integer
-
Dim rsdis As New ADODB.Recordset
-
rsdis.Open " select * from tbls where empno='" & txtemp1.Text & "' and qtyc>0 order by matno,qtyc asc ", con, adOpenKeyset, adLockOptimistic
-
'rsdis.Open " select time1,shift,empno,empname,distinctrow matno,matname,qtyi,qtyino,qtyiname,qtyc,remarks from tbls where empno='" & txtemp1.Text & "' and qtyc>0 ", con, adOpenKeyset, adLockPessimistic
-
-
If rsdis.RecordCount > 0 Then
-
-
With flxs
-
.Rows = 2
-
For i = 1 To rsdis.RecordCount
-
.TextMatrix(i, 0) = rsdis("empname")
-
.TextMatrix(i, 1) = rsdis("matno")
-
.TextMatrix(i, 2) = rsdis("matname")
-
.TextMatrix(i, 3) = rsdis("time1")
-
.TextMatrix(i, 4) = rsdis("shift")
-
.TextMatrix(i, 5) = rsdis("qtyi")
-
.TextMatrix(i, 6) = rsdis("qtyino")
-
.TextMatrix(i, 7) = rsdis("qtyiname")
-
' .TextMatrix(i, 8) = qtyconsumed
-
.TextMatrix(i, 8) = rsdis("qtyc")
-
.TextMatrix(i, 9) = rsdis("remarks")
-
-
.Rows = .Rows + 1
-
rsdis.MoveNext
-
Next i
-
End With
-
-
'flxs.Enabled = True
-
Else
-
-
Label5 = "No Records Found"
-
flxs.Clear
-
-
flxs.FormatString = " Name | Material No |Material Name | Date & Time | Shift |Qty Issued | Issuer No | Issuer Name | Qty Consumed "
-
'flxpatsearch.TextMatrix(1, 0) = "Patient No"
-
' flxpatsearch.TextMatrix(2, 0) = "Name"
-
' flxpatsearch.TextMatrix(3, 0) = "Sex"
-
' flxpatsearch.TextMatrix(4, 0) = "Age"
-
'flxpatsearch.TextMatrix(5, 0) = "Place"
-
'flxpatsearch.TextMatrix(6, 0) = "Phone"
-
-
-
'flxs.Visible = False
-
-
End If
-
-
-
KeyAscii = 0 ' Ignore this key.
-
End If
0 921 Sign in to post your reply or Sign up for a free account.
Similar topics |
by: mike |
last post by:
regards:
when nokia mobile browser at the first time access HTTP Server,
What kind of "HTTP request" does the nokia mobile browser give to the
HTTP Server?
thank you
May goodness be with you...
|
by: Ecohouse |
last post by:
I have a computer with XP on it. I loaded Office 97 first because I
needed Access 97 for some work. I then loaded Office 2000.
Everything seemed to be running fine. But I have come across a few...
|
by: Squirrel |
last post by:
I've developed an Access 2002 database which will be deployed with the
backend on
a server and frontend on the users' PCs. I've now been advised that new
employees will
be given laptops with...
|
by: alfredo17 |
last post by:
Some can help me to extract String by String from ArrayList.
I can add an String but now I would like to read item by item from an ArrayList.
Thanks
|
by: Dale |
last post by:
Access 2003
I have an access database used for scoring a high school sporting
event. Data is entered as scores are turned in from the different
events throughout the day.
I would like to...
| |
by: MBMSOFT |
last post by:
Any idea How to prevent from different date/time format on different pc
I've heard that I should create my own system time function in VBA which will not depend from the local pc system date/time...
|
by: trixxnixon |
last post by:
Has anyone had a situation where they had to supply end users with a frontend for a database that was created with a different version of access that the table is housed in?
my database was...
|
by: gbenga |
last post by:
am developing a project point of sales in VB6.0. I need a code to deduct the sold item from the data base . each time they make sale it will automatically deduct from the quantity in the database and...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
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,...
|
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...
| |
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: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new...
|
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated ...
|
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence...
| |