Correct Input:
Code:
s11 s22
Incorrect input:
Code:
p11 p22
Incorrect input:
Code:
p11 s11
Incorrect Input
Code:
s11
s11 s22
p11 p22
p11 s11
s11
Dim InputString() As String Dim i As Integer InputString = Split(InputName, "s") For i = 1 To UBound(InputString)
Dim InputString() As String Dim i As Integer InputString = Split(InputName, " ") For i = 0 To UBound(InputString) CurrentDb.Execute "INSERT INTO InventoryInputT(InputID) VALUES ('" & InputString(i)
Now()
InputData serial1 serial2 serial3 serial4 serial5
OutputData serial1
Table: InventoryData2 ID InputID OutputID 1 data1 2 data1 3 data2 4 data3 5
SELECT First(InventoryData2.InputID) AS FirstOfInputID, Count(InventoryData2.InputID) AS InputItemCount FROM InventoryInputT, InventoryData2 GROUP BY InventoryData2.InputID HAVING (((Count(InventoryData2.InputID))>=1));
Private Sub SaveInput_Click() Dim InputString() As String Dim i As Integer InputString = Split(InputName, " ") For i = 0 To UBound(InputString) CurrentDb.Execute "INSERT
Leave a comment: