bem o meu projecto ja ta todo feito falta so mesmo a parta de variaveis publicas -.-'
Tipo tenho um modulo com o seguinte
public n as integer
e depois na form 8 vou buscar o valor de uma textbox1 ate aqui tudo bem, mas vou precisar desse valor para usar na form 6 e ai ta o problema e que ele vai buscar mas tenho que fazer o processo 2 vezes a 1 vez da 0 a 2 vai buscar o valor e se conitnuar vai buscar o valor anterior e so a 2 e que actualiza isto torna-se bastante complicado para quem esta a gerir um cafe ... se alguem me pode dar uma ideia.
Butao da form6
Butao da form8
Tipo tenho um modulo com o seguinte
public n as integer
e depois na form 8 vou buscar o valor de uma textbox1 ate aqui tudo bem, mas vou precisar desse valor para usar na form 6 e ai ta o problema e que ele vai buscar mas tenho que fazer o processo 2 vezes a 1 vez da 0 a 2 vai buscar o valor e se conitnuar vai buscar o valor anterior e so a 2 e que actualiza isto torna-se bastante complicado para quem esta a gerir um cafe ... se alguem me pode dar uma ideia.
Butao da form6
Código:
Public Sub Gomas_Click()
Dim Gomas As Double
Dim ngomas As String
Dim g As Double
Form8.Show
g = n
criterio = "CodProduto=10"
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find (criterio)
Gomas = Adodc1.Recordset!preço * g
Adodc1.Recordset!quantidade = Adodc1.Recordset!quantidade - g
ngomas = "Gomas"
List1.AddItem Gomas
List2.AddItem ngomas
End Sub
Butao da form8
Código:
Private Sub Command12_Click()
n = Text1.Text
Unload Form8
Form6.Show
End Sub