Hi!
I don't know how u have managed to assign the client number to a variable. but here is one way to do so.
when u execute the query using the Execute function, all the values retrieved are as a...

if badge_id column a numeric, then omit the quotation marks for '1234'

what is the error msg u r getting.

rs.Open "Select PCODE from Product WHERE PCODE = '" & Trim(Text1.Text) & "'", cn, adOpenKeyset, adLockPessimistic
If rs.BOF = False Then
MsgBox "The Product Code is Already Exist!", vbCritical...

First initialize all text boxes from txt1 to txt7 = ""
Then get the data from table using a query for sum of Stunden for different Taetigkeit and populate the textboxes.


Private Sub...

Also checkout this link once. may get some tips

http://www.msaccesstips.com/2008/05/selected-list-box-items-and-dynamic.shtml

Hi! At Last came up with some solution. Try this. Checkout the Attachment.

Also i am unable to have a picture of your form and your exact requirement.
ZIP the file and Upload

Not much clear with ur exact requirement. If u don't mind, plz upload the DB here.

Dim x As Integer
Dim n As Integer
Dim i As Integer
Dim Tot As Double

x = Val(text1.text)
n = Val(Text2.text)
If n <=0 Or x <1 Then
MsgBox "Enter Proper...

Dim x, n, i As Integer
Dim Tot As Double

x = Val(Text1.Text)
n = Val(Text2.Text)
If n <= 1 Or x <= 0 Then
MsgBox "Enter Proper Values", vbCritical
Exit Sub
...

Dim x, n, i As Integer
Dim Tot As Double

x = Val(Text1.Text)
n = Val(Text2.Text)
If n <= 1 Or x <= 0 Then
MsgBox "Enter Proper Values", vbCritical
Exit Sub
...

Is it in VB or MSAccess forms u r writing the code?

Please post the entire procedure which is not giving u the result.

if u have 2 commands and want the 2nd command to run after a certain interval of time, u can use the timer control.

During design time; set its interval property to ur required time of pause (in...

Vtemp = CurrentDb.OpenRecordset("SELECT MAX(CRID_INDEX.CRID_NUM) FROM CRID_INDEX")(0)

Here (0) is to return the value of the first field in the query and store it into Vtemp. If say u have more...

Check out the following attachment. I have modified it as far and as much as i could understand. Hope this solves ur problem.

Private Sub Combo1_Click()
Set rs2 = New ADODB.Recordset
rs2.Open "select * from Product where pcode='" & Combo1.Text & "'", cn, adOpenKeyset, adLockPessimistic
Set...

for bold

.Shape.TextFrame.TextRange.Lines(1).Font.Bold = msoCTrue

Also add this line for center alignment of the Title in the cell.


.Shape.TextFrame.TextRange.Lines(1).ParagraphFormat.Alignment = ppAlignCenter

Add this line after setting the font size for underline

.Shape.TextFrame.TextRange.Lines(1).Font.Underline = msoCTrue

Dim iVar As Integer

For iVar = 1 To Slide1.Shapes.Count
If Slide1.Shapes(iVar).Type = msoTable Then
With Slide1.Shapes(iVar).Table.Cell(1, 1)
...

In the last post u can substitute any fontname and size in place of Tahoma and 20.

If you want this to be changed programmatically then here is the code



Dim iVar As Integer

'Here you may replace Slide1 with the name of your slide.
For iVar = 1 To...

Which Table Cell. Is it in MS-Access u want?
or
Is it any cell in the FlexGrid in VB?

Private Sub Combo1_Click()
Set rs2 = New ADODB.Recordset
rs2.Open "select * from Product where pcode='" & Combo1.Text & "'", cn, adOpenKeyset, adLockPessimistic
Set...

In the grd_Data_Loader() after opening the connection put this statement.


Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &...

call grd_Data_Loader again after deleting the record

I think that the data type of your quantity field is text. you have to typecast it to number and then check for the records where quantity = 0 and delete them.

the following query will delete all...

R u getting any error from the procedure mentioned by you?
If yes then what is the error.
or may be try this
Open the query in Dynamic mode


rs1.Open "Select * from Soldto where cno='" &...

PLZ REFER THE ATTACHED PROJECT. I DON'T KNOW WHETHER I HAVE SATISFIED UR EXACT NEED / NOT.

I AM UPLOADING TWO DIFFERENT STYLES OF SOLUTIONS.

one with normal textboxes and another with an array...

USE THE OBJECT CurrentDb.



Public Sub GetMaxCRID()

Dim Vtemp As Integer

On Error GoTo GetMaxCRID_Error

Could not get your exact requirement from your post. plz use the below checklist to be more clear for your req.

1. Please can u give some test values for the values in the ListBox 1 (approx. 10-12...

In which appliation R U writing VBA code? MS-Access or excel?
Where is the table from which u want to read the fields from? Is it an Excel Spreadsheet or an Access Database or some other DB?
...

The Logic for the removal of the related records in the database can be written just before the Remove event of the ListView. After all matched Items are done, U will have the database updated as...

Try this code



Dim iVal As Integer
Dim lCount As Integer

lCount = li.ListItems.Count
For iVal = 1 To lCount
If iVal > lCount Then Exit For

U need not select the items to remove them.

Loop thru all the items in the listview with index for tracking the item against the loop variable. compare the values of each item and delete which...

Dear Taher,

Your entire logic is correct. there is no mistake except for the fieldnames which u r using. they have a space in between. if u need to specify fieldnames which have space then use...

I have just put a label outside the select case BLOCK to transfer the control outside of the select block once any case is executed. but it is not mandatory. YOU CAN OMIT THE GOTO STATEMENT


...

Use Select Case



Select Case MSFlexGrid1.ColSel
Case 0:
form1.Text1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, MSFlexGrid1.ColSel)
goto Label1
Case 1:
...

Can u attach the three forms?